2014-11-03 46 views
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只是重置变量值。它有什么问题?

回答

2

请求:我完全不知道是什么操作,您正在关闭的,如果你能请注明

观察:您使用了大量的变量还没有分配给他们或任何价值最初清除后,我可以看到您正在尝试创建一个“流”的变量来处理,但如果您在未提前清除变量的情况下执行此操作,则会在后面的计算中创建问题。

编码建议:

  • 幽州V = 0,这确实在这方面没有什么,而不是分配给它的值
  • 你可以改变“如果T≠0”变成只是“如果T”
  • 在您的第三个'For()'语句中,代码中未定义“W”。
  • 你可以改变“如果Z = 0:然后:DISP X:终结”,靠近你的代码的末尾,逼到“如果没有(Z:DISP X”
  • 移动prgmRESET到您的程序
  • 顶部
0

说实话,我并不完全知道你的代码是怎么找到多项式的路由的,你的错误很可能发生在你的变量赋值/重新赋值/交换混乱的地方,我会重做你的代码使用列表而不是基本变量


如果您只想查找ap olynomial,我可以给你一个程序。

: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 
0

我不太清楚你要在这里做什么。您可以使用一大堆的变量,而没有清除或定义它们,这可能意味着所有的值将为0。

而且,对于未来的TI-基本问题的建议:

请说明您的变量。没有什么比混乱的变数更糟糕,希望读者做侦探工作来找出他们应该做的事情。此外,当您决定回来进行故障排除时,它对您也很有帮助。