| Author |
Comment/Response |
Josip
|
 10/25/07 3:01pm
i would appreciate if you could solve this problem for me becouse it is urgent to me and i've never used this program. There is some kind of an error in this input.
Thank you.
<<Statistics`LinearRegression`
SetDirectory["c:\\student\praktikum"]
podaci=ReadList["mjerenje.txt",{Number,Number}]
podaciLog=Log[10.,podaci]
podaciSlika=ListPlot[podaci,PlotStyle→AbsolutePointSize[5],Axes→
False,Frame→True,FrameLabel→{"t[s]","h[m]"},
PlotRange→{Automatic,All},ImageSize→400];
podaciLogSlika=ListPlot[podaciLog,PlotStyle→AbsolutePointSize[5], Axes→False,Frame→True,FrameLabel→{"Log (t[s])","Log (h[m])"},PlotRange→{Automatic,{-0.5,1.5}},ImageSize→400];
regresija=Regress[podaciLog,{1,x},x,RegressionReport→{BestFit,Par ameterCITable}]
funkcija=regresija[[1,2]]
fitSlika=Plot[funkcija,{x,-0.6,0.3}, Axes→False,Frame→True,FrameLabel→{"Log (t[s])", "Log(h[m])"}, ImageSize→400];
Show[podaciLogSlika,fitSlika];
URL: , |
|
