[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
472(2): 2024/04/24(水)07:44 ID:vygCixOx(1/12) AAS
>>448
後半を読み落としておりました。
＞作図方法は
＞EF, BC → G
EFを結ぶ直線とBCを結ぶ直線の交点をGとするという意味ですね。
>>465
PとP_を外してE_の作図過程までを入れた結果。（流石にKの作図過程は省略）
画像ﾘﾝｸ[png]:i.imgur.com
アニメーション化したらアップします。
直線を引く機能だけの定規のみで長方形の辺の中点が求められることに感銘しました。
473(1): 2024/04/24(水)07:48 ID:vygCixOx(2/12) AAS
朝の課題
複素平面上で点a,bを結ぶ直線と点c,dを結ぶ直線の交点の座標を計算する関数を作れ。
例：R言語でのコード
intsect <- function(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
if((a2-b2)*(c1-d1)==(a1-b1)*(c2-d2) | (a-b)*(c-d)==0) return(NULL)
if(a1==b1 & c1!=d1) return( a1+1i*((d2-c2)/(d1-c1)*(a1-c1)+c2) )
省7
474(1): 2024/04/24(水)08:06 ID:+La1smCX(1) AAS
>>462が恥ずかしく見える
475: 2024/04/24(水)08:49 ID:AHiYNm6q(1/3) AAS
>>474
直感的にはそう思うよね。
線分だけなら無理だけど長方形の辺なら中点がだせるから
正三角形（あるいは正多角形）でも可能だろうか？
476(1): 2024/04/24(水)09:30 ID:vygCixOx(3/12) AAS
>>472
アニメ化
E,Fは対角線上の任意の点なので色を変えた。
画像ﾘﾝｸ[gif]:i.imgur.com
477: 2024/04/24(水)09:50 ID:fCNLdCqW(1/2) AAS
>>464
素晴らしい
こんなに鮮やかに解くとは
478: 2024/04/24(水)09:54 ID:vygCixOx(4/12) AAS
>>476
E,Fの位置を変えても中点が求まることを体感。
画像ﾘﾝｸ[png]:i.imgur.com
479: 2024/04/24(水)09:57 ID:vygCixOx(5/12) AAS
>>473
それをWolframに移植（言語の練習）
intsect[a_,b_,c_,d_] :=(
a1=Re[a] ; a2=Im[a];
b1=Re[b] ; b2=Im[b];
c1=Re[c] ; c2=Im[c];
d1=Re[d] ; d2=Im[d];
If[(a2-b2)(c1-d1)==(a1-b1)(c2-d2) || (a-b)*(c-d)==0, re=Null];
If[a1==b1 && c1!=d1, re=a1+((d2-c2)/(d1-c1)(a1-c1)+c2)I];
If[a1!=b1 && c1==d1, re=c1+((a2-b2)/(a1-b1)(c1-a1)+a2)I];
省8
480(1): 2024/04/24(水)10:25 ID:4QhK5edU(1/2) AAS
ifが原因ではない。returnは、「関数から抜けろ／戻れ」という命令。
481(1): 2024/04/24(水)10:33 ID:fCNLdCqW(2/2) AAS
今日の積分
∫[0,1] {√(1-√x)}/{√(1+x)} dx
482(1): 2024/04/24(水)11:30 ID:AHiYNm6q(2/3) AAS
>>480
Rの方は動作しているんだが、動かしてから言ってる？
Rのコードはx,y軸に平行な場合もreturn命令で正しい値を返して来るよ。
Wolframだと軸に平行な場合は０除算を含む式まで評価しようとするので
エラーを返してくる。
483: 2024/04/24(水)11:32 ID:2eGWFnPH(1/2) AAS
そもそもif使ってる時点で無能
484(1): 2024/04/24(水)11:40 ID:AHiYNm6q(3/3) AAS
Rの場合は関数定義内に可読性をよくするために空白行をおけるけど、
Wolfram言語だとそれは許されない。
これに気づいてデバッグするのに時間がかかった。
;
だけなら関数定義内と認識してくれる。
んで、
複素平面上で点a,bを結ぶ直線と点c,dを結ぶ直線の交点の座標を計算する関数を作れ。
の例
intsect[a_,b_,c_,d_] :=(
a1=Re[a] ; a2=Im[a];
省30
485: 2024/04/24(水)12:32 ID:2eGWFnPH(2/2) AAS
外部ﾘﾝｸ:www.wolframalpha.com
486(1): 2024/04/24(水)13:43 ID:4QhK5edU(2/2) AAS
>>482
逆の言い方をすると、Rがあれで上手くいっているのは、
真になるif文に出会った時、return命令に従って関数を抜けているから。
その際、returnの直後に書かれているものが、関数の値となる。
mathematica方の、re=...はただの代入文。関数から抜ける命令など含まれていない。
流れに従って次の命令が実行される。
あの書き方では、三つのIf文は、必ず処理され、reに何かの値が代入されるかもしれないが、いずれ場合であろうとも、
re=x+y*Iが最終的な値になる。その計算の最中にエラーが生じる。
If文をネストして正しい流れのプログラムにする方法もあるが、次のような方法もある。
re=Which[
省6
487: 2024/04/24(水)17:02 ID:2kGn23Re(1) AAS
>>463は間違ってますか
488(3): 2024/04/24(水)17:09 ID:oH2qzlTZ(1/2) AAS
>>472
>流石にKの作図過程は省略
これどうやるの？CJ=BK？無理では？
489: 2024/04/24(水)17:13 ID:LloxEhQT(3/6) AAS
>>463
「半物式」以外は正しいと思いますが…
490(2): 2024/04/24(水)17:36 ID:LloxEhQT(4/6) AAS
>>488
CX。の中点をMとし、
DM, BC → N
CN = BC/3, NJ // BD,
AC, NJ → P
台形BNPX。の対角線の交点Xp
AB, CXp → K
BK = AB/3,
とか 無理？
491(1): 2024/04/24(水)18:01 ID:oH2qzlTZ(2/2) AAS
>>490
>CX。の中点をM
どう中点取るの？
上下前次1-新書関写板覧索設栞歴
あと 511 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.017s