PRINT
PRINT "両側固定端反射における定常波（黒色）"
PRINT
PRINT "　　弦の長さ ＝ 20"
PRINT "　　定常波の波長 ＝ 10"
PRINT "　　定常波の節間隔 ＝ 5"
PRINT "　　定常波の腹の数 ＝ 4"
PRINT
PRINT "　　定常波の波長 ＝ 入射派・反射波の波長"
PRINT "　　定常波の節間隔 ＝ 1/2 × 定常波の波長"
PRINT
PRINT "　　定常波の節間隔 × 腹の数 ＝ 弦の長さ"
PRINT
PRINT "    弦の両端では定常波の変位は０である。"
PRINT
DEF f(x)=SIN(2*PI*(t/24-x/10))
DEF g(x)=-SIN(2*PI*(t/24-(20-x)/10))
SET WINDOW -12,12,-2.2,2.2
FOR t=0 TO 100 STEP 0.1
   SET DRAW mode hidden ! ちらつき防止の特殊処理(1)
   CLEAR
   DRAW axes
   PLOT LINES: -10,-2.2;-10,2.2
   PLOT LINES: 10,-2.2;10,2.2
   SET LINE COLOR 4
   FOR x=-10 TO 10 STEP 0.01
      PLOT LINES: x,f(x)
   NEXT x
   SET LINE COLOR 3
   FOR x=-10 TO 10 STEP 0.01
      PLOT LINES: x,g(x)
   NEXT x
   SET LINE COLOR 1
   FOR x=-10 TO 10 STEP 0.01
      PLOT LINES: x,f(x)+g(x)
   NEXT x
   WAIT DELAY 0.01
   SET DRAW mode explicit ! ちらつき防止の特殊処理(2)
   SET COLOR 1
NEXT t
END