分析家公式網,免費股票公式,股票軟件下載站 用戶登錄  |  用戶 注冊

軟件名稱:[B]缺口公式----飛狐 Foxtrader V5.0.Renzm 功能應用與擴展-1[/B]
軟件類型:國產軟件
運行環境:Win9X/Win2000/WinXP/Win2003/Win7/
軟件語言:簡體中文
授權方式:免費版
軟件大小:3.00 KB
官方主頁:Home Page
更新時間:2019-02-09 00:24:23
軟件簡介:

飛狐 Foxtrader V5.0.Renzm 功能應用與擴展-1
新年好!飛狐功能相當豐富和完全并實用,為飛狐繼續發揚光大,愿與廣大的飛狐愛好者開展交流,擴展更多的功能,望支持!
飛狐軟件沒有缺口繪圖功能,今源碼送上,復制可自建公式。公式特點采用了函數VARIABLE-變量及數組聲明,把序列數的復雜計算變為簡單并便于編程。
 
缺口編程源碼:
 


 //缺口公式

INPUT:N1(300,1,1000);
IF DATATYPE>=1 THEN BEGIN
VARIABLE:QKD[80]=0,QKH[80]=0,QKL[80]=0,KG[80]=0;
VARIABLE:VHD=HIGH,VLD=LOW;
 
NE:= ubound(VHD);
NB:= IF(NE<N1,1,NE-N1);
 
N:=0;
FOR I = NB TO NE DO BEGIN
   IF VLD[I] > VHD[I-1] THEN BEGIN
     N:= N+1;
     KG[N]:= 1;
     QKD[N]:= I;
     QKH[N]:= VLD[I];
     QKL[N]:= VHD[I-1];
   END;
   IF VHD[I] < VLD[I-1] THEN BEGIN
     N:= N+1;
     KG[N]:= 2;
     QKD[N]:= I;
     QKH[N]:= VLD[I-1];
     QKL[N]:= VHD[I];
   END;
END;
 
FOR I = 1 TO N DO BEGIN 
   IF  KG[I] = 1 THEN  BEGIN
     FOR J = QKD[I] TO NE DO BEGIN
       IF VLD[J] < QKH[I] THEN BEGIN
         IF VLD[J] > QKL[I] THEN BEGIN
           QKH[I]:= VLD[J];
         END;
         IF VLD[J] <= QKL[I] THEN BEGIN
           QKH[I]:= VLD[J];
           QKL[I]:= VLD[J];
           BREAK;
         END;
       END;
     END;
   END;
 
   IF KG[I] = 2 THEN BEGIN
     FOR J = QKD[I] TO NE DO BEGIN
       IF VHD[J] > QKL[I] THEN BEGIN
         IF VHD[J] < QKH[I] THEN BEGIN
           QKL[I]:= VHD[J];
         END;
       END;
       IF VHD[J] >= QKH[I] THEN BEGIN
         QKH[I]:= VLD[J];
         QKL[I]:= VLD[J];
         BREAK;
       END;
     END;
   END;
END;
 
NA:= 0;
FOR I = N DOWNTO 1 DO BEGIN
   IF QKH[I] <> QKL[I] THEN BEGIN
     NA:= NA+1;
     IF(NA = 1) THEN BEGIN
       W1:= QKD[I]-1;
       D1:= QKH[I];
       D2:= QKL[I];
     END;
     IF(NA = 2) THEN BEGIN
       W2:= QKD[I]-1;
       D3:= QKH[I];
       D4:= QKL[I];
     END;
     IF(NA = 3) THEN BEGIN
       W3:= QKD[I]-1;
       D5:= QKH[I];
       D6:= QKL[I];
     END;
     IF(NA = 4) THEN BEGIN
       W4:= QKD[I]-1;
       D7:= QKH[I];
       D8:= QKL[I];
     END;
     IF(NA = 5) THEN BEGIN
       W5:= QKD[I]-1;
       D9:= QKH[I];
       D0:= QKL[I];
     END;
   END;
END;
 
IF W1 <> 0 THEN BEGIN
   DRAWLINE(W1=BARPOS,D1,BARSTATUS=2,D1,0),COLORFFAA00;
   DRAWLINE(W1=BARPOS,D2,BARSTATUS=2,D2,0),COLORFFAA00;
   FILLRGN(BARPOS>W1,D1,D2),COLORFFAA00;
   DRAWTEXT(BARSTATUS=2,D1,' '+NUMTOSTR(D1,2)),COLORWHITE;
END;
IF W2 <> 0 THEN BEGIN
   DRAWLINE(W2=BARPOS,D3,BARSTATUS=2,D3,0),COLORFFAA00;
   DRAWLINE(W2=BARPOS,D4,BARSTATUS=2,D4,0),COLORFFAA00;
   FILLRGN(BARPOS>W2,D3,D4),COLORFFAA00;
   DRAWTEXT(BARSTATUS=2,D3,' '+NUMTOSTR(D3,2)),COLORWHITE;
END;
IF W3 <> 0 THEN BEGIN
   DRAWLINE(W3=BARPOS,D5,BARSTATUS=2,D5,0),COLORFFAA00;
   DRAWLINE(W3=BARPOS,D6,BARSTATUS=2,D6,0),COLORFFAA00;
   FILLRGN(BARPOS>W3,D5,D6),COLORFFAA00;
   DRAWTEXT(BARSTATUS=2,D5,' '+NUMTOSTR(D5,2)),COLORWHITE;
END;
IF W4 <> 0 THEN BEGIN
   DRAWLINE(W4=BARPOS,D7,BARSTATUS=2,D7,0),COLORFFAA00;
   DRAWLINE(W4=BARPOS,D8,BARSTATUS=2,D8,0),COLORFFAA00;
   FILLRGN(BARPOS>W4,D7,D8),COLORFFAA00;
   DRAWTEXT(BARSTATUS=2,D7,' '+NUMTOSTR(D7,2)),COLORWHITE;
END;
IF W5 <> 0 THEN BEGIN
   DRAWLINE(W5=BARPOS,D9,BARSTATUS=2,D9,0),COLORFFAA00;
   DRAWLINE(W5=BARPOS,D0,BARSTATUS=2,D0,0),COLORFFAA00;
   FILLRGN(BARPOS>W5,D9,D0),COLORFFAA00;
   DRAWTEXT(BARSTATUS=2,D9,' '+NUMTOSTR(D9,2)),COLORWHITE;
END;
END;
 

[url=http://www.51buycar.cn/soft/sort013/sort02/down-133468.html]缺口公式----飛狐 Foxtrader V5.0.Renzm 功能應用與擴展-1[/url]

  • 本地高速下載
  • 關于本站 | 網站幫助 | 廣告合作 | 下載聲明 | 友情連接 | 網站地圖 |

    聲明:本站所有股票軟件、股票書籍和股票新聞均免費。站內所有廣告,如有收費行為,均與本站無任何關系!請網友小心謹慎。
    Copyright © 2003-2008 88GS.Com. All Rights Reserved .
    頁面執行時間:93.75000 毫秒
    分分彩最牛回本技巧 济南市| 灯塔市| 田林县| 永嘉县| 磐石市| 定兴县| 千阳县| 宁城县| 绵阳市| 马山县| 开封县| 柞水县| 肥东县| 教育| 兴仁县| 阿拉善右旗| 噶尔县| 济源市| 留坝县| 华安县| 泰安市| 巢湖市| 航空| 四川省| 甘南县| 横山县| 盐池县| 闽侯县| 托里县| 石家庄市| 泗洪县| 博野县| 新化县| 大理市| 辽宁省| 鹰潭市| 崇州市| 信丰县|