2014-11-03 33 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-基本問題的建議:

請說明您的變量。沒有什麼比混亂的變數更糟糕,希望讀者做偵探工作來找出他們應該做的事情。此外,當您決定回來進行故障排除時,它對您也很有幫助。

相關問題