超初心者でこのような愚問で失礼します

　　超初心者でこのような愚問で失礼します 森貞　敦子 2004/05/23 15:21:09 
　　└実行しようとしたプログラム全体を貼り付け... 白石　和夫 2004/05/23 16:13:21 
　　　└早速のご回答ありはとうがざいました。掲示... 森貞　敦子 2004/05/23 17:58:43 
　　　　└貼り付いたら，次にAPPENDボタンをクリック... 白石　和夫 2004/05/23 18:06:03 
　　　　　└PICTURED(n) 森貞　敦子 2004/05/23 23:58:04 
　　　　　　└最初の質問にあった 青木太一 2004/05/24 03:42:14 
　　　　　　　└あ、サンプルのドラゴン曲線のプログラム 青木 太一 2004/05/24 03:52:07 
　　　　　　　　└ご指摘ありがとうございました。 森貞　敦子 2004/05/24 15:23:13 
　　　　　　　　　└PICTURED(n,c) 森貞　敦子 2004/05/24 16:30:23 
　　　　　　　　　　└SETWINDOWleft,right,-h,h 哲 2004/05/24 18:43:35 
　　　　　　　　　　　└だから、実行されなかったわけですか。 森貞　敦子 2004/05/24 23:19:47

　　超初心者でこのような愚問で失礼します 森貞　敦子 2004/05/23 15:21:09  ツリーへ

超初心者でこのような愚問で失礼します 返事を書く

森貞　敦子 2004/05/23 15:21:09

　　小学校にあった本より、BASIKについて、
　ごく最近興味を持ちました。「十進BASIK」
　を、DLさせて頂き、ファイルにあるプログ
　ラムを同じようにうちましたが、「ここに　
　は、「DRAW gasket(n+1) WITH SCALE(1/2)
　は書けません」と出て、実効されません。
　なぜでしょう。

　　└実行しようとしたプログラム全体を貼り付け... 白石　和夫 2004/05/23 16:13:21  ツリーへ

Re: 超初心者でこのような愚問で失礼します 返事を書く

白石　和夫 2004/05/23 16:13:21

実行しようとしたプログラム全体を貼り付けてください。
十進BASICの編集メニューでまず「すべてを選択」を実行し，次に編集メニューで「コピー」を実行。
そして，この掲示板のメッセージの枠内でマウスを右クリックして「貼り付け」を実行すればできます。

　　　└早速のご回答ありはとうがざいました。掲示... 森貞　敦子 2004/05/23 17:58:43  ツリーへ

Re: 実行しようとしたプログラム全体を貼り付け... 返事を書く

森貞　敦子 2004/05/23 17:58:43

　早速のご回答ありはとうがざいました。掲示板に貼り付けまではできましたがその後が分かりません。
PCもふなれなものですから。

　　　　└貼り付いたら，次にAPPENDボタンをクリック... 白石　和夫 2004/05/23 18:06:03  ツリーへ

Re: 早速のご回答ありはとうがざいました。掲示... 返事を書く

白石　和夫 2004/05/23 18:06:03

貼り付いたら，次にAPPENDボタンをクリックすることで掲示板に書き込めませんか？

　　　　　└PICTURED(n) 森貞　敦子 2004/05/23 23:58:04  ツリーへ

Re: 貼り付いたら，次にAPPENDボタンをクリック... 返事を書く

森貞　敦子 2004/05/23 23:58:04

PICTURE D(n)
IF n=6 THEN
PLOT POINTs:0,0
ELSE
IF n=6 THEN SET COLOR MIX(1) RND,RND,RND
DRAW D(n+1) WITH ROTWTE (alfa)*SCALE(r)
DRAW D(n+1)SHIFT(-1,0)*ROTATE(alfa)*SCALE(r)*SHIFT(1,0)
END IF
END PICTURE
RANDOMIZE
SET WINDOW -1/2,3/2,-1,1
SET POINT STYLE1
LET alfaPI/4
LET r=1/SR(2)
DRAW D(1)
END

　　　　　　└最初の質問にあった 青木太一 2004/05/24 03:42:14  ツリーへ

Re: PICTURED(n) 返事を書く

青木太一 2004/05/24 03:42:14

最初の質問にあった
「DRAW gasket(n+1) WITH SCALE(1/2)」
という文がないようですが？

あと、ところどころミスがありましたね。
単純ミスを修正すると以下のようになりました
(何をするプログラムなのかはまだよくわかりませんが)

PICTURE D(n)
IF n=6 THEN
PLOT POINTs:0,0
ELSE
IF n=6 THEN SET COLOR MIX(1) RND,RND,RND
DRAW D(n+1) WITH ROTaTE (alfa)*SCALE(r) !「ROTWTE」になっていた。正解は「ROTATE」
DRAW D(n+1) with SHIFT(-1,0)*ROTATE(alfa)*SCALE(r)*SHIFT(1,0)! 「with」が抜けていた
END IF
END PICTURE
RANDOMIZE
SET WINDOW -1/2,3/2,-1,1
SET POINT STYLE 1
LET alfa=PI/4!「=」が抜けていた
LET r=1/SQR(2)!「SR」になっていた。おそらく平方根関数の「SQR」としたかったのでしょう
DRAW D(1)
END

　　　　　　　└あ、サンプルのドラゴン曲線のプログラム 青木 太一 2004/05/24 03:52:07  ツリーへ

Re: 最初の質問にあった 返事を書く

青木太一 2004/05/24 03:52:07

あ、サンプルのドラゴン曲線のプログラム
BASICw32\FRACTAL\DRAGONC.BASを書き写していたのですね。
n=6だとなんだかわかりませんでした。失礼。

　　　　　　　　└ご指摘ありがとうございました。 森貞　敦子 2004/05/24 15:23:13  ツリーへ

Re: あ、サンプルのドラゴン曲線のプログラム 返事を書く

森貞　敦子 2004/05/24 15:23:13

ご指摘ありがとうございました。
まだまだこの程度のことも、できな
い未熟者です。

　　　　　　　　　└PICTURED(n,c) 森貞　敦子 2004/05/24 16:30:23  ツリーへ

Re: ご指摘ありがとうございました。 返事を書く

森貞　敦子 2004/05/24 16:30:23

PICTURE D(n,c)
IF n=depth THEN
PLOT POINTS:0,0
ELSE
IF n=6 THEN SET POINT COLOR MOD(c,13)+2
DRAW D(n+1,2*c)WITH ROTATE (alfa)*SCALE (r)
DRAW D(n+1,2*c+1)WITH SHIFT (-1,0)*ROTATE (alfa)*SCALE(r)*SHIFT(1,0)
END IF
END PICTURE
LET left=-1/2
LET right=3/2
LET h=1
SET WINDOW left,right,-h,h
SET POINT STYLE1
LET alfa=PI/4
LET r=1/SQR(2)
ASK PIXEL SIZE(left,-h;right,h)px,py
LET depth=CEIL(-LOG(px)/LOG(r))
DRAW D(1,0)
END

　　　　　　　　　　└SETWINDOWleft,right,-h,h 哲 2004/05/24 18:43:35  ツリーへ

Re: PICTURED(n,c) 返事を書く

哲 2004/05/24 18:43:35

SET WINDOW left,right,-h,h
SET POINT STYLE1
の部分を

SET POINT STYLE 1
としてください。（スペースが必要）

　　　　　　　　　　　└だから、実行されなかったわけですか。 森貞　敦子 2004/05/24 23:19:47  ツリーへ

Re: SETWINDOWleft,right,-h,h 返事を書く

森貞　敦子 2004/05/24 23:19:47

　だから、実行されなかったわけですか。
ご指摘ありがとうがざいました。
納得しました。ちなみに、この一行を、
削除して実行してみました。そしたら、
なんとも情けないものができました。

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

超初心者でこのような愚問で失礼します	返事を書く
森貞　敦子 2004/05/23 15:21:09
小学校にあった本より、BASIKについて、　ごく最近興味を持ちました。「十進BASIK」　を、DLさせて頂き、ファイルにあるプログ　ラムを同じようにうちましたが、「ここに　　は、「DRAW gasket(n+1) WITH SCALE(1/2) 　は書けません」と出て、実効されません。　なぜでしょう。

Re: 超初心者でこのような愚問で失礼します	返事を書く
白石　和夫 2004/05/23 16:13:21
実行しようとしたプログラム全体を貼り付けてください。十進BASICの編集メニューでまず「すべてを選択」を実行し，次に編集メニューで「コピー」を実行。そして，この掲示板のメッセージの枠内でマウスを右クリックして「貼り付け」を実行すればできます。

Re: 実行しようとしたプログラム全体を貼り付け...	返事を書く
森貞　敦子 2004/05/23 17:58:43
早速のご回答ありはとうがざいました。掲示板に貼り付けまではできましたがその後が分かりません。 PCもふなれなものですから。

Re: 早速のご回答ありはとうがざいました。掲示...	返事を書く
白石　和夫 2004/05/23 18:06:03
貼り付いたら，次にAPPENDボタンをクリックすることで掲示板に書き込めませんか？

Re: 貼り付いたら，次にAPPENDボタンをクリック...	返事を書く
森貞　敦子 2004/05/23 23:58:04
PICTURE D(n) IF n=6 THEN PLOT POINTs:0,0 ELSE IF n=6 THEN SET COLOR MIX(1) RND,RND,RND DRAW D(n+1) WITH ROTWTE (alfa)SCALE(r) DRAW D(n+1)SHIFT(-1,0)ROTATE(alfa)SCALE(r)SHIFT(1,0) END IF END PICTURE RANDOMIZE SET WINDOW -1/2,3/2,-1,1 SET POINT STYLE1 LET alfaPI/4 LET r=1/SR(2) DRAW D(1) END

Re: PICTURED(n)	返事を書く
青木太一 2004/05/24 03:42:14
最初の質問にあった「DRAW gasket(n+1) WITH SCALE(1/2)」という文がないようですが？あと、ところどころミスがありましたね。単純ミスを修正すると以下のようになりました (何をするプログラムなのかはまだよくわかりませんが) PICTURE D(n) IF n=6 THEN PLOT POINTs:0,0 ELSE IF n=6 THEN SET COLOR MIX(1) RND,RND,RND DRAW D(n+1) WITH ROTaTE (alfa)SCALE(r) !「ROTWTE」になっていた。正解は「ROTATE」 DRAW D(n+1) with SHIFT(-1,0)ROTATE(alfa)SCALE(r)SHIFT(1,0)! 「with」が抜けていた END IF END PICTURE RANDOMIZE SET WINDOW -1/2,3/2,-1,1 SET POINT STYLE 1 LET alfa=PI/4!「=」が抜けていた LET r=1/SQR(2)!「SR」になっていた。おそらく平方根関数の「SQR」としたかったのでしょう DRAW D(1) END

Re: 最初の質問にあった	返事を書く
青木太一 2004/05/24 03:52:07
あ、サンプルのドラゴン曲線のプログラム BASICw32\FRACTAL\DRAGONC.BASを書き写していたのですね。 n=6だとなんだかわかりませんでした。失礼。

Re: あ、サンプルのドラゴン曲線のプログラム	返事を書く
森貞　敦子 2004/05/24 15:23:13
ご指摘ありがとうございました。まだまだこの程度のことも、できない未熟者です。

Re: ご指摘ありがとうございました。	返事を書く
森貞　敦子 2004/05/24 16:30:23
PICTURE D(n,c) IF n=depth THEN PLOT POINTS:0,0 ELSE IF n=6 THEN SET POINT COLOR MOD(c,13)+2 DRAW D(n+1,2c)WITH ROTATE (alfa)SCALE (r) DRAW D(n+1,2c+1)WITH SHIFT (-1,0)ROTATE (alfa)SCALE(r)SHIFT(1,0) END IF END PICTURE LET left=-1/2 LET right=3/2 LET h=1 SET WINDOW left,right,-h,h SET POINT STYLE1 LET alfa=PI/4 LET r=1/SQR(2) ASK PIXEL SIZE(left,-h;right,h)px,py LET depth=CEIL(-LOG(px)/LOG(r)) DRAW D(1,0) END

Re: PICTURED(n,c)	返事を書く
哲 2004/05/24 18:43:35
SET WINDOW left,right,-h,h SET POINT STYLE1 の部分を SET POINT STYLE 1 としてください。（スペースが必要）

Re: SETWINDOWleft,right,-h,h	返事を書く
森貞　敦子 2004/05/24 23:19:47
だから、実行されなかったわけですか。ご指摘ありがとうがざいました。納得しました。ちなみに、この一行を、削除して実行してみました。そしたら、なんとも情けないものができました。