陰関数のグラフ

 投稿者:F.E  投稿日:2010年10月21日(木)14時01分21秒
  初歩的なことですいません。
十進BASICで陰関数(例えば(x-2)^2+(y-2)^2=25という円)のグラフを描く
ときはどんなプログラムを書けばよろしいでしょうか。
 

Re: 陰関数のグラフ

 投稿者:山中和義  投稿日:2010年10月21日(木)14時49分35秒
  > No.1425[元記事へ]

F.Eさんへのお返事です。

> 十進BASICで陰関数(例えば(x-2)^2+(y-2)^2=25という円)のグラフを描く
> ときはどんなプログラムを書けばよろしいでしょうか。

難しいです。うまく描くのに工夫が必要です。
!陰関数のグラフ

DEF f(x,y)=(x-2)^2+(y-2)^2-25 !(x-2)^2+(y-2)^2=25の場合

LET a=-5 !x=[-5,10]
LET b=10
LET c=-5 !y=[-5,10]
LET d=10

SET WINDOW a,b, c,d !表示領域を指定する
DRAW grid !座標を描く

SET POINT STYLE 1 !ドット形状

ASK PIXEL SIZE (a,c; b,d) sx,sy !走査するドット数を得る
PRINT sx; sy !debug
FOR i=0 TO sy
   LET y=WORLDY(i) !xy座標に変換する

   LET z0=f(WORLDY(0),y) !画面の左端での関数値
   FOR j=0 TO sx
      LET x=WORLDX(j)

      LET z=f(x,y)
      IF z*z0<0 THEN PLOT POINTS: x,y !符号が変わる

      LET z0=z
   NEXT j

NEXT i

END
 

陰関数のグラフ

 投稿者:F.E  投稿日:2010年10月21日(木)15時26分35秒
  丁寧なプログラムを作っていただいたことに感謝します。
お手数をおかけしました。
 

戻る