[d | an-b-bro-fr-gf-hr-l-m-maid-med-mi-mu-ne-o-old_o-p-ph-r-s-sci-sp-t-tran-tv-w-x | bg-vg | au-mo-tr | a-aa-abe-azu-c-dn-fi-hau-jp-ls-ma-me-rm-sos-tan-to-vn | misc-tenma-vndev | dev-stat]
[Burichan] [Futaba] [Gurochan] [Tomorrow] [Архив-Каталог-RSS] [Главная]

Файл: 555358_3793910_ll.jpg -(64 KB, 800x566, 555358_3793910_ll.jpg)
64 No.28116  

Привет анон, помоги пожалуйста решить в Mathematica вот это: Оценить параметр Q в нелинейной модели по МНК y=e^-Qt на основе наблюдений t1=0,5, t2=1 , t3=2, t4=4 , t5=8 , t6=16 ,
y1=0,95 y2=0,8 y3=0,62 y4=0,45 y5=0,2 y6=0,04.

Или это:
Координаты a(t) движущиеся равномерно и прямолинейно точки в моменты t=1,2,3,4,5 оказались,соответственно, 12,98; 13,05; 13,32; 14,22; 13,97
Определить закон движения и изобразить a(t) и экспериментальные точки на одном графике.

>> No.28117  

На вторую вроде что-то начал делать.

In[1]:=
t={0.5, 1, 2, 4, 8, 16}

Out[1]=
{0.5,1,2,4,8,16}

In[2]:=
y={0.95,0.80,0.62,0.45,0.2,0.04}

Out[2]=
{0.95,0.8,0.62,0.45,0.2,0.04}

In[5]:=
z=Log[y]

Out[5]=
{-0.0512933,-0.223144,-0.478036,-0.798508,-1.60944,-3.21888}

In[15]:=
Fit[{{0.5,-0.05},{1,-0.22},{2,-0.48},{4,-0.8},{8,-1.6},{16,-3.2}},{f},f]

Out[15]=
-0.200454 f

>> No.28118  

>>28117

>На первую
>> No.28119  

>>28116

> Определить закон движения
> движущиеся равномерно и прямолинейно точки

ЩИТО?

>> No.28120  

>>28117
Правильно так:
FindRoot[D[Total[(y - E^(-q*t))^2], q] == 0, {q , 0}]
{q -> 0.207511}




[d | an-b-bro-fr-gf-hr-l-m-maid-med-mi-mu-ne-o-old_o-p-ph-r-s-sci-sp-t-tran-tv-w-x | bg-vg | au-mo-tr | a-aa-abe-azu-c-dn-fi-hau-jp-ls-ma-me-rm-sos-tan-to-vn | misc-tenma-vndev | dev-stat]
[Burichan] [Futaba] [Gurochan] [Tomorrow] [Архив-Каталог-RSS] [Главная]