<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
dim x$(100),c(15),s(15),li(14),om(14)
open "huriko.mml" for output as #1
print #1,"A C1 @0 k50 v50 t400"
input "何秒まで";n
rem input "振幅(cm)";a
input "最長振り子(cm)";l
input "最短振り子(cm)";ls
g=980
ome=sqrt(g/l)
omes=sqrt(g/ls)
dome=(omes-ome)/14
for t=0 to n step 0.03
 for i=0 to 100
  x$(i)=" "
 next i
  dl=(l-ls)/14
 for i=0 to 14
  om(i)=ome+dome*i
  li(i)=g/om(i)^2
  c(i+1)=cos(om(i)*t)
  s(i+1)=int(c(i+1)*50)
  x=c(i+1)*7.5+7.5
  ix=int(x)
  if(ix=0) then m$="o4 c"
  if(ix=1) then m$="o4 d"
  if(ix=2) then m$="o4 e"
  if(ix=3) then m$="o4 f"
  if(ix=4) then m$="o4 g"
  if(ix=5) then m$="o4 a"
  if(ix=6) then m$="o4 b"
  if(ix=7) then m$="o5 c"
  if(ix=8) then m$="o5 d"
  if(ix=9) then m$="o5 e"
  if(ix=10) then m$="o5 f"
  if(ix=11) then m$="o5 g"
  if(ix=12) then m$="o5 a"
  if(ix=13) then m$="o5 b"
  if(ix=14) then m$="o6 c"
'
  if(i=0) then print #1, "A",m$
  if(i=1) then print #1, "B",m$
  if(i=2) then print #1, "C",m$
  if(i=3) then print #1, "D",m$
  if(i=4) then print #1, "E",m$
  if(i=5) then print #1, "F",m$
  if(i=6) then print #1, "G",m$
  if(i=7) then print #1, "H",m$
  if(i=8) then print #1, "I",m$
  if(i=9) then print #1, "J",m$
  if(i=10) then print #1, "K",m$
  if(i=11) then print #1, "L",m$
  if(i=12) then print #1, "M",m$
  if(i=13) then print #1, "N",m$
  if(i=14) then print #1, "O",m$
  '
  if(i=0) then x$(ix)="a"
  if(i=1) then x$(ix)="b"
  if(i=2) then x$(ix)="c"
  if(i=3) then x$(ix)="d"
  if(i=4) then x$(ix)="e"
  if(i=5) then x$(ix)="f"
  if(i=6) then x$(ix)="g"
  if(i=7) then x$(ix)="h"
  if(i=8) then x$(ix)="i"
  if(i=9) then x$(ix)="j"
  if(i=10) then x$(ix)="k"
  if(i=11) then x$(ix)="l"
  if(i=12) then x$(ix)="m"
  if(i=13) then x$(ix)="n"
  if(i=14) then x$(ix)="o"
 next i
 for i=0 to 100
  print x$(i);
 next i
  print t 
  if(t>10 and s(1)=s(2) and s(1)=s(2) and s(1)=s(3) and s(1)=s(4) and s(1)=s(5) and s(1)=s(6) and s(1)=s(7) and s(1)=s(8) and s(1)=s(9) and s(1)=s(10) and s(1)=s(11) and s(1)=s(12) and s(1)=s(13) and s(1)=s(14) and s(1)=s(15) ) then
   for i=0 to 14
    print i+1,"cos(ωt)=",c(i+1),"L=",li(i)
   next i
  stop
  end if
next t
end