0

だから、これで多項式の根を見つけたいのです。ただし、実行するたびに、2x-2 のような明白なものを使用しても、ルートが得られません。うまくいかないのはなぜですか？

Input "Degree?",θ
Disp "Left to right"
Disp "coefficients"
1→V
For(Z,0,θ)
Input A
Q→R
P→Q
O→P
N→O
M→N
L→M
K→L
J→K
I→J
H→I
G→H
F→G
E→F
D→E
C→D
B→C
A→B
If V=1
Then
A→S
V=0
End
End

For(T,–A,A)
For(U,–W,W)
If T≠0
U/T→X

RX+Q→Y
YX+P→Z
ZX+O→Y
YX+N→Z
ZX+M→Y
YX+L→Z
ZX+K→Y
YX+J→Z
ZX+I→Y
YX+H→Z
ZX+G→Y
YX+F→Z
ZX+E→Y
YX+D→Z
ZX+C→Y
YX+B→Z


If Z=0
Then
Disp X
End
End
End



prgmRESET

RESET は変数値をリセットするだけです。それの何が問題なのですか？

4

3 に答える 3

2

リクエスト: どのような操作を行っているのかまったくわかりません。

観察: 値が割り当てられていない、または最初にクリアされていない多くの変数を使用しています。使用する変数の「ストリーム」を作成しようとしていることがわかりますが、値を指定せずにこれを行うと事前に変数をクリアすると、後の計算で問題が発生します。

コーディングの推奨事項:

  • 値を割り当てる代わりに、このコンテキストでは何もしない V=0 を指定します。
  • 「If T≠0」を単に「If T」に変更できます
  • 3 番目の「For()」ステートメントでは、コード内で「W」が定義されていません。
  • コードの終わり近くにある「If Z=0:Then:Disp X:End」を「If not(Z:Disp X」に変更することができます。
  • prgmRESET をプログラムの先頭に移動します
于 2014-11-17T23:01:37.817 に答える
0

正直なところ、多項式のルートを見つけるためのコーディング方法が完全にはわかりません。あなたのエラーは、変数の割り当て/再割り当て/交換の混乱のどこかで発生している可能性が最も高いです。基本変数の代わりにリストを使用してコードをやり直します。

多項式のルートを見つけたいだけなら、そのためのプログラムを提供できます。

:Prompt L1,X
:Repeat 1=dim(L1
    :dim(L1->dim(L3 
    :seq(L1(A)(Ans-A),A,1,Ans-1->L2
    :Repeat abs(Ans)<10^(-7
        :L1(1->L3(1
        :For(A,2,dim(L1
            :XL3(A-1)+L1(A->L3(A
        :End
        :Ans->B
        :L2(1->L3(1
        :For(A,2,dim(L2
            :XL3(A-1)+L2(A->L3(A
        :End

        :Ans^-1(AnsX-B->X
        :B
    :End
    :Disp X
    :L1(1->L2(1
    :For(A,2,dim(L1)-1
        :XL2(A-1)+L1(A->L2(A
    :End
    :L2->L1
:End
于 2015-01-19T00:03:04.880 に答える
0

ここで何をしようとしているのかよくわかりません。変数をクリアしたり定義したりせずに大量の変数を使用すると、おそらくすべての値が 0 になります。

また、今後の TI-BASIC に関する質問に対する推奨事項:

変数について説明してください。変数がごちゃごちゃしていて、読者が何をすべきかを調べるために探偵の仕事をすることを期待することほど悪いことはありません。さらに、トラブルシューティングのために戻ってくることにしたときにも役に立ちます。

于 2015-01-27T02:24:52.940 に答える