termometr (termometr) wrote,
termometr
termometr

Вольфрам и его сюрпризы

ВЫВОД: Результат FullSimplify[ x ] зависит от начальных условий (формы записи) переменной х
под катом текст кода


In[880]:= " ПОУЧИТЕЛЬНЫЙ ПРИМЕР ExpandAll! new Short"

{" ФАЙЛ: Поучительный пример ExpandAll // СЕГОДНЯ: ",
Delete[DateList[], -1]}
"= ПРИМЕР: Уравнение Ферхюльста (логистический рост)№3 ="
ClearAll[ "Global`*" ] (* стартовая зачистка *)

"Встретился случай, когда q12=False, a q14=True."

MyForm[xxx_] := FullSimplify[ExpandAll[xxx]]

"================= Функция: \[Micro] = d Log[N(t)]/dt для Ферхюльста \
при No = var";
F\[Micro]Verhulst21[No_, DayNo_, \[Micro]мах_, Nmax_, Dayt_] :=
\[Micro]мах - \[Micro]мах/(1 + ( Nmax/No - 1 )*
Exp[(-1)*\[Micro]мах*( Dayt - DayNo )])

\[Micro]Ver1 =
F\[Micro]Verhulst21[No, DayNo, \[Micro]мах, Nmax, Dayt] ;
\[Micro]Ver =
F\[Micro]Verhulst21[No, DayNo, \[Micro]мах, Nmax, Dayt] //
ExpandAll ;

"=========================================================== Rez ?" ;
QuestAll = {
q10 = { "ВОПРОС: " ,
"\[Micro]Ver \[Equal] \[Micro]Ver1 "
, "? - ОТВЕТ: " , TrueQ[ \[Micro]Ver == \[Micro]Ver1 ] }
, q11 = { "ВОПРОС: Simplify " ,
"Simplify[\[Micro]Ver] \[Equal] \[Micro]Ver1"
, "? - ОТВЕТ: " , TrueQ[ Simplify[\[Micro]Ver] == \[Micro]Ver1] }
, q12 = { "ВОПРОС 12:FullSimplify " ,
" FullSimplify[\[Micro]Ver] \[Equal] FullSimplify[\[Micro]Ver1] "
, "? - ОТВЕТ: " ,
TrueQ[ FullSimplify[\[Micro]Ver] == FullSimplify[\[Micro]Ver1] ] }
, q14 = { "ВОПРОС 14: MyForm " ,
"MyForm[\[Micro]Ver] \[Equal] MyForm[\[Micro]Ver1]"
, "? - ОТВЕТ: " ,
TrueQ[ MyForm[\[Micro]Ver] == MyForm[\[Micro]Ver1] ] }
}
"ВЫВОД: Результат FullSimplify[ x ] зависит от начальных условий \
(формы записи) переменной х"

"EOF";




Out[880]= " ПОУЧИТЕЛЬНЫЙ ПРИМЕР ExpandAll! new Short"

Out[881]= {" ФАЙЛ: Поучительный пример ExpandAll // СЕГОДНЯ: ", {2021,
7, 24, 13, 23}}

Out[882]= "= ПРИМЕР: Уравнение Ферхюльста (логистический рост)№3 ="

Out[884]= "Встретился случай, когда q12=False, a q14=True."

Out[891]= {{"ВОПРОС: ",
"\[Micro]Ver \[Equal] \[Micro]Ver1 ", "? - ОТВЕТ: ",
False}, {"ВОПРОС: Simplify ",
"Simplify[\[Micro]Ver] \[Equal] \[Micro]Ver1", "? - ОТВЕТ: ",
False}, {"ВОПРОС 12:FullSimplify ",
" FullSimplify[\[Micro]Ver] \[Equal] FullSimplify[\[Micro]Ver1] ",
"? - ОТВЕТ: ", False}, {"ВОПРОС 14: MyForm ",
"MyForm[\[Micro]Ver] \[Equal] MyForm[\[Micro]Ver1]", "? - ОТВЕТ: ",
True}}

Out[892]= "ВЫВОД: Результат FullSimplify[ x ] зависит от начальных \
условий (формы записи) переменной х"
Tags: Вольфрам, вопросы, программы
Subscribe

Recent Posts from This Journal

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 1 comment