Question

所以我希望这能找到多项式的根源。然而，每次我运行它，它永远不会给我任何根，即使我使用明显的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只重置变量值。这有什么问题？

Answer 1

请求：我完全不知道你正在做什么操作，如果可以请说明

观察：您使用了许多尚未分配任何值或最初清除的变量，我可以看到您正在尝试创建＆＃39;流＆＃ 39;要使用的变量，但如果你这样做而没有提前清除变量，那么你在以后的计算中会产生问题。

编码建议：

您声明V = 0，在此上下文中不执行任何操作，而不是为其指定值
您可以更改＆＃39;如果T≠0＆＃39;如果只是＆＃39;
在你的第三个＆＃39; For（）＆＃39;声明，＆＃34; W＆＃34;在代码中未定义。
您可以更改＆＃39;如果Z = 0：那么：显示X：结束＆＃39;，接近代码的结尾，如果没有（Z：Disp X＆＃39;
将prgmRESET移至程序顶部

Answer 2

老实说，我不完全确定你的代码是如何找到多项式的路径的。您的错误很可能发生在您的变量分配/重新分配/交换的混乱中。我会使用列表而不是基本变量重做您的代码。

如果您只想找到多项式的路线，我可以为您提供一个程序。

: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

Answer 3

我不太确定你在这里尝试做什么。您使用了大量变量而无需清除或定义它们，这可能意味着您的所有值都将为0.

此外，建议未来的TI-BASIC问题：

请解释你的变量。没有什么比拥有一堆变量更糟糕的事情，并期望读者去做侦探工作，找出他们应该做的事情。此外，当您决定回来进行故障排除时，它对您也很有帮助。

为什么找不到多项式整数路线？

3 个答案: