HSPTV!掲示板

HSPで連立方程式を代入法で解くプログラムを作っているのですがうまく行きません。
どうすればHSPで連立方程式を解けますか？教えてください。

できれば一次関数や他の公式も幾つか教えていただけると助かります。

代入法が難しいので加減法で作ったのですが、どうしても0で除算してしまいます。
どこが間違っているんでしょうか？

a=1
b=1
c=1
d=1
e=1
f=1

num=1
numn=1
numu=1
numm=1
*main
	cls
mes "ax+by=c" : mes "dx+ey=f"
input a
input b
input c
input d
input e
input f
mes ""+a+"x+"+b+"y="+c
mes ""+d+"x+"+e+"y="+f

/*

	ax+by=C
	dx+ey=F

*/
	
	a*d
	num=b-e
	numn=c-f
	y=numn/num
	numu=b*y
	numm=-numu+c
	x=numm/a

	button "OK", *main
	
	mes x
	mes y
	

	;if i==1 : goto *main : else : goto *stp
	
*stp
	stop

いや、30行そこらのコードなんですし、
頭から実際に記述通りに実行結果を検証してみればいいじゃないですか。

inputは入力を待つ命令じゃないからね。一応。

>実行結果を検証してみればいいじゃないですか。
それを何度もやってるんですが絶対にエラーが出るので質問してます。

自分中学生の頃、こういうの得意でしたｗ　２次元じゃなく　一次元二つなんですか
ax+by=C
dx+ey=F

ax+by=C
x=(C-by)/a
d(C-by)/a+ey=F
dC/a-by/a+ey=F
dC/a-F=((b/a)-e)y
y=(dC/a-F)/((b/a)-e)
x=(C-by)/a
x=C/a-(b/a)*(dC/a-F)/((b/a)-e)

こんなかんじで解の公式求めれませんか？
検算してないんで誤ってる可能性アリアリｗ
ググったらどっかに載ってるかもしれませんねｗ

>ax+by=C
>dx+ey=F

>ax+by=C
>x=(C-by)/a
>d(C-by)/a+ey=F
>dC/a-by/a+ey=F
>dC/a-F=((b/a)-e)y
>y=(dC/a-F)/((b/a)-e)
>x=(C-by)/a
>x=C/a-(b/a)*(dC/a-F)/((b/a)-e)


これで試してみます、有難うございます。

ちょろっとググったら　もっと簡単な解の公式がありました
http://mtf.z-abc.com/?eid=1315803

提起されたコードの実行結果の検証

    a=1
    b=1
    c=1
    d=1
    e=1
    f=1

    num=1                          // 一時変数定義
    numn=1                         // 一時変数定義
    numu=1                         // 一時変数定義
    numm=1                         // 一時変数定義
*main
    cls                            //
    mes "ax+by=c" : mes "dx+ey=f"  // 文字通り表示
    input a                        // オブジェクト設置
    input b                        // オブジェクト設置
    input c                        // オブジェクト設置
    input d                        // オブジェクト設置
    input e                        // オブジェクト設置
    input f                        // オブジェクト設置
    mes ""+a+"x+"+b+"y="+c         // a,b,cはそれぞれ1,1,1なので
                                   // [1x+1y=1]と表示
    mes ""+d+"x+"+e+"y="+f         // d,e,fはそれぞれ1,1,1なので
                                   // [1x+1y=1]と表示
    a*d                            // aをd倍 a=1*1 → a = 1
    num=b-e                        // b-e = 1-1 → num = 0
    numn=c-f                       // c-f = 1-1 → numn= 0
    y=numn/num                     // numn/num = 0/0 [!]0除算
    numu=b*y                       // --以降不実行--
    numm=-numu+c
    x=numm/a

以上によりゼロ除算が発生。

本件は「x+y=1、x+y=1」という連立式の唯一解(x,yの組)を算出しようと演算をしているように思うが、
この連立式はそもそも唯一解ではないため、「唯一解を前提とした解の公式」を当てはめてはいけない。

あとは変数の型の問題であるとかが絡むけども、そこ以前の問題に引っかかっている。

/*
a=3
c=4
f=1
b=4
e=1
*/
	a=1
	c=1
	f=1
	b=1
	e=1


*main
	cls
mes "ax+by=c" : mes "dx+ey=f"
input a
input b
input c
input d
input e
input f
mes ""+a+"x+"+b+"y="+c
mes ""+d+"x+"+e+"y="+f

/*

	ax+by=C
	dx+ey=F

*/
	
	bj=b*d
	ej=e*a
	num=bj-ej
	cj=c*d
	fj=f*a
	numn=cj-fj
	y=numn/num
	numu=b*y
	numu=numu-(numu*2)
	numm=numu+c
	x=numm/a

	button "OK", *main
	
	mes "x="+x
	mes "y="+y
	

	;if i==1 : goto *main : else : goto *stp
	
*stp
	stop

色々悩んだ結果とりあえずまともに動く試作ができました、有難うございます！