| VB0050 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
テーマ |
|
平面・斜面を走る台車の運動 |
|
|
|
平面 |
|
|
|
準備 |
|
平面、斜面、記録タイマー、 |
|
|
|
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ |
|
|
方法 |
|
１ 平面に台車を置き、力を加える。 |
|
|
A B C D E F G H I J |
|
|
|
２ ５°の斜面を走らせる。 |
|
|
|
斜面 ５° |
|
|
|
|
|
|
|
|
|
|
|
|
|
３ １０°の斜面を走らせる。 |
|
|
|
|
・･･･・・・・・・・・・ ・・・ ・ ・ ・ ・ ・
・ ・ ・ ・ ・ ・ ・
・ |
|
|
|
A’B’ C’ D’
E’
F’
G’ |
|
|
|
|
|
|
|
斜前 １０° |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
斜面 |
|
|
|
|
・･ ･ ･ ・ ・ ・ ・ ・ ・
・
・
・
・ ・ |
|
|
|
平面 |
|
|
A”
B”
C”
D” E”
F” |
|
|
|
平面 |
|
|
５打点 ０．１秒 |
|
|
平面 |
① |
② |
③ |
④ |
⑤ |
⑥ |
⑦ |
⑧ |
|
|
|
|
A |
A～B |
A～C |
A～D |
A～E |
A～F |
A～G |
A～H |
A～I |
A～J |
速さの差（変化量） |
|
|
|
|
０からの距離 |
0 |
8.4 |
16.4 |
24.5 |
32.7 |
40.8 |
48.9 |
56.8 |
64.6 |
72.6 |
|
|
|
5打点ごと |
|
|
|
打点 |
|
|
5 |
10 |
15 |
20 |
25 |
30 |
35 |
40 |
45 |
|
|
|
距離 |
|
|
|
打点間の距離 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
速さ(cm/ｓ） |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
速さの差 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
斜面 |
５° |
|
５打点 ０．１秒 |
|
|
|
|
|
A’ |
A’～B’ |
A’～C’ |
A’～D’ |
A’～E’ |
A’～F’ |
A’～G’ |
A’～H’ |
A’～I’ |
A’～J’ |
速さの差（変化量) |
|
|
０からの距離 |
0 |
0.4 |
1.7 |
3.8 |
6.8 |
10.6 |
15.3 |
20.8 |
27.2 |
34.4 |
|
|
|
５°斜面 |
|
|
打点 |
|
|
5 |
10 |
15 |
20 |
25 |
30 |
35 |
40 |
45 |
|
|
|
|
① |
② |
③ |
④ |
⑤ |
⑥ |
⑦ |
⑧ |
|
|
打点間の距離 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
速さ(cm/ｓ） |
|
|
|
|
|
|
|
|
|
|
|
|
|
５打点ごと |
|
|
|
速さの差 |
|
|
|
|
|
|
|
|
|
|
|
|
距離 |
|
|
|
|
|
|
|
|
|
斜面 |
１０° |
|
５打点 ０．１秒 |
|
|
|
|
|
|
|
|
A” |
A”～B” |
A”～C” |
A”～D” |
A”～E” |
A”～F” |
A”～G” |
A”～H” |
A”～I” |
A”～J” |
速さの差（変化量) |
|
|
|
|
|
０からの距離 |
0 |
0.9 |
3.4 |
7.6 |
13.6 |
21.3 |
30.6 |
41.7 |
54.5 |
70.1 |
|
|
|
|
|
|
|
打点 |
|
|
5 |
10 |
15 |
20 |
25 |
30 |
35 |
40 |
45 |
|
|
|
|
|
|
|
打点間の距離 |
|
|
|
|
|
|
|
|
|
|
|
|
|
原点からの距離 |
|
|
速さ(cm/ｓ） |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
① |
② |
③ |
④ |
⑤ |
⑥ |
⑦ |
⑧ |
|
|
速さの差 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
原点からの |
|
|
|
|
|
距離 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
台車の運動 （VBA 例） |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Sub 台車の運動() |
|
|
|
|
|
' |
|
|
|
|
|
' 台車の運動 Macro |
|
|
|
|
|
' マクロ記録日 : 2005/5/15 ユーザー名 : |
|
|
|
|
|
' |
|
|
|
|
|
|
|
|
|
|
' |
|
|
|
|
|
Range("E14").Activate |
|
|
|
|
|
Range("E15").Activate |
|
|
|
|
|
Range("F14").Activate |
|
|
|
|
|
Range("F15").Activate |
|
|
|
|
|
Range("G14").Activate |
|
|
|
|
|
Range("G15").Activate |
|
|
|
|
|
Range("H14").Activate |
|
|
|
|
|
Range("H15").Activate |
|
|
|
|
|
Range("I14").Activate |
|
|
|
|
|
Range("I15").Activate |
|
|
|
|
|
Range("J14").Activate |
|
|
|
|
|
Range("J15").Activate |
|
|
|
|
|
Range("K14").Activate |
|
|
|
|
|
Range("K15").Activate |
|
|
|
|
|
Range("L14").Activate |
|
|
|
|
|
Range("L15").Activate |
|
|
|
|
|
Range("M14").Activate |
|
|
|
|
|
Range("M15").Activate |
|
|
|
|
|
Range("N14").Activate |
|
|
|
|
|
Range("N15").Activate |
|
|
|
|
|
|
|
|
|
|
|
Range("E16").Formula = "=$F$14-$E$14" |
|
|
|
|
|
Range("E17").Formula = "=$E$16/0.1" |
|
|
|
|
|
Range("F16").Formula = "=$G$14-$F$14" |
|
|
|
|
|
Range("F17").Formula = "=$F$16/0.1" |
|
|
|
|
|
Range("G16").Formula = "=$H$14-$G$14" |
|
|
|
|
|
Range("G17").Formula = "=$G$16/0.1" |
|
|
|
|
|
Range("H16").Formula = "=$I$14-$H$14" |
|
|
|
|
|
Range("H17").Formula = "=$H$16/0.1" |
|
|
|
|
|
Range("I16").Formula = "=$J$14-$I$14" |
|
|
|
|
|
Range("I17").Formula = "=$I$16/0.1" |
|
|
|
|
|
Range("J16").Formula = "=$K$14-$J$14" |
|
|
|
|
|
Range("J17").Formula = "=$J$16/0.1" |
|
|
|
|
|
Range("K16").Formula = "=$L$14-$K$14" |
|
|
|
|
|
Range("K17").Formula = "=$K$16/0.1" |
|
|
|
|
|
Range("L16").Formula = "=$M$14-$L$14" |
|
|
|
|
|
Range("L17").Formula = "=$L$16/0.1" |
|
|
|
|
|
Range("M16").Formula = "=$N$14-$M$14" |
|
|
|
|
|
Range("M17").Formula = "=$M$16/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("F16").Formula = "=$G$14-$F$14" |
|
|
|
|
|
Range("F17").Formula = "=$F$16/0.1" |
|
|
|
|
|
Range("G16").Formula = "=$H$14-$G$14" |
|
|
|
|
|
Range("G17").Formula = "=$G$16/0.1" |
|
|
|
|
|
Range("H16").Formula = "=$I$14-$H$14" |
|
|
|
|
|
Range("H17").Formula = "=$H$16/0.1" |
|
|
|
|
|
Range("I16").Formula = "=$J$14-$I$14" |
|
|
|
|
|
Range("I17").Formula = "=$I$16/0.1" |
|
|
|
|
|
Range("J16").Formula = "=$K$14-$J$14" |
|
|
|
|
|
Range("J17").Formula = "=$J$16/0.1" |
|
|
|
|
|
Range("K16").Formula = "=$L$14-$K$14" |
|
|
|
|
|
Range("K17").Formula = "=$K$16/0.1" |
|
|
|
|
|
Range("L16").Formula = "=$M$14-$L$14" |
|
|
|
|
|
Range("L17").Formula = "=$L$16/0.1" |
|
|
|
|
|
Range("M16").Formula = "=$N$14-$M$14" |
|
|
|
|
|
Range("M17").Formula = "=$M$16/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("E18").Formula = "=$F$17-$E$17" |
|
|
|
|
|
Range("F18").Formula = "=$G$17-$F$17" |
|
|
|
|
|
Range("G18").Formula = "=$H$17-$G$17" |
|
|
|
|
|
Range("H18").Formula = "=$I$17-$H$17" |
|
|
|
|
|
Range("I18").Formula = "=$J$17-$I$17" |
|
|
|
|
|
Range("J18").Formula = "=$K$17-$J$17" |
|
|
|
|
|
Range("K18").Formula = "=$L$17-$K$17" |
|
|
|
|
|
Range("L18").Formula = "=$M$17-$L$17" |
|
|
|
|
|
|
|
|
|
|
|
Range("O18").Formula =
"=($E$18+$F$18+$G$18+$H$18+$I$18+$J$18+$K$18+$L$18)/8" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Range("E22").Activate |
|
|
|
|
|
Range("E23").Activate |
|
|
|
|
|
Range("F22").Activate |
|
|
|
|
|
Range("F23").Activate |
|
|
|
|
|
Range("G22").Activate |
|
|
|
|
|
Range("G23").Activate |
|
|
|
|
|
Range("H22").Activate |
|
|
|
|
|
Range("H23").Activate |
|
|
|
|
|
Range("I22").Activate |
|
|
|
|
|
Range("I23").Activate |
|
|
|
|
|
Range("J22").Activate |
|
|
|
|
|
Range("J23").Activate |
|
|
|
|
|
Range("K22").Activate |
|
|
|
|
|
Range("K23").Activate |
|
|
|
|
|
Range("L22").Activate |
|
|
|
|
|
Range("L23").Activate |
|
|
|
|
|
Range("M22").Activate |
|
|
|
|
|
Range("M23").Activate |
|
|
|
|
|
Range("N22").Activate |
|
|
|
|
|
Range("N23").Activate |
|
|
|
|
|
|
|
|
|
|
|
Range("E24").Formula = "=$F$22-$E$22" |
|
|
|
|
|
Range("E25").Formula = "=$E$24/0.1" |
|
|
|
|
|
Range("F24").Formula = "=$G$22-$F$22" |
|
|
|
|
|
Range("F25").Formula = "=$F$24/0.1" |
|
|
|
|
|
Range("G24").Formula = "=$H$22-$G$22" |
|
|
|
|
|
Range("G25").Formula = "=$G$24/0.1" |
|
|
|
|
|
Range("H24").Formula = "=$I$22-$H$22" |
|
|
|
|
|
Range("H25").Formula = "=$H$24/0.1" |
|
|
|
|
|
Range("I24").Formula = "=$J$22-$I$22" |
|
|
|
|
|
Range("I25").Formula = "=$I$24/0.1" |
|
|
|
|
|
Range("J24").Formula = "=$K$22-$J$22" |
|
|
|
|
|
Range("J25").Formula = "=$J$24/0.1" |
|
|
|
|
|
Range("K24").Formula = "=$L$22-$K$22" |
|
|
|
|
|
Range("K25").Formula = "=$K$24/0.1" |
|
|
|
|
|
Range("L24").Formula = "=$M$22-$L$22" |
|
|
|
|
|
Range("L25").Formula = "=$L$24/0.1" |
|
|
|
|
|
Range("M24").Formula = "=$N$22-$M$22" |
|
|
|
|
|
Range("M25").Formula = "=$M$24/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("F24").Formula = "=$G$22-$F$22" |
|
|
|
|
|
Range("F25").Formula = "=$F$24/0.1" |
|
|
|
|
|
Range("G24").Formula = "=$H$22-$G$22" |
|
|
|
|
|
Range("G25").Formula = "=$G$24/0.1" |
|
|
|
|
|
Range("H24").Formula = "=$I$22-$H$22" |
|
|
|
|
|
Range("H25").Formula = "=$H$24/0.1" |
|
|
|
|
|
Range("I24").Formula = "=$J$22-$I$22" |
|
|
|
|
|
Range("I25").Formula = "=$I$24/0.1" |
|
|
|
|
|
Range("J24").Formula = "=$K$22-$J$22" |
|
|
|
|
|
Range("J25").Formula = "=$J$24/0.1" |
|
|
|
|
|
Range("K24").Formula = "=$L$22-$K$22" |
|
|
|
|
|
Range("K25").Formula = "=$K$24/0.1" |
|
|
|
|
|
Range("L24").Formula = "=$M$22-$L$22" |
|
|
|
|
|
Range("L25").Formula = "=$L$24/0.1" |
|
|
|
|
|
Range("M24").Formula = "=$N$22-$M$22" |
|
|
|
|
|
Range("M25").Formula = "=$M$24/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("E26").Formula = "=$F$25-$E$25" |
|
|
|
|
|
Range("F26").Formula = "=$G$25-$F$25" |
|
|
|
|
|
Range("G26").Formula = "=$H$25-$G$25" |
|
|
|
|
|
Range("H26").Formula = "=$I$25-$H$25" |
|
|
|
|
|
Range("I26").Formula = "=$J$25-$I$25" |
|
|
|
|
|
|
|
|
|
|
|
Range("O26").Formula =
"=($E$26+$F$26+$G$26+$H$26+$I$26)/5" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Range("E30").Activate |
|
|
|
|
|
Range("E31").Activate |
|
|
|
|
|
Range("F30").Activate |
|
|
|
|
|
Range("F31").Activate |
|
|
|
|
|
Range("G30").Activate |
|
|
|
|
|
Range("G31").Activate |
|
|
|
|
|
Range("H30").Activate |
|
|
|
|
|
Range("H31").Activate |
|
|
|
|
|
Range("I30").Activate |
|
|
|
|
|
Range("I31").Activate |
|
|
|
|
|
Range("J30").Activate |
|
|
|
|
|
Range("J31").Activate |
|
|
|
|
|
Range("K30").Activate |
|
|
|
|
|
Range("K31").Activate |
|
|
|
|
|
Range("L30").Activate |
|
|
|
|
|
Range("L31").Activate |
|
|
|
|
|
Range("M30").Activate |
|
|
|
|
|
Range("M31").Activate |
|
|
|
|
|
Range("N30").Activate |
|
|
|
|
|
Range("N31").Activate |
|
|
|
|
|
|
|
|
|
|
|
Range("E32").Formula = "=$F$30-$E$30" |
|
|
|
|
|
Range("E33").Formula = "=$E$32/0.1" |
|
|
|
|
|
Range("F32").Formula = "=$G$30-$F$30" |
|
|
|
|
|
Range("F33").Formula = "=$F$32/0.1" |
|
|
|
|
|
Range("G32").Formula = "=$H$30-$G$30" |
|
|
|
|
|
Range("G33").Formula = "=$G$32/0.1" |
|
|
|
|
|
Range("H32").Formula = "=$I$30-$H$30" |
|
|
|
|
|
Range("H33").Formula = "=$H$32/0.1" |
|
|
|
|
|
Range("I32").Formula = "=$J$30-$I$30" |
|
|
|
|
|
Range("I33").Formula = "=$I$32/0.1" |
|
|
|
|
|
Range("J32").Formula = "=$K$30-$J$30" |
|
|
|
|
|
Range("J33").Formula = "=$J$32/0.1" |
|
|
|
|
|
Range("K32").Formula = "=$L$30-$K$30" |
|
|
|
|
|
Range("K33").Formula = "=$K$32/0.1" |
|
|
|
|
|
Range("L32").Formula = "=$M$30-$L$30" |
|
|
|
|
|
Range("L33").Formula = "=$L$32/0.1" |
|
|
|
|
|
Range("M32").Formula = "=$N$30-$M$30" |
|
|
|
|
|
Range("M33").Formula = "=$M$32/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("F32").Formula = "=$G$30-$F$30" |
|
|
|
|
|
Range("F33").Formula = "=$F$32/0.1" |
|
|
|
|
|
Range("G32").Formula = "=$H$30-$G$30" |
|
|
|
|
|
Range("G33").Formula = "=$G$32/0.1" |
|
|
|
|
|
Range("H32").Formula = "=$I$30-$H$30" |
|
|
|
|
|
Range("H33").Formula = "=$H$32/0.1" |
|
|
|
|
|
Range("I32").Formula = "=$J$30-$I$30" |
|
|
|
|
|
Range("I33").Formula = "=$I$32/0.1" |
|
|
|
|
|
Range("J32").Formula = "=$K$30-$J$30" |
|
|
|
|
|
Range("J33").Formula = "=$J$32/0.1" |
|
|
|
|
|
Range("K32").Formula = "=$L$30-$K$30" |
|
|
|
|
|
Range("K33").Formula = "=$K$32/0.1" |
|
|
|
|
|
Range("L32").Formula = "=$M$30-$L$30" |
|
|
|
|
|
Range("L33").Formula = "=$L$32/0.1" |
|
|
|
|
|
Range("M32").Formula = "=$N$30-$M$30" |
|
|
|
|
|
Range("M33").Formula = "=$M$32/0.1" |
|
|
|
|
|
|
|
|
|
|
|
Range("E34").Formula = "=$F$33-$E$33" |
|
|
|
|
|
Range("F34").Formula = "=$G$33-$F$33" |
|
|
|
|
|
Range("G34").Formula = "=$H$33-$G$33" |
|
|
|
|
|
Range("H34").Formula = "=$I$33-$H$33" |
|
|
|
|
|
Range("I34").Formula = "=$J$33-$I$33" |
|
|
|
|
|
|
|
|
|
|
|
Range("O34").Formula =
"=($E$34+$F$34+$G$34+$H$34+$I$34)/5" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End Sub |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
