素数の生成
東京都立杉並工科高等学校で非常勤教員をしております
佐々木久です。
エラトステネスの篩を用いて100以下の素数をプロットするスクリプトを書くことができました。
この次の目標は、素数階段の表示です。
佐々木久です。
エラトステネスの篩を用いて100以下の素数をプロットするスクリプトを書くことができました。
この次の目標は、素数階段の表示です。
ベクトルの存在範囲
∆ABCにおいて，OP=sOA+tOB，s>=0，t>=0，s+t=2となる点Pの存在範囲を図示する問題のスクリプトを作っているところです。
以下のスクリプトでは平行四辺形になってしまうのですが，何が足りないか教えていただけないでしょうか？
//描く
calc
ClrAImg
for s:=0 to 2 step 0.05
for t:=0 to 2 step 0.05
P:=sOA+(t-s)OB
draw
next s
next t
while s+t=2
以下のスクリプトでは平行四辺形になってしまうのですが，何が足りないか教えていただけないでしょうか？
//描く
calc
ClrAImg
for s:=0 to 2 step 0.05
for t:=0 to 2 step 0.05
P:=sOA+(t-s)OB
draw
next s
next t
while s+t=2
Re: ベクトルの存在範囲
ともだ 
2023/05/08(Mon) 23:06 No.2868
sとtが独立に，それぞれ０から２まで0.05の刻み幅で動くのですから，平行四辺形になるのは当然です。
ｓ＋ｔ＝２ のときだけを考えておられるのなら，
calc
ClrAImg
for s:=0 to 2 step 0.05
t := 2-s
draw
next s
で足りますが・・・
ｓ＋ｔ＝２ のときだけを考えておられるのなら，
calc
ClrAImg
for s:=0 to 2 step 0.05
t := 2-s
draw
next s
で足りますが・・・
ともだ 2023/05/08(Mon) 23:06 No.2868
Re: ベクトルの存在範囲
土佐祥一 2023/05/14(Sun) 15:15 No.2869
ありがとうございます。先生に教えていただいたスクリプトでは線分だけでした。
「C (2,0）D (0,2)とすると，△OCDの周および内部」をスクリプトはどうすればできるのでしょうか？
「C (2,0）D (0,2)とすると，△OCDの周および内部」をスクリプトはどうすればできるのでしょうか？
土佐祥一 2023/05/14(Sun) 15:15 No.2869
Re: ベクトルの存在範囲
ともだ 2023/05/15(Mon) 19:09 No.2873
これはスクリプトをどの様に書くかではなく，領域をどの様に表現するかという問題です。
もっとも簡単なのは，条件を満たしている時だけ，描くことです。
//描く
calc
ClrAImg
for s:=0 to 2 step 0.2
for t:=0 to 2 step 0.2
if s+t <= 2 then draw
next s
next t
//描く
calc
ClrAImg
for s:=0 to 2 step 0.05
for t:=0 to 2 step 0.05
P:=sOA+(t-s)OB
draw
next s
next t
while s+t=2
もっとも簡単なのは，条件を満たしている時だけ，描くことです。
//描く
calc
ClrAImg
for s:=0 to 2 step 0.2
for t:=0 to 2 step 0.2
if s+t <= 2 then draw
next s
next t
//描く
calc
ClrAImg
for s:=0 to 2 step 0.05
for t:=0 to 2 step 0.05
P:=sOA+(t-s)OB
draw
next s
next t
while s+t=2
ともだ 2023/05/15(Mon) 19:09 No.2873
Re: ベクトルの存在範囲
土佐祥一 2023/05/15(Mon) 20:02 No.2874
ありがとうございました。うまいこといきました。
土佐祥一 2023/05/15(Mon) 20:02 No.2874
直線BCに関する点Aの対称点Dの求め方
Grapesは平成10年から現在まで利用させていただいております。
とても使い勝手がよく，感謝しております。
さて，タイトルについて，
①まず，H＝垂足(A,B,C)を求め、D＝分点(A,H,2,-1)
②D=rot(A,B,-2Acos(([AB]^2+[BC]^2-[CA]^2）/2[AB][BC]))
Grapesでは使用できる点が22個（A～V）しかないので，
使用する点の個数が少ないときは①を利用しています。
ところが，使用する点が多いときは②を利用すること
になりますが，入力が大変です。
質問1
他に対称点を求める方法はありますか。
要望1
線対称の点を求めるコマンドを追加してもらえたらありがたいです。
②は，D=Sym(A,B,C)のような。
※Sym：Symmetric
要望2
使用できる点の数を増やしてほしい。
W，X，Y，Zの4つが追加になるだけでとても便利になります。
要望3
点の大きさや線の太さなど一括変換できる機能があると便利です。
（実態）
線を一番細く設定して印刷したとき，印刷されない線があることがあります。
（線を一番細く設定してPDFに変換したとき，表示されない線があることがあります。）
その際，線を1段階太くする訳ですが，ひとつひとつ変更をするのがとても面倒です。
点の大きさについても同様です。
以上，ご検討をお願いします。
とても使い勝手がよく，感謝しております。
さて，タイトルについて，
①まず，H＝垂足(A,B,C)を求め、D＝分点(A,H,2,-1)
②D=rot(A,B,-2Acos(([AB]^2+[BC]^2-[CA]^2）/2[AB][BC]))
Grapesでは使用できる点が22個（A～V）しかないので，
使用する点の個数が少ないときは①を利用しています。
ところが，使用する点が多いときは②を利用すること
になりますが，入力が大変です。
質問1
他に対称点を求める方法はありますか。
要望1
線対称の点を求めるコマンドを追加してもらえたらありがたいです。
②は，D=Sym(A,B,C)のような。
※Sym：Symmetric
要望2
使用できる点の数を増やしてほしい。
W，X，Y，Zの4つが追加になるだけでとても便利になります。
要望3
点の大きさや線の太さなど一括変換できる機能があると便利です。
（実態）
線を一番細く設定して印刷したとき，印刷されない線があることがあります。
（線を一番細く設定してPDFに変換したとき，表示されない線があることがあります。）
その際，線を1段階太くする訳ですが，ひとつひとつ変更をするのがとても面倒です。
点の大きさについても同様です。
以上，ご検討をお願いします。
Re: 直線BCに関する点Aの対称点D
ともだ 2023/05/15(Mon) 17:41 No.2871
➀の改良版が最も簡単かと思います。
直線BCに関する点Aの対称点をDとすれば
D =mid(A,Perp(A,B,C),2 ,-1)
または
D = 2Perp(A,B,C) - A
です。
直線BCに関する点Aの対称点をDとすれば
D =mid(A,Perp(A,B,C),2 ,-1)
または
D = 2Perp(A,B,C) - A
です。
ともだ 2023/05/15(Mon) 17:41 No.2871
Re: 要望3
ともだ 2023/05/15(Mon) 18:45 No.2872
メニューで
［表示］→［拡大表示］
とすると，100%～200%まで 25%刻みで，
式，パラメータ値，グラフ，ステッカー，ラベル
が拡大表示されます。
拡大したグラフは印刷やコピペに反映されますが，保存データには影響しません。
この拡大表示は，以前のプレゼンテーションモードを発展させたもので，拡大の対象が増え，拡大率を選べるようになりました。
［表示］→［拡大表示］
とすると，100%～200%まで 25%刻みで，
式，パラメータ値，グラフ，ステッカー，ラベル
が拡大表示されます。
拡大したグラフは印刷やコピペに反映されますが，保存データには影響しません。
この拡大表示は，以前のプレゼンテーションモードを発展させたもので，拡大の対象が増え，拡大率を選べるようになりました。
ともだ 2023/05/15(Mon) 18:45 No.2872
ベクトルと1次結合
grapesのダウンロードをして出てくるサンプルにある「ベクトルと1次結合」のファイルの真似をして自分でつくったのですが，平行な斜めの格子線を作ることができませんでした。
関数定義をf(x,y)=xOA+yOB，曲線をS=h(Cell(u,1),Cell(u,2))，I=h(Cell(u,5),Cell(u,6))，J=h(Cell(u,5),Cell(u,6))を入力したのですが，うまくいきません。どうすればいいのでしょうか？
関数定義をf(x,y)=xOA+yOB，曲線をS=h(Cell(u,1),Cell(u,2))，I=h(Cell(u,5),Cell(u,6))，J=h(Cell(u,5),Cell(u,6))を入力したのですが，うまくいきません。どうすればいいのでしょうか？
Re: ベクトルと1次結合
> f(x,y)=xOA+yOB
> 曲線をS=h(Cell(u,1)
関数 h って何ですか？ fの間違い？
Cellはテーブルを参照する関数ですが，テーブルにはどのようなデータがあるのでしょうか？
？
> 曲線をS=h(Cell(u,1)
関数 h って何ですか？ fの間違い？
Cellはテーブルを参照する関数ですが，テーブルにはどのようなデータがあるのでしょうか？
？
Re: ベクトルと1次結合
テーブルはCeil(i，j)=3-xです。
grapesのダウンロードをして出てくるサンプルである「ベクトルと1次結合」のファイルそのまま使っています。
写真の画像はgrapesのダウンロードをして出てくるサンプルにある「ベクトルと1次結合」のファイルです。
よろしくお願いいたします。
grapesのダウンロードをして出てくるサンプルである「ベクトルと1次結合」のファイルそのまま使っています。
写真の画像はgrapesのダウンロードをして出てくるサンプルにある「ベクトルと1次結合」のファイルです。
よろしくお願いいたします。
Re: ベクトルと1次結合
ともだ 2023/04/30(Sun) 00:43 No.2863
サンプルファイルのテーブルには，格子線のもとになるデータが入っています。添付の画像の５列目と６列目のデータです。
第１行は（-6,-6），第２行は（-6,10）を表していて，この2点を結ぶとy軸に平行な線分になります。
その下のデータは（-5,-6）と（-5,10）で，先ほどの線分の右隣りに位置する線分になります。
Iはこのデータを読み取って，結んでいます。Iを関数hを外して
I = (Cell(u,5),Cell(u,6))
とすると，y軸に平行な格子線が描かれるはずです。
そして
I = h(Cell(u,5),Cell(u,6))
とすることで，ベクトルOAとOBを基底とする斜交座標に変換されます。
（h(x,y) = xOA + yOB です）
なお，IとJはｘとｙを逆にしています。
J = h(Cell(u,6),Cell(u,5))
格子線が表示されないのは，格子線の両端の座標が（テーブルの第5列と6列に）入っていないからではないでしょうか。
第１行は（-6,-6），第２行は（-6,10）を表していて，この2点を結ぶとy軸に平行な線分になります。
その下のデータは（-5,-6）と（-5,10）で，先ほどの線分の右隣りに位置する線分になります。
Iはこのデータを読み取って，結んでいます。Iを関数hを外して
I = (Cell(u,5),Cell(u,6))
とすると，y軸に平行な格子線が描かれるはずです。
そして
I = h(Cell(u,5),Cell(u,6))
とすることで，ベクトルOAとOBを基底とする斜交座標に変換されます。
（h(x,y) = xOA + yOB です）
なお，IとJはｘとｙを逆にしています。
J = h(Cell(u,6),Cell(u,5))
格子線が表示されないのは，格子線の両端の座標が（テーブルの第5列と6列に）入っていないからではないでしょうか。
ともだ 2023/04/30(Sun) 00:43 No.2863
Re: ベクトルと1次結合
ありがとうございました。うまいこといきました。
動作チェック
転送確認
最寄りの曲線に吸い寄せられる
ご無沙汰しております。お元気ですか。
東京都立杉並工科高等学校の佐々木久です。
GRAPES 7.84 が大進化を遂げて、びっくりしています。
特に、打った点が最寄りの曲線に吸い寄せられて、曲線上を動く機能は素晴らしいです。今後、適当に２点を打って線で結び、その線分の近くに打った点をその線分上で動かすということも可能になるのでしょうか。
東京都立杉並工科高等学校の佐々木久です。
GRAPES 7.84 が大進化を遂げて、びっくりしています。
特に、打った点が最寄りの曲線に吸い寄せられて、曲線上を動く機能は素晴らしいです。今後、適当に２点を打って線で結び、その線分の近くに打った点をその線分上で動かすということも可能になるのでしょうか。
Re: 最寄りの曲線に吸い寄せら
ともだ 2023/04/16(Sun) 00:03 No.2853
いまのところ，予定はありませんが・・・
確かにそういう風になると便利ですね。
確かにそういう風になると便利ですね。
ともだ 2023/04/16(Sun) 00:03 No.2853
図形の回転
大変お世話になっています。
三角形や四角形など、ある図形を指定して，回転させるコマンドを作る予定はありますか。
三角形や四角形など、ある図形を指定して，回転させるコマンドを作る予定はありますか。
Re: 図形の回転
ともだ 2023/04/15(Sat) 23:44 No.2852
いまのところ，予定はありません，
ともだ 2023/04/15(Sat) 23:44 No.2852
商用利用につきまして
作成したグラフの商用利用は可能でしょうか？ 商用利用のためには、なんらかの手続きが必要でしょうか？ 既出QAがありましたら、教えてください。以上ですが、よろしくお願いいたします。
Re: 商用利用につきまして
GRAPESを使て作成したデータは，作成者が自身の責任の下で自由に使うことができます。
外部アカウントとのリンク
今Googleとリンクしていますがリンクを外すことはできますか．
Re: 外部アカウントとのリンク
もう少し詳しく教えて下さし。