如何避免“FOR,WHILE,IF,ELSE中包含序列函數(shù)，可能存在潛在的邏輯錯(cuò)誤。”
作者：開拓者 TB 來源：cxh99.com 發(fā)布時(shí)間：2013年10月18日
- 咨詢內(nèi)容：
如FOR,WHILE,IF,ELSE中包含序列函數(shù)，導(dǎo)致條件不滿足時(shí)，序列函數(shù)的賦值就沒有被執(zhí)行，缺省繼承了上一個(gè)序列值即x=x[1]; 解決的方法是將序列函數(shù)放在FOR,WHILE,IF,ELSE之外賦值，而在FOR,WHILE,IF,ELSE語句內(nèi)引用相關(guān)變量。如：
Vars
NumericSeries myBar;
Begin
If (myBar/2==IntPart(myBar/2))
{ myBar = CurrentBar;
// 其他語句
}
Commentary ("myBay1 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum1: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
End
在這個(gè)程序中，由于myBar = CurrentBar; 語句是偶數(shù)時(shí)被賦值，因此顯示的是連續(xù)的偶數(shù)對(duì)。
把賦值語句放到IF語句之前之外，則能解決不能每個(gè)Bar都賦值的問題，如下：
Vars
NumericSeries myBar;
Begin
myBar = CurrentBar;
If (myBar/2==IntPart(myBar/2))
{
// 其他語句
}
Commentary ("myBay1 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum1: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
End
- TB技術(shù)人員：
如果函數(shù)中含有序列函數(shù)，當(dāng)有條件調(diào)用函數(shù)時(shí)，也會(huì)出現(xiàn)序列函數(shù)不完全賦值的情況，如：
// 應(yīng)用主程序 Test1
Vars
NumericSeries myBar;
Begin
myBar = CurrentBar;
Commentary ("myBay1 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum1: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
if (myBar/2==IntPart(myBar/2)) Test2(myBar); //調(diào)用函數(shù)Test2
End
/ 函數(shù) Test2
Params
NumericSeries myBar;
Vars
Begin
if (myBar/2==IntPart(myBar/2)) Return False;
Commentary ("myBay2 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum2: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
Return True;
End
此時(shí)，顯示如下圖：
Test1.JPG
(24.64 KB, 下載次數(shù): 0)
2013-9-14 08:11:22 上傳
下載次數(shù): 0
如何將序列函數(shù)完整的傳遞給子函數(shù)呢？可把條件調(diào)用改為無條件調(diào)用，而把相應(yīng)條件放入子函數(shù)中，如下示例：
// 應(yīng)用主程序 Test1a
Vars
NumericSeries myBar;
Begin
myBar = CurrentBar;
Commentary ("myBay1 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum1: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
test2a(myBar); //無條件調(diào)用test2a
End
// 函數(shù) Test2a
Params
NumericSeries myBar;
Vars
Begin
if (myBar/2 ==IntPart(myBar/2)) Return False; //當(dāng)條件滿足是返回
Commentary ("myBay2 "+Text(myBar)+" "+Text(myBar[1])+" "+Text(myBar[2])+" "+Text(myBar[3])+" "+Text(myBar[4]));
Commentary ("Sum2: "+ Text(myBar+myBar[1]+myBar[2]+myBar[3]+myBar[4]));
Return True;
End
結(jié)果如下圖：
Test2.JPG
(25.66 KB, 下載次數(shù): 0)
2013-9-14 08:19:08 上傳
下載次數(shù): 0
- TB客服：
仔細(xì)觀察這連個(gè)圖，發(fā)現(xiàn)有一個(gè)錯(cuò)誤：第一個(gè)程序在偶數(shù)Bar上顯示，而第二個(gè)程序卻在奇數(shù)Bar上顯示，顯然邏輯上發(fā)生了錯(cuò)誤。
原因是小可在修改程序時(shí)疏忽而至。由于Test1a是有條件調(diào)用Test2a，因此把條件移到函數(shù)中時(shí)，要把邏輯值取反，即把
if (myBar/2 == IntPart(myBar/2)) Return False;
改為
if (myBar/2 != IntPart(myBar/2)) Return False;
是不是這樣？
分享給大家，也借此經(jīng)常提醒自己，程序中盡量要避免編譯時(shí)出現(xiàn)“FOR,WHILE,IF,ELSE中包含序列函數(shù)......”的警示提示。
打印本文
關(guān)閉窗口