奇狐社區論壇 - 請問有關 IF 條件語句

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請問有關 IF 條件語句 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=4239)

由 dich38 在 2005-11-29 07:49 發表:

請問有關 IF 條件語句

請問版主:

IF cond THEN expr1 ELSE expr2
此指令僅能用於單一數值的判斷不能應用於整個數列的判斷
　像下面的這兩行運算式是不能跑的:
IF close>open THEN kk:1000;
IF close>0 THEN kk:1000;

如果今天我需要判別的條件比較多，且大都是整個數列，
例：

IF MA10 < REF(MA10,1) or MAV5 < MAV21 then
IF V > REF(V,1) and V>REF(V,2) AND V > REF(V,3) then
IF ( C > O ) or ( C = O AND C > REF(C,1)) then
buy= 1
end IF
end IF
else
IF MA10 > REF(MA10,1) OR MAV5 > MAV21 then
IF ( V > REF(V,1) and C > O ) or (( V <REF(V,1) and C > REF(C,1) ) then
buy = 1
end IF
end IF
end

我該如何運用 IF 條件語句去表達上述之程式碼，(可否不要改用IF函數(IF(X,A,B)若X不為0則返回A,否則返回B)來表示，或有其他語法可用來判別多層條件的嗎?

PS：
1:MA10表10均線，MAV5表5日均量。
2: 寫IF語句時，我有適當的內縮，但發表時卻全部往左靠齊。

由 cgjj 在 2005-11-29 08:47 發表:

可以的, 請把 [指標公式]\[進階教學] 耐心的看完
下列連結中的 【範例5】求指定年份的最低價
即有相關用法

http://www.chiefox.com.tw/bbs/showt...=&threadid=2649

由 dich38 在 2005-12-16 00:31 發表:

引用:
最初由 cgjj 發表
可以的, 請把 [指標公式]\[進階教學] 耐心的看完
下列連結中的 【範例5】求指定年份的最低價
即有相關用法

http://www.chiefox.com.tw/bbs/showt...=&threadid=2649

請問版主
以下的程式跑出來的結果是
「指標數組下標越界或超出有效數據區間」
不知錯在何處?我要如何修改?

原碼:


UseH:=H;

UseL:=L;

UseO:=O;

UseC:=C;



StartNo:= Lbound(UseC);

EndNo:= Ubound(UseC);



FOR I = StartNo to EndNo Do Begin

  IF HD[I] = 1 Then Begin          

    IF UseC[I] > UseO[I]  Then Begin      

       IF (UseH[I] - UseC[I]) / (UseC[I] - UseO[I]) >= 3  Then Begin  

        IF  (UseH[I] - UseC[I]) >= 15  Then Begin      

           SELL_P:=UseL[I];       

           IF  UseC[I] < SELL_P   Then Begin 

            SELL:= 1 ;

           END;

        END;

       END;

     END;

   END;

END;

由 cgjj 在 2005-12-16 02:37 發表:

程式中有不存在的數列 HD
IF HD[I] = 1 Then Begin

由 dich38 在 2005-12-16 23:35 發表:

引用:
最初由 cgjj 發表
程式中有不存在的數列 HD
IF HD[I] = 1 Then Begin

對不起版主，我忘了把HD交待清楚!
HD:=HHV(H,7)=H;

另外可否請問版主，若在發表時要如何作，
才可將IF 一層一層的往內縮?
而不是全部靠左排列!

由 cgjj 在 2005-12-19 08:38 發表:

用PHP語法即可
〔PHP〕................〔/PHP〕

我這試過ok, 沒有您說的情況
你確定原碼只有這幾行嗎?

由 dich38 在 2005-12-24 07:21 發表:

引用:
最初由 cgjj 發表
用PHP語法即可
〔PHP〕................〔/PHP〕

我這試過ok, 沒有您說的情況
你確定原碼只有這幾行嗎?

謝謝版主的提醒!我已找到有問題的地方了。

全部時間均為台灣時間, 現在時間為04:52

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