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'
  • 在您的第三个“For()”语句中,代码中未定义“W”。
  • 您可以将代码末尾附近的 'If Z=0:Then:Disp X:End' 更改为 'If not(Z:Disp X'
  • 将 prgmRESET 移动到程序的顶部
于 2014-11-17T23:01:37.817 回答
0

I'm not quite sure what you're trying to do here. You use a whole lot of variables without ever clearing or defining them, which probably means that all of your values will be 0.

Also, recommendation for future TI-BASIC questions:

PLEASE explain your variables. There's nothing worse than having a mess of variables and expecting the reader to do detective work to find out what they're supposed to do. Plus, it's helpful for you as well when you decide to come back to it for troubleshooting.

于 2015-01-27T02:24:52.940 回答
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 回答