奇狐社區論壇 - [求救]運算邏輯問題。

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]運算邏輯問題。 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=18066)

由 winston_hsieh 在 2013-10-11 10:10 發表:

[求救]運算邏輯問題。

各位前輩大家好：

1、請教，在迴圈由1到100，執行A=A+2，奇狐程式如何寫。
2:下列程式執行會出現指標數組下標越界或超出有效數據區間。^^?。請賜教，謝謝！

Price:=(High+Low)/2;
InPhase:=C*0;
Phase:=C*0;
AbsInPhase:=C*0;
Quadrature:=C*0;
DC:=datacount;
FOR i=1 to datacount do begin
LKB:=datacount-i;
if i >5 then begin
iValue1:=Price-ref(Price,6);
iValue2:=ref(iValue1,3);
iValue3:=0.75*(iValue1-ref(iValue1,6))+0.25*(ref(iValue1,2)-ref(iValue1,4));
IP33:=0.33*iValue2;
InPhase:=IP33;
IP67:=0.67*ref(InPhase,1);
InPhase:=IP33+IP67;
Qd2:=0.2*iValue3;
Quadrature:=Qd2;
Qd8:=0.67*ref(Quadrature,1);
Quadrature:=Qd2+Qd8;

AbsInPhase:=ABS(InPhase +ref(InPhase,1));

ABI:=AbsInPhase[0];

if ABI>0 then begin
A:5;
end;

end;
end;

由 cgjj 在 2013-10-11 11:14 發表:

回覆: [求救]運算邏輯問題。

引用:
最初由 winston_hsieh 發表
各位前輩大家好：

1、請教，在迴圈由1到100，執行A=A+2，奇狐程式如何寫。
2:下列程式執行會出現指標數組下標越界或超出有效數據區間。^^?。請賜教，謝謝！

Price:=(High+Low)/2;
InPhase:=C*0;
Phase:=C*0;
AbsInPhase:=C*0;
Quadrature:=C*0;
DC:=datacount;
FOR i=1 to datacount do begin
LKB:=datacount-i;
if i >5 then begin
iValue1:=Price-ref(Price,6);
iValue2:=ref(iValue1,3);
iValue3:=0.75*(iValue1-ref(iValue1,6))+0.25*(ref(iValue1,2)-ref(iValue1,4));
IP33:=0.33*iValue2;
InPhase:=IP33;
IP67:=0.67*ref(InPhase,1);
InPhase:=IP33+IP67;
Qd2:=0.2*iValue3;
Quadrature:=Qd2;
Qd8:=0.67*ref(Quadrature,1);
Quadrature:=Qd2+Qd8;

AbsInPhase:=ABS(InPhase +ref(InPhase,1));

ABI:=AbsInPhase[0];

if ABI>0 then begin
A:5;
end;

end;
end;

Re1:
您所問的 A=A+2, A是數列嗎(陣列)? 還是單一數值?

Re2:
奇狐本身的數列並無第零個元素, 在奇狐當中它是自壹數起
故不會有 AbsInPhase[0] 這個元素
這段程式若是網路找來的, 它可能並非是奇狐所用的公式
(可能是其它與奇狐語法相似的軟體)

由 winston_hsieh 在 2013-10-11 15:56 發表:

回覆: 回覆: [求救]運算邏輯問題。

引用:
最初由 cgjj 發表
Re1:
您所問的 A=A+2, A是數列嗎(陣列)? 還是單一數值?

Re2:
奇狐本身的數列並無第零個元素, 在奇狐當中它是自壹數起
故不會有 AbsInPhase[0] 這個元素
這段程式若是網路找來的, 它可能並非是奇狐所用的公式
(可能是其它與奇狐語法相似的軟體)

一、抱歉，對奇狐語法陣列或單一數值的辨別方式不是很清楚，若A為陣列或單一數值的寫法各為何^^"?。

二、是TS程式想轉奇狐，誠如總版主之前所說，各軟體有不同語法及執行方式。痛苦呀！>"<努力嘗試體會奇狐運作方式中。
若改為ABI:=AbsInPhase[i];執行還是會出現指標數組下標越界或超出有效數據區間。
若我需求只要AbsInPhase>0就進入判斷式那該如何寫！^^"謝謝！

由 cgjj 在 2013-10-11 16:09 發表:

回覆: 回覆: 回覆: [求救]運算邏輯問題。

引用:
最初由 winston_hsieh 發表
一、抱歉，對奇狐語法陣列或單一數值的辨別方式不是很清楚，若A為陣列或單一數值的寫法各為何^^"?。

與K棒相關之數, 通常都是數列
例如 H 這個價, 有100根K棒, 最多即可能會有100個價在其中

//a非數列, 計算完僅有一個數
a:0;
for i=1 to 100 do begin
a:=a+2;
end;

//a為數列, 計算完頭100根K棒有數值, 其餘為零
a:C*0; //建立一個與K棒等長的零值數列
for i=2 to 100 do begin
a[i]:=a[i-1]+2;
end;

由 cgjj 在 2013-10-11 16:11 發表:

回覆: 回覆: 回覆: [求救]運算邏輯問題。

引用:
最初由 winston_hsieh 發表

二、是TS程式想轉奇狐，誠如總版主之前所說，各軟體有不同語法及執行方式。痛苦呀！>"<努力嘗試體會奇狐運作方式中。
若改為ABI:=AbsInPhase[i];執行還是會出現指標數組下標越界或超出有效數據區間。
若我需求只要AbsInPhase>0就進入判斷式那該如何寫！^^"謝謝！

不建議用程式碼去轉換(架構不同, 特性不同)
請給計算原理規則, 這樣比較容易協助您唷

由 winston_hsieh 在 2013-10-11 16:12 發表:

感謝版主大大的指導，豁然開朗。感恩。^^y

由 cgjj 在 2013-10-11 16:20 發表:

引用:
最初由 winston_hsieh 發表
感謝版主大大的指導，豁然開朗。感恩。^^y

不客氣 ^^
有空看看這篇, 對您應該會有些幫助
http://www.chiefox.com.tw/bbs/showt...&threadid=17493

全部時間均為台灣時間, 現在時間為22:01

在這個頁面顯示本主題全部的 7 個文章