Zadanie 1

SetDirectory["/dmj/2000/mzpos/_work_/mathematica"]

FileNames["*","/work/2000/mzpos/mathematica"]

"/work/2000/mzpos/mathematica/Z3_data.dat"

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]}]

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

nlm["ParameterTable"]

WykresFitu=Plot[nlm["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"]

"z3_wyniki_fitu.dat"

Zadanie 2

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

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

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