近況報告です
グレイプスソフトはすごいですね。
少しずつですが数学の応用に使い始めております。
連続画像を汎用のパワーポイントに簡便に反映できるといいですね。
これは質問ですが,
もう一つですが, ２次平面で, ｘ軸もｙ軸も虚数軸表現する方法がありませんか。
少しずつですが数学の応用に使い始めております。
連続画像を汎用のパワーポイントに簡便に反映できるといいですね。
これは質問ですが,
もう一つですが, ２次平面で, ｘ軸もｙ軸も虚数軸表現する方法がありませんか。
Re: 近況報告です
ともだ 
2015/04/22(Wed) 15:12 No.2123
パワポへの組み込みは課題です。
> ２次平面で, ｘ軸もｙ軸も虚数軸表現する方法がありませんか。
申し訳ありませんが，理解できません。
この場合，点の座標は何を表すことになるのでしょうか？
ちなみに，ｘが実軸でyが虚軸の場合，点(x,y)は複素数 x+yi を表します。
> ２次平面で, ｘ軸もｙ軸も虚数軸表現する方法がありませんか。
申し訳ありませんが，理解できません。
この場合，点の座標は何を表すことになるのでしょうか？
ちなみに，ｘが実軸でyが虚軸の場合，点(x,y)は複素数 x+yi を表します。
ともだ 2015/04/22(Wed) 15:12 No.2123
Re: 近況報告です
「心」の定義をするためにいいモデルを考えています。
I^2空間を利用して心の転移を説明しやすいのかなと思って,
あれば使ってみようか, お聞きしたまでです。
I^2空間を利用して心の転移を説明しやすいのかなと思って,
あれば使ってみようか, お聞きしたまでです。
GRAPES 703A版をCD購入依頼
７０３A版をダウンロードしインストールを何回繰り返し試みましたが正常に動作にしません。 GRAPES７０３Aをぜひ利用させていただきたく願っております。できますればCD版で購入したいと思っています。 お手数をおかけしますが是非とも宜しくお願い申し上げます。
不躾で御座いますが 友田勝久 先生 宜しくお願い致します。
不躾で御座いますが 友田勝久 先生 宜しくお願い致します。
Re: GRAPES 703A版をCD購入依頼
どので動作がおかしくなるのかを具体的にお教えください。
また，ＯＳのバージョンをお願いします。
また，ＯＳのバージョンをお願いします。
キラキラ星
1/fゆらぎを利用して星の瞬きを表現したいのですが、うまくいきません。
理由は、たくさんの星を描きたいので残像を利用しているのですが、うまく制御できていないからです。
この残像の位置を変えずに、星の光の強度を変化させたいのです。
何か良い方法があるでしょうか？
他の位置に星を描くスクリプトを書くことを試してみたのですが、
うまく表現できませんでした。
よろしくお願いします。
以前ＧＲＡＰＥＳフォーラムで発表した「ろうそくのゆらぎ」は、
残像を利用していなかったので、表現できたのですが。
理由は、たくさんの星を描きたいので残像を利用しているのですが、うまく制御できていないからです。
この残像の位置を変えずに、星の光の強度を変化させたいのです。
何か良い方法があるでしょうか？
他の位置に星を描くスクリプトを書くことを試してみたのですが、
うまく表現できませんでした。
よろしくお願いします。
以前ＧＲＡＰＥＳフォーラムで発表した「ろうそくのゆらぎ」は、
残像を利用していなかったので、表現できたのですが。
[添付]: 7374 bytes
Re: キラキラ星
ともだ 2015/03/28(Sat) 14:03 No.2115
残像の色を後で変えることはできません。やっぱり残像ですから。
星の位置や星の明るさをテーブルに記録しておいて，使う方法はダメでしょうか。
点Pは残像を残す設定にして，
//星の位置のセット
SetArea(0,0,1,1)
for n := 1 to 最後の星の番号
Cells(n,1) := rnd(1) //x座標
Cells(n,2) := rnd(1) //y座標
Cells(n,3) := ??? //星固有の定数
Cells(n,4) := ??? //現在の明るさ
next
n番目の星について，現在の明るさとその星固有の定数から，次の明るさを決める関数を
f(Cells(n,3),Cells(N,4))
で求められるように，関数fを作っておきます。
//星を描く（1回分）
ClrAImgData
for n := 1 to 最後の星の番号
P := (Cells(n,1), Cells(n,2))
SetColor(P , f(Cells(n,3),Cells(N,4)))
Calc
next
redresh
ClrAamg ではなく ClrAImgData を使ってください。
ClrAimg はすぐにその場で残像データを消してその結果を描画するので，次の描画が終わるまでちらつきが出ます。ClrAImgData は残像データを消しますが，次のdraw(またはRefresh)が実行されるまで再描画しません。
同じ理由ですべての残像描画が終わるまで，drawを使わずにCalcを使ってください。
星の位置や星の明るさをテーブルに記録しておいて，使う方法はダメでしょうか。
点Pは残像を残す設定にして，
//星の位置のセット
SetArea(0,0,1,1)
for n := 1 to 最後の星の番号
Cells(n,1) := rnd(1) //x座標
Cells(n,2) := rnd(1) //y座標
Cells(n,3) := ??? //星固有の定数
Cells(n,4) := ??? //現在の明るさ
next
n番目の星について，現在の明るさとその星固有の定数から，次の明るさを決める関数を
f(Cells(n,3),Cells(N,4))
で求められるように，関数fを作っておきます。
//星を描く（1回分）
ClrAImgData
for n := 1 to 最後の星の番号
P := (Cells(n,1), Cells(n,2))
SetColor(P , f(Cells(n,3),Cells(N,4)))
Calc
next
redresh
ClrAamg ではなく ClrAImgData を使ってください。
ClrAimg はすぐにその場で残像データを消してその結果を描画するので，次の描画が終わるまでちらつきが出ます。ClrAImgData は残像データを消しますが，次のdraw(またはRefresh)が実行されるまで再描画しません。
同じ理由ですべての残像描画が終わるまで，drawを使わずにCalcを使ってください。
ともだ 2015/03/28(Sat) 14:03 No.2115
Re: キラキラ星
友田先生
早速に返信ありがとうございました。
アドバイスをいただいたように、テーブルを利用すると
うまく星を瞬かすことができました。ありがとうございました。
ところが、また新しい問題が発生しました。
背景を貼り付けたところ、「星を描く」というスクリプトボタンを押すと背景が消えてしまうのです。
そして、中断すると、また、背景が出てくるのです。
どのように対応すればよいのでしょうか？
よろしくお教えください。
早速に返信ありがとうございました。
アドバイスをいただいたように、テーブルを利用すると
うまく星を瞬かすことができました。ありがとうございました。
ところが、また新しい問題が発生しました。
背景を貼り付けたところ、「星を描く」というスクリプトボタンを押すと背景が消えてしまうのです。
そして、中断すると、また、背景が出てくるのです。
どのように対応すればよいのでしょうか？
よろしくお教えください。
[添付]: 120614 bytes
Re: キラキラ星
使用した背景画像です。
ミスタードーナツ
明けましておめでとうございます。
昔、正月になるとテレビで海老一染之助・染太郎が和傘の上で色々なものを回す太神楽という伝統演芸をやっていました。
3D-GRAPESの新しいバージョンでは
>２．図形をドラッグで回転中に，ボタンを離すと，いつまでも回り続けます。
ということなので
ミスタードーナツの「ポン・デ・リング」と「フレンチクルーラー」を回してみませんか。
まずは、「ポン・デ・リング」
参考資料
「MuPADで作るミスタードーナツ」
ttp://www.geocities.jp/ryoryomomo/menu2.html
ポン・デ・リングはブラジルのパンの一種「ポン・デ・ケージョ（Pão de queijo）」が由来/モデルとなっている。
ポルトガル語で「ポン・デ～（Pão de～）」は「～のパン」、「ケージョ（queijo）」は「チーズ」という意味があり、
「ポン・デ・ケージョ」はチーズパンを意味する。ポン・デ・リングは「リング状のパン」という意味。
昔、正月になるとテレビで海老一染之助・染太郎が和傘の上で色々なものを回す太神楽という伝統演芸をやっていました。
3D-GRAPESの新しいバージョンでは
>２．図形をドラッグで回転中に，ボタンを離すと，いつまでも回り続けます。
ということなので
ミスタードーナツの「ポン・デ・リング」と「フレンチクルーラー」を回してみませんか。
まずは、「ポン・デ・リング」
参考資料
「MuPADで作るミスタードーナツ」
ttp://www.geocities.jp/ryoryomomo/menu2.html
ポン・デ・リングはブラジルのパンの一種「ポン・デ・ケージョ（Pão de queijo）」が由来/モデルとなっている。
ポルトガル語で「ポン・デ～（Pão de～）」は「～のパン」、「ケージョ（queijo）」は「チーズ」という意味があり、
「ポン・デ・ケージョ」はチーズパンを意味する。ポン・デ・リングは「リング状のパン」という意味。
[添付]: 1832 bytes
Re: ミスタードーナツ
「フレンチクルーラー」
クルーラーの名前はシュー生地で作られたフレンチ・クルーラーと同様に、19世紀初頭の「曲がった」という意味のオランダ語"kruller"に由来している。
クルーラーは伝統的に、ドイツなどのヨーロッパ諸国で四旬節の前の脂肪源としてマルディグラの日に食べられており、
デンマークでは"Klejner "、スウェーデンでは"Klenäter"と呼ばれる。語源は共に低ザクセン語である。スカンディナヴィアでは一般的にクリスマスにクルーラーを食べる。
クルーラーの名前はシュー生地で作られたフレンチ・クルーラーと同様に、19世紀初頭の「曲がった」という意味のオランダ語"kruller"に由来している。
クルーラーは伝統的に、ドイツなどのヨーロッパ諸国で四旬節の前の脂肪源としてマルディグラの日に食べられており、
デンマークでは"Klejner "、スウェーデンでは"Klenäter"と呼ばれる。語源は共に低ザクセン語である。スカンディナヴィアでは一般的にクリスマスにクルーラーを食べる。
[添付]: 1843 bytes
Re: ミスタードーナツ
ともだ 2015/01/01(Thu) 23:07 No.2070
Downloadして楽しませていただきました。
おいしそうというより，とてもきれいな作品ですね。
おいしそうというより，とてもきれいな作品ですね。
ともだ 2015/01/01(Thu) 23:07 No.2070
Re: ミスタードーナツ
友田先生 今年もよろしくお願いいたします。
ヒツジは競争や争いごとといったトラブルを嫌う反面、チームワークを好み、団結をしたがるそうです。
団結は個人の力と努力に相乗効果をもたらし、けっして個人では成し遂げられない事も完遂させる力を持っています。
私も、GRAPESを通して、たくさんの人に出会うことができ、色々な楽しい体験をすることができました。
これからも、よろしくお願いいたします。
以前に作った画像処理のファイルで、年賀状を作ってみました。
ヒツジは競争や争いごとといったトラブルを嫌う反面、チームワークを好み、団結をしたがるそうです。
団結は個人の力と努力に相乗効果をもたらし、けっして個人では成し遂げられない事も完遂させる力を持っています。
私も、GRAPESを通して、たくさんの人に出会うことができ、色々な楽しい体験をすることができました。
これからも、よろしくお願いいたします。
以前に作った画像処理のファイルで、年賀状を作ってみました。
[添付]: 424380 bytes
replica cartier bracelet
I never comment on blogs, but this one is amazing! Thanks.
3D「表裏の区別」インターフェースについての報告
grapes3D v1.70
「表裏の区別」のユーザー・インターフェースがしっくり来ません。
というのは、上段：裏面色／下段：表面色となっており、おまけにデータパネルの曲面の文字色が上段の裏面色になっているためです。
上下段の役割を逆にした方が、使い勝手がよろしいかと思い報告します。
「表裏の区別」のユーザー・インターフェースがしっくり来ません。
というのは、上段：裏面色／下段：表面色となっており、おまけにデータパネルの曲面の文字色が上段の裏面色になっているためです。
上下段の役割を逆にした方が、使い勝手がよろしいかと思い報告します。
Re: 3D「表裏の区別」インターフェースについての報告
テツ 2015/03/18(Wed) 10:53 No.2104
投稿を取り消します。
マニュアルに曲面の表裏の方向があったので、検討してみます。
マニュアルに曲面の表裏の方向があったので、検討してみます。
テツ 2015/03/18(Wed) 10:53 No.2104
Re: 3D「表裏の区別」インターフェースについての報告
テツ 2015/03/18(Wed) 14:07 No.2105
お騒がせしました。
s、tパラメータの入れ替えで、表裏色を反転できました。
s、tパラメータの入れ替えで、表裏色を反転できました。
[添付]: 2348 bytes
テツ 2015/03/18(Wed) 14:07 No.2105
grapes3Dのarg関数の周期がπ？
まだ３Ｄを使い始めたばかりですが、気になった点があります。
arg(2d)関数の周期は２πですが、arg(3d)の方はπになっています。
π周期では情報が欠落していまい、予期せぬ挙動を示すことがあるのですが、これは仕様なのでしょうか？。
arg(2d)関数の周期は２πですが、arg(3d)の方はπになっています。
π周期では情報が欠落していまい、予期せぬ挙動を示すことがあるのですが、これは仕様なのでしょうか？。
Re: grapes3Dのarg関数の周期がπ？
テツ 2015/03/14(Sat) 07:58 No.2099
「π周期」は不適切なので訂正します。
ベクトルの回転方向が欠落してしまうという意味です。つまり
arg(P,Q) = arg(Q,P)
ベクトルの回転方向が欠落してしまうという意味です。つまり
arg(P,Q) = arg(Q,P)
テツ 2015/03/14(Sat) 07:58 No.2099
Re: grapes3Dのarg関数の周期がπ？
ともだ 2015/03/14(Sat) 11:33 No.2101
> arg(P,Q) = arg(Q,P)
これは仕様です。
確かにP,Qの回転方向が失われますが，言い換えると（この関数を作ったとき）回転方向を指定するいいやり方を思いつかなかったからです。
P,QをP×Q（外積）方向から見たときの回転角をθとすると，その逆方向から見たときは2πーθで，結果が違ってきますが，２つのパラメータP,Qだけからその方向を決める手立てがないからです。
対策ですが，argH(P)関数を使ってください。
これは，点Pの水平方向の偏角（0から2π）を表します。
２点PQを回転移動してxy平面（に平行な平面）に移すなど工夫が必要かと思いますがこれしかありません。
例：P,Qの角度を計測する軸となる方向のべクトルをAとします。
S = tilt(P,A,(0,0,1))
T = tilt(Q,A,(0,0,1))
これで，S,Tはxy平面上に移るので，求める角は
argH(T)ーargH(S)
となります。
ただしこれにも欠点があり，３点OPQが一直線上にあるとき，tilt関数がエラーを出してしまいます。今後の課題とさせていただきます。
これは仕様です。
確かにP,Qの回転方向が失われますが，言い換えると（この関数を作ったとき）回転方向を指定するいいやり方を思いつかなかったからです。
P,QをP×Q（外積）方向から見たときの回転角をθとすると，その逆方向から見たときは2πーθで，結果が違ってきますが，２つのパラメータP,Qだけからその方向を決める手立てがないからです。
対策ですが，argH(P)関数を使ってください。
これは，点Pの水平方向の偏角（0から2π）を表します。
２点PQを回転移動してxy平面（に平行な平面）に移すなど工夫が必要かと思いますがこれしかありません。
例：P,Qの角度を計測する軸となる方向のべクトルをAとします。
S = tilt(P,A,(0,0,1))
T = tilt(Q,A,(0,0,1))
これで，S,Tはxy平面上に移るので，求める角は
argH(T)ーargH(S)
となります。
ただしこれにも欠点があり，３点OPQが一直線上にあるとき，tilt関数がエラーを出してしまいます。今後の課題とさせていただきます。
ともだ 2015/03/14(Sat) 11:33 No.2101
Re: grapes3Dのarg関数の周期がπ？
テツ 2015/03/14(Sat) 16:04 No.2102
回答ありがとうございました。
それらの関数で検討してみます。
それらの関数で検討してみます。
テツ 2015/03/14(Sat) 16:04 No.2102
Wait(40)は具体的にどこに入れますか
お世話になります。
子供たちに見せるために図をゆっくり描いたという場合ですが,たとえば基礎テキストの２８Ｐ最後のスクリプト
//対角線を描く
s := ０
・・
とありますが, この場合具体的にはどこにどのように入れたら
いいのでしょうか。
子供たちに見せるために図をゆっくり描いたという場合ですが,たとえば基礎テキストの２８Ｐ最後のスクリプト
//対角線を描く
s := ０
・・
とありますが, この場合具体的にはどこにどのように入れたら
いいのでしょうか。
反形について
こんにちは。高校教員をしてます山下です。
Grapesを用いて、直線や円の反形の軌跡を表示させることは可能でしょうか？
例えば
xy平面上のOと異なる点Pに対し、直線OP上の点Qは
(1) OP×OQ=4
(2) QはＯに関してPと同じ側にある
の2つの条件を満たしている。点Pが直線ｘ＝１上を動くとき、点Qの軌跡を求めたい。
このような場合、点Qの情報をどのように打ち込めば良いのでしょうか？
Grapesを用いて、直線や円の反形の軌跡を表示させることは可能でしょうか？
例えば
xy平面上のOと異なる点Pに対し、直線OP上の点Qは
(1) OP×OQ=4
(2) QはＯに関してPと同じ側にある
の2つの条件を満たしている。点Pが直線ｘ＝１上を動くとき、点Qの軌跡を求めたい。
このような場合、点Qの情報をどのように打ち込めば良いのでしょうか？
こんなんですか？
Quasi 2015/03/09(Mon) 20:50 No.2095
Quasiです。
v{OQ}={4v{OP}/[v{OP}]^2}ですから，
こんなんにしてみました。
Pは媒介変数表示にします。
v{OQ}={4v{OP}/[v{OP}]^2}ですから，
こんなんにしてみました。
Pは媒介変数表示にします。
[添付]: 5148 bytes
Quasi 2015/03/09(Mon) 20:50 No.2095
Re: 反形について
yamashita 2015/03/10(Tue) 11:09 No.2096
素晴らしい！
ありがとうございます。
ありがとうございます。
yamashita 2015/03/10(Tue) 11:09 No.2096
領域内の格子点
サンプルに，陽関数のグラフで「格子点強調」というものが
ありましたが，不等式の表す領域内に存在する格子点を表示
することは可能でしょうか。
(x^2+y^2<=20)and((x-int(x+.5))^2+(y-int(y+.5))^2<.003)
ってしてみましたけど，うまくいきませんでした。
ありましたが，不等式の表す領域内に存在する格子点を表示
することは可能でしょうか。
(x^2+y^2<=20)and((x-int(x+.5))^2+(y-int(y+.5))^2<.003)
ってしてみましたけど，うまくいきませんでした。
[添付]: 4986 bytes
お願い
テザルグの定理の画面が欲しい
Re: お願い
ともだ 2015/02/17(Tue) 07:52 No.2092
サンプルの幾何フォルダに入っています。
ともだ 2015/02/17(Tue) 07:52 No.2092