Waluta: przykład użycia bazy FinancialData

SetDirectory[NotebookDirectory[]];

Waluta

waluta="EUR/USD";
rok="Jan. 1, 2009";

dane1=FinancialData[waluta,rok];
dane2=FinancialData[waluta,rok,"Value"];

dane1>>"lista1.txt";
dane2>>"lista2.txt";

DateListPlot[dane1,rok]

Uśrednienie

dane3=MovingAverage[dane2,10];

ListPlot[dane3,Joined->True]

Fit (dopasowanie wielomianu)

dane=dane2;

wielomian[h1_]:=( wiel=(∑_(i=0)^100)A[i](ζ^i);
nf[ζ_]=wiel/.FindFit[dane,wiel,CoefficientList[wiel,ζ],ζ];)

wielomian[f]

Analiza dynamiczna (przebiegi funkcji i pochodnych)

pnf[x_]=(∂_x)nf[x];
p2nf[x_]=(∂_({x,2}))nf[x];

czas={x,10,Length[dane]-50};

Plot[nf[x],Evaluate[czas]]

Plot[pnf[x],Evaluate[czas]]

Plot[p2nf[x],Evaluate[czas]]

Wizualizacja 2 wymiarowa

ParametricPlot[{nf[x],pnf[x]},Evaluate[czas],AspectRatio->1]

funkcja i pochodna

ParametricPlot[{pnf[x],p2nf[x]},Evaluate[czas],AspectRatio->1]

pochodna i druga pochodna

Wizualizacja 3 wymiarowa

ParametricPlot3D[{20 nf[x],(1/3)1000 pnf[x],(3/3)1000 p2nf[x]},{x,0,Length[dane]},AspectRatio->Automatic]

funkcja, pochodna i druga pochodna

Z cyklu:   Proste zadania do nauki algebry komputerowej

Andrzej Woszczyna
Wydział Fizyki, Astronomii i Informatyki Stosowanej
Uniwersytet Jagielloński