10進ベーシック
を使用して 繰り返しを覚えよう
For x=1 to 10 step 0.1
Next x
1から10まで0.1刻みで繰り返す
各グラフを書いてみよう
レッスン１
二次関数
SET WINDOW -15,15,-10,100
set color mix (15)0,0,0
DRAW grid(5,10)
FOR x=-10 TO 10 STEP 0.01
LET y=(x)^2
print x,y
plot x,y
100 next x
END
レッスン2
二次関数 原点移動
SET WINDOW -5,25,-10,130
set color mix (15)0,0,0
DRAW grid(5,10)
FOR x=0 TO 20 STEP 0.01
LET y=(x-10)^2+30
print x,y
plot x,y
100 next x
END
レッスン3
三角関数 正弦
set window -30,360,-1.2,1.2
set color mix (15)0,0,0
DRAW grid(45,0.2)
for x=0 to 360 step 0.1
LET y = sin(x*3.14156/180)
print x,y
plot x,y
next x
END
レッスン4
三角関数 tan
set color mix (15)0,0,0
SET WINDOW -95,95,-100,100
draw grid(20,20)
FOR x=-90 TO 90 STEP 0.01
LET y = tan(x*3.14156/180)
print x,y
plot x,y
next x
END
レッスン5
三角関数を使用して
円を描く
set color mix (15)0,0,0
set window -1.2,1.2,-1.2,1.2
DRAW grid(0.2,0.2)
for x=0 to 360 step 0.1
LET y = sin(x*3.14156/180)
LET z= COS(x*3.14156/180)
print x,y
plot z,y
next x
END
参考 点が均等間隔なのを確認してください
set color mix (15)0,0,0
set window -1.2,1.2,-1.2,1.2
DRAW grid(0.2,0.2)
FOR x=0 TO 360 STEP 5
LET y = sin(x*3.14156/180)
LET z= COS(x*3.14156/180)
print x,y
plot z,y
next x
END
レッスン6
ﾋﾟﾀｺﾗｽ ルートを使う
円を描く その２
SET COLOR MIX (15)0,0,0
SET WINDOW -12,12,-12,12
DRAW grid(2,2)
SET COLOR MIX (1) 0,0,1
FOR x=-10 TO 10 STEP 0.01
LET y = SQR(100 - x*x)
print x,y
PLOT x,y
next x
SET COLOR MIX (1) 1,0,0
FOR x=-10 TO 10 STEP 0.01
LET y = SQR(100 - x*x)
PRINT x,-y
PLOT x,-y
next x
END
２次関数の積分
SET WINDOW -5,15,-10,100
SET COLOR MIX (15)0,0,0
DRAW grid(5,10)
LET men=0
FOR x=0 TO 10 STEP 0.01
LET y=(x)^2
SET COLOR MIX (1)0,0,0
PRINT x,y
SET COLOR MIX (1)0,0,1
PLOT LINES: x,0 ;x,y
plot x,y
LET men=men+0.01*y
100 next x
PRINT "menseki=";men
END
