新しく発言する EXIT インデックスへ
葉の図形を応用した図形（１）
　　葉の図形を応用した図形（１） 大石　慶彦 2004/10/05 00:15:54 
　　└葉の図形を応用した図形の修正プログラムで... 同 2005/01/29 23:37:52 

　　葉の図形を応用した図形（１） 大石　慶彦 2004/10/05 00:15:54  ツリーへ

葉の図形を応用した図形（１） 返事を書く
大石　慶彦 2004/10/05 00:15:54
次は、前の葉っぱの図形を応用した図形を描くプログラムです。
１６のＢＡＳＩＣプログラムファイルを使います。
(1) rem *** 関数 y=13/30*x^2+7/6*x (-5≦x≦0) のグラフ
def f(x)=13/30*x^2+7/6*x
set window -5,5,-5,5
for x=-5 to 0 step 0.01
plot lines: x,f(x);
next x
end

ここで実行ボタンを押し、グラフィックスウィンドウのオプションメニューの「実行する前に消去しない」をチェックしてから次のファイルを開きます。

(2) rem *** 関数 y=13/30*x^2-7/6*x (0≦x≦5) のグラフ
def f(x)=13/30*x^2-7/6*x
set window -5,5,-5,5
for x=0 to 5 step 0.01
plot lines: x,f(x);
next x
end

ここで実行ボタンを押し、次のファイルを開きます。

(3)rem *** 関数 y=-13/30*x^2+7/6*x (0≦x≦5) のグラフ
def f(x)=-13/30*x^2+7/6*x
set window -5,5,-5,5
for x=0 to 5 step 0.01
plot lines: x,f(x);
next x
end

ここで実行ボタンを押し、次のファイルを開きます。

(4) rem *** 関数 y=-13/30*x^2-7/6*x (-5≦x≦0) のグラフ
def f(x)=-13/30*x^2-7/6*x
set window -5,5,-5,5
for x=-5 to 0 step 0.01
plot lines: x,f(x);
next x
end

実行ボタンを押し、次のファイルを開きます。

(5) rem *** 関数 y=13/30*x^2+5/8*x-2.7 (-5≦x≦0) のグラフ
def f(x)=13/30*x^2+5/8*x-2.7
set window -5,5,-5,5
for x=-5 to 0 step 0.01
plot lines: x,f(x);
next x
end

実行、次のファイルを開きます。

(6) rem *** 関数 y=13/30*x^2-5/8*x-2.7 (0≦x≦5) のグラフ
def f(x)=13/30*x^2-5/8*x-2.7
set window -5,5,-5,5
for x=0 to 5 step 0.01
plot lines: x,f(x);
next x
end

実行、次のファイルを開きます。

(7) rem *** 関数 y=-13/30*x^2+5/8*x+2.7 (0≦x≦5) のグラフ
def f(x)=-13/30*x^2+5/8*x+2.7
set window -5,5,-5,5
for x=0 to 5 step 0.01
plot lines: x,f(x);
next x
end

実行、次のファイルを開きます。

(8) rem *** 関数 y=-13/30*x^2-5/8*x+2.7 (-5≦x≦0) のグラフ
def f(x)=-13/30*x^2-5/8*x+2.7
set window -5,5,-5,5
for x=-5 to 0 step 0.01
plot lines: x,f(x);
next x
end

実行ボタンを押します。葉の図形を応用した図形（２）に続きます。 

　　└葉の図形を応用した図形の修正プログラムで... 同 2005/01/29 23:37:52  ツリーへ

Re: 葉の図形を応用した図形（１） 返事を書く
同 2005/01/29 23:37:52
葉の図形を応用した図形の修正プログラムです。１つのBASICファイルに収めることができるようにしましたので、ここに付け足しておきます。

（仮称）蓮華心図

REM *** 蓮華心図
DEF f(x)=13/30*x^2+7/6*x
DEF g(x)=13/30*x^2-7/6*x
DEF h(x)=-13/30*x^2+7/6*x
DEF i(x)=-13/30*x^2-7/6*x
DEF j(x)=13/30*x^2+5/8*x-2.7
DEF k(x)=13/30*x^2-5/8*x-2.7
DEF l(x)=-13/30*x^2+5/8*x+2.7
DEF m(x)=-13/30*x^2-5/8*x+2.7
DEF n(y)=13/30*y^2+7/6*y
DEF o(y)=13/30*y^2-7/6*y
DEF p(y)=-13/30*y^2+7/6*y
DEF q(y)=-13/30*y^2-7/6*y
DEF r(y)=13/30*y^2+5/8*y-2.7
DEF s(y)=13/30*y^2-5/8*y-2.7
DEF t(y)=-13/30*y^2+5/8*y+2.7
DEF u(y)=-13/30*y^2-5/8*y+2.7
SET WINDOW -5,5,-5,5
FOR x=-5 TO 0 STEP 0.01
PLOT LINES: x,f(x);
NEXT x
PLOT LINES
FOR x=0 TO 5 STEP 0.01
PLOT LINES: x,g(x);
NEXT x
PLOT LINES
FOR x=0 TO 5 STEP 0.01
PLOT LINES: x,h(x);
NEXT x
PLOT LINES
FOR x=-5 TO 0 STEP 0.01
PLOT LINES: x,i(x);
NEXT x
PLOT LINES
FOR x=-5 TO 0 STEP 0.01
PLOT LINES: x,j(x);
NEXT x
PLOT LINES
FOR x=0 TO 5 STEP 0.01
PLOT LINES: x,k(x);
NEXT x
PLOT LINES
FOR x=0 TO 5 STEP 0.01
PLOT LINES: x,l(x);
NEXT x
PLOT LINES
FOR x=-5 TO 0 STEP 0.01
PLOT LINES: x,m(x);
NEXT x
PLOT LINES
FOR y=-5 TO 0 STEP 0.01
PLOT LINES: n(y),y;
NEXT y
PLOT LINES
FOR y=0 TO 5 STEP 0.01
PLOT LINES: o(y),y;
NEXT y
PLOT LINES
FOR y=0 TO 5 STEP 0.01
PLOT LINES: p(y),y;
NEXT y
PLOT LINES
FOR y=-5 TO 0 STEP 0.01
PLOT LINES: q(y),y;
NEXT y
PLOT LINES
FOR y=-5 TO 0 STEP 0.01
PLOT LINES: r(y),y;
NEXT y
PLOT LINES
FOR y=0 TO 5 STEP 0.01
PLOT LINES: s(y),y;
NEXT y
PLOT LINES
FOR y=0 TO 5 STEP 0.01
PLOT LINES: t(y),y;
NEXT y
PLOT LINES
FOR y=-5 TO 0 STEP 0.01
PLOT LINES: u(y),y;
NEXT y
END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。