ホームページ。
題課①:エクセルによる近似
|
年（年） |
F市の人口（人） |
|
1967 |
166127 |
|
1972 |
190348 |
|
1977 |
203954 |
|
1982 |
210525 |
|
1987 |
218744 |
|
1992 |
225875 |
|
1997 |
233836 |
|
2002 |
240652 |
|
2007 |
243712 |
Mathematicaによる証明
Points={{1967,166127},{1972,190348},{1977,203954},{1982,210525},{1987,218744},{1992,225875},{1997,233836},{2002,240652},{2007,243712}}
Plotpoints=ListPlot[Points,PlotStyle®PointSize[0.015]]
Fit[Points,{1,x,x^2},x]
Plotline=Plot[%,{x,1960,2010}]
Show[Plotpoints,Plotline] {{1967,166127},{1972,190348},{1977,203954},{1982,210525},{1987,218744},{1992,225875},{1997,233836},{2002,240652},{2007,243712}}
人口（人） 人口（人） 人口（人）
年（年） 年（年） 年（年）
課題②Mathematicaによる図形
a=ParametricPlot3D[9{6Cos[t]Cos[u],Sin[t]Cos[u],Sin[u]},{t,Pi/2,3Pi/2},{u,Pi/4,-Pi/2}]
b=ParametricPlot3D[{10Cos[t]Cos[u],80Sin[t]Cos[u],2+Sin[u]},{t,0,Pi},{u,-Pi/2,Pi/2}]
c=ParametricPlot3D[9{8Cos[t]Cos[u],Sin[t]Cos[u],Sin[u]},{t,Pi/2,-Pi/2},{u,-Pi/2,Pi/4}]
d=ParametricPlot3D[{10Cos[t]Cos[u],80Sin[t]Cos[u],2+Sin[u]},{t,Pi,2Pi},{u,-Pi/2,Pi/2}]
e=ParametricPlot3D[1/2{100+8Cos[t]Cos[u],60Sin[t]Cos[u],2+Sin[u]},{t,Pi,2Pi},{u,-Pi/2,Pi/2}]
f=ParametricPlot3D[7{6Cos[t]Cos[u],Sin[t]Cos[u],1+Sin[u]},{t,Pi/2,3Pi/2},{u,Pi/2,-Pi/4}]
g=ParametricPlot3D[1/2{100+8Cos[t]Cos[u],60Sin[t]Cos[u],2+Sin[u]},{t,0,Pi},{u,-Pi/2,Pi/2}]
h=ParametricPlot3D[7{8Cos[t]Cos[u],Sin[t]Cos[u],1+Sin[u]},{t,Pi/2,-Pi/2},{u,-Pi/4,Pi/2}]
i=ParametricPlot3D[1/2{125+20Cos[t]Cos[u],Sin[t]Cos[u],2+55Sin[u]},{t,Pi/2,3Pi/2},{u,-Pi/20,Pi/2}]
j=ParametricPlot3D[5{6Cos[t]Cos[u],-2+Sin[t]Cos[u],-5+Sin[u]},{t,Pi/2,3Pi/2},{u,Pi/4,-Pi/2}]
k=ParametricPlot3D[5{6Cos[t]Cos[u],10+Sin[t]Cos[u],-5+Sin[u]},{t,Pi/2,3Pi/2},{u,Pi/4,-Pi/2}]
Show[a,b,c,d,e,f,g,h,i,j,k,PlotRange®{{-80,80},{-80,80},{-80,70}}]
課題③v（t）＝Sin[100t](V)の電圧に対するコイル（30mH）とコンデンサー（100000μF）をそれぞれ並列につないだ時に流れる電流の変化
電圧・電流（V）（A）
周期（S） 緑＝電圧 青＝コイルに流れる電流 赤＝コンデンサーに流れる電流
Plot[{Sin[100t],3Sin[100t-Pi/2],10Sin[100t+Pi/2]},{t,0,0.3},PlotStyle®{Hue[0.2],Hue[0.5],Hue[0]}]