In[]:=
data=Import["data_11.csv"]
Out[]=
{{0.019174759848570515491,(1.91701134797623199113167665361136426092`19.579886432493158*(1 + (52.15189175235226329857641831146392826235`20.2827299333984*Sin[0.0191747598485705154914`20.2827299333984*h])/h)^2)/(1 - (52.15189175235226329857641831146392826235`20.2827299333984*Sin[0.0191747598485705154914`20.2827299333984*h])/h)},
⋯16382⋯
,{314.1592653589793258,(8.84080809681199858062031412740009680702`19.545785046…413*Sin[314.159265358979325811`20.49714987269413*h])/h)}}
large output
show less
show more
show all
set size limit...
In[]:=
func=Interpolation[data];
In[]:=
Integ[h_]=Integrate[func[x],{x,0.019174759848570515491`19.2827299333984,314.159265358979325811`20.49714987269413}];
In[]:=
Plot[integ[h],{h,0,2}]
Out[]=
0.5
1.0
1.5
2.0
-1.0
-0.5
0.5
1.0