第一股票公式网,股票公式,股票,公式下载,指标公式 设为首页加入收藏
你的位置:第一股票公式网飞狐公式缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1公式下载 飞狐缺口公式指标 源码

缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1公式下载 飞狐缺口公式指标 源码

  • 公式类型:飞狐公式
  • 推荐星级:
  • 公式安全:已通过5款杀毒软件查杀,请放心下载!
  • 更新时间:2019-02-09 07:24:30
  • 相关标签:缺口
  • 运行环境: WinXP/Win7/Win8/Win10/Win All
  • 公式语言:用简体中文编写

缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1公式下载 飞狐缺口公式指标 源码详细说明

第一股票公式网(www.chnmoney.com)告诉您:当前正要下载:缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1公式下载 飞狐缺口公式指标 源码

缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1

飞狐 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;

缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1


缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1

  >>>请使用本站搜索功能将找到更多相关缺口公式---来自飞狐 Foxtrader V5.0.Renzm 功能应用和运用扩展-1公式下载 飞狐缺口公式指标 源码

下载地址

点这开始下载

精品股票公式

网友评论温馨提示:任何网友发表的言论必须符合国家法律,否则予以删除!

   评论摘要(共有好评 130 条) 请登陆或注册后再发表评论!

     

      验证码:

下载注意

  • 第一股票公式网发布的股票公式主要来源于各大股票论坛,在此谢谢各位老师无私分享原创公式。
  • 引入公式如发现公式名称栏空白,可能是公式使用期限已过。请尝试调整电脑时间到1997年,看能否如正常显示。
  • tnctni格式股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
  • tne格式公式,仅可以用通达信公式编辑器5.0版导入,高版本兼容低版本;
  • fnc格式股票公式,可以用大智慧新一代高速行情分析系统股票软件使用,少部分可以用分析家股票软件引入使用;
  • alg格式股票公式,仅仅可以用飞狐交易师股票软件引入使用;
  • exp格式股票公式,仅可以用大智慧经典版股票软件引入使用;
  • hxf格式股票公式,仅可以用同花顺股票软件引入使用。
  • 如果您发现下载链接错误,请联系管理员报告错误。
  • 第一股票公式网欢迎各位股友帮忙宣传转发本站资源,有您的支持,我们会做得更好!

猜你喜欢

网友爱看

学了又学