SetDirectory["/mnt/27817d28-ee1d-4124-ab41-54755c9ee50d/Dydaktyka/TIK_2020_21/Mathematica"]

"/mnt/27817d28-ee1d-4124-ab41-54755c9ee50d/Dydaktyka/TIK_2020_21/Mathematica"

Zadanie 1

Dane=Import["Z3_data.dat","Table"]

Dimensions[Dane]

Dane[[All,1]]

Dane[[1,All]]

Dane[[3,2]]

WykresDane=ListPlot[Dane]

Show[WykresDane,AxesLabel->{HoldForm[Nazwa osi X],HoldForm[Nazwa osi Y]},PlotLabel->None,LabelStyle->{GrayLevel[0]}]

Show[WykresDane, Frame->True,Axes->None]

nlm2=NonlinearModelFit[Dane, a*x*Sin[b*x+c]+d,{a,b,c,d},x]

nlm2["ParameterTable"]

WykresFitu=Plot[nlm2["BestFit"],{x,0,10}, PlotStyle->Red]

Show[WykresDane,WykresFitu,Frame->True,Axes->None]

Export["z3_wyniki_fitu.dat",Transpose[{nlm["BestFitParameters"][[All,2]],nlm["ParameterErrors"]}],"Table"]

Zadanie 2

NoweDaneY=1/(3+Dane[[All,2]])

OX=Table[q,{q,0,49.95,0.05}]

ListPlot[Transpose[{OX,NoweDaneY}],PlotRange->All]