新しく発言する EXIT インデックスへ
半円を描きたい
　　半円を描きたい 志貴 2006/11/21 13:53:04 
　　└DRAWcircle、DRAWdiskのサンプルより 山中和義 2006/11/21 14:13:17 
　　　└お早い返信ありがとうございます。こんなに... 志貴 2006/11/21 21:34:30 

　　半円を描きたい 志貴 2006/11/21 13:53:04  ツリーへ

半円を描きたい 返事を書く
志貴 2006/11/21 13:53:04
10進Basicで半円を描きたいのですが、どのように打ち込めばいいのかわかりません　教えてもらえないでしょうか？ 

　　└DRAWcircle、DRAWdiskのサンプルより 山中和義 2006/11/21 14:13:17  ツリーへ

Re: 半円を描きたい 返事を書く
山中和義 2006/11/21 14:13:17
DRAW circle、DRAW diskのサンプルより

SET WINDOW -2,2,-2,2
DRAW grid
DRAW circle
!DRAW disk
END

EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR x=0 TO 360 !<================ここが角度
PLOT LINES:COS(x),SIN(x);
NEXT x
END PICTURE

EXTERNAL PICTURE disk
OPTION ANGLE DEGREES
DIM p(360,2)
FOR x=1 TO 360 !<================ここが角度
LET p(x,1)=COS(x)
LET p(x,2)=SIN(x)
NEXT x
MAT PLOT AREA:p
END PICTURE
 

　　　└お早い返信ありがとうございます。こんなに... 志貴 2006/11/21 21:34:30  ツリーへ

Re: DRAWcircle、DRAWdiskのサンプルより 返事を書く
志貴 2006/11/21 21:34:30
お早い返信ありがとうございます。こんなに速いとは思わなくて返信が遅れてすみません。
すごく役に立ちましたありがとうございます

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