当前位置:→ 股海网通达信公式 → 正文
  • 通达信主图斐波那契源码

  • 相关简介:{DRAWGBK(C0,RGB(220,220,220 ),RGB(220,220,220),10,'12',0);} {HDAY 2 9999 20 LDAY 2 9999 20 上角度 1 9999 70 下角度 1 9999 70 调点 1 4 3 } CURR:=CURRBARSCOUNT; TCH:=CONST(FINDHIGH(H,0,HDAY*10,1)); GTT:=CONST(BARSLAST(TCH=H))+1; SX跌H:=CONST(IF(GTT=1,H,REF(H,GT

  • 文章来源:股海网作者:股海网发布时间:2014-04-17浏览次数:下载次数:0

通达信主图斐波那契源码

{DRAWGBK(C>0,RGB(220,220,220 ),RGB(220,220,220),10,'12',0);}
 {HDAY  2  9999  20
 LDAY   2  9999  20
 上角度 1  9999  70
 下角度 1  9999  70
 调点   1  4     3  }
 CURR:=CURRBARSCOUNT;
 TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));
 GTT:=CONST(BARSLAST(TCH=H))+1;
 SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
 BCL:=CONST(FINDLOW(L,0,LDAY*10,1));
 DTT:=CONST(BARSLAST(BCL=L))+1;
 SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
 涨点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX涨L)+1));
 跌点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1));
 最低:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,涨点,跌点)));
 L斜率:=下角度/IF(C<300,1000,10);
 最高:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,跌点,涨点)));
 H斜率:=上角度/IF(C<300,1000,10);
 IM68:=((SX跌H-SX涨L)/8-(SX跌H-SX涨L)/8);
 GH跌X:=SX跌H+(SX跌H-SX涨L)/8;  
DL涨X:=SX涨L-(SX跌H-SX涨L)/8;
 GTHT:=IF(DTT>GTT,DTT,GTT); 
R:=ABS(GTT-DTT);
 DHH:DRAWBAND(IF(CURR<=GTHT,SX跌H,DRAWNULL),RGB(0,120,120),SX跌H,RGB(8,168,168));
 DLL:DRAWBAND(IF(CURR<=GTHT,SX涨L,DRAWNULL),RGB(0,120,120),SX涨L,RGB(0,160,160));
 STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX涨L,0,0),COLOR556600;
 STICKLINE(CURRBARSCOUNT=DTT,SX跌H,SX涨L,0,0),COLOR666666;
 STICKLINE(CURRBARSCOUNT=1,SX跌H,SX涨L,0,0),COLOR556600;
 天线:=SX跌H;
地线:=SX涨L;
 K:=(天线-地线)/(IF(跌点>=涨点,跌点,涨点)-IF(跌点>=涨点,涨点,跌点));
 上斜线:=IF(地线+CONST(L斜率*4.00)*最低>=地线,地线+CONST(L斜率*4.00)*最低,DRAWNULL);
 上斜线0:=IF(地线+CONST(L斜率*2.00)*最低>=地线,地线+CONST(L斜率*2.00)*最低,DRAWNULL);
 上斜线1:=IF(地线+CONST(L斜率*1.5)*最低>=地线,地线+CONST(L斜率*1.5)*最低,DRAWNULL);
 上斜线2:=IF(地线+CONST(L斜率*1.00)*最低>=地线,地线+CONST(L斜率*1.000)*最低,DRAWNULL);
 上斜线3:=IF(地线+CONST(L斜率*0.70)*最低>=地线,地线+CONST(L斜率*0.70)*最低,DRAWNULL);
 上斜线4:=IF(地线+CONST(L斜率*0.50)*最低>=地线,地线+CONST(L斜率*0.50)*最低,DRAWNULL);
 上斜线5:=IF(地线+CONST(L斜率*0.365)*最低>=地线,地线+CONST(L斜率*0.365)*最低,DRAWNULL);
 上斜线6:=IF(地线+CONST(L斜率*0.250)*最低>=地线,地线+CONST(L斜率*0.250)*最低,DRAWNULL);
 上斜线7:=IF(地线+CONST(L斜率*0.165)*最低>=地线,地线+CONST(L斜率*0.165)*最低,DRAWNULL);
 上斜线8:=IF(地线+CONST(L斜率*0.123)*最低>=地线,地线+CONST(L斜率*0.123)*最低,DRAWNULL);
 上斜线9:=IF(地线+CONST(L斜率*0.06)*最低>=地线,地线+CONST(L斜率*0.06)*最低,DRAWNULL);
 上9:IF(上斜线9<=天线*1.05,上斜线9,DRAWNULL),COLORAA00AA,DOTLINE;
 上8:IF(上斜线8<=天线*1.05,上斜线8,DRAWNULL),COLORAA00AA,DOTLINE;
 上7:IF(上斜线7<=天线*1.05,上斜线7,DRAWNULL),COLORAA00AA,DOTLINE;
 上6:IF(上斜线6<=天线*1.05,上斜线6,DRAWNULL),COLORAA00AA,DOTLINE;
 上5:IF(上斜线5<=天线*1.05,上斜线5,DRAWNULL),COLORAA00AA,DOTLINE;
 上4:IF(上斜线4<=天线*1.05,上斜线4,DRAWNULL),COLOR0000FF,DOTLINE;
 上3:IF(上斜线3<=天线*1.05,上斜线3,DRAWNULL),COLORAA00AA,DOTLINE;
 上2:IF(上斜线2<=天线*1.05,上斜线2,DRAWNULL),COLORAA00AA,DOTLINE;
 上1:IF(上斜线1<=天线*1.05,上斜线1,DRAWNULL),COLORAA00AA,DOTLINE;
 上0:IF(上斜线0<=天线*1.05,上斜线0,DRAWNULL),COLORAA00AA,DOTLINE;
 上:IF(上斜线<=天线*1.05,上斜线,DRAWNULL),COLORAA00AA,DOTLINE;
 
下斜线:=IF(天线-CONST(H斜率*4.00)*最高<=天线,天线-CONST(H斜率*4.00)*最高,DRAWNULL);
 下斜线0:=IF(天线-CONST(H斜率*2.00)*最高<=天线,天线-CONST(H斜率*2.00)*最高,DRAWNULL);
 下斜线1:=IF(天线-CONST(H斜率*1.500)*最高<=天线,天线-CONST(H斜率*1.500)*最高,DRAWNULL);
 下斜线2:=IF(天线-CONST(H斜率*1.000)*最高<=天线,天线-CONST(H斜率*1.000)*最高,DRAWNULL);
 下斜线3:=IF(天线-CONST(H斜率*0.70)*最高<=天线,天线-CONST(H斜率*0.70)*最高,DRAWNULL);
 下斜线4:=IF(天线-CONST(H斜率*0.50)*最高<=天线,天线-CONST(H斜率*0.50)*最高,DRAWNULL);
 下斜线5:=IF(天线-CONST(H斜率*0.365)*最高<=天线,天线-CONST(H斜率*0.365)*最高,DRAWNULL);
 下斜线6:=IF(天线-CONST(H斜率*0.250)*最高<=天线,天线-CONST(H斜率*0.250)*最高,DRAWNULL);
 下斜线7:=IF(天线-CONST(H斜率*0.165)*最高<=天线,天线-CONST(H斜率*0.165)*最高,DRAWNULL);
 下斜线8:=IF(天线-CONST(H斜率*0.123)*最高<=天线,天线-CONST(H斜率*0.123)*最高,DRAWNULL);
 下斜线9:=IF(天线-CONST(H斜率*0.06)*最高<=天线,天线-CONST(H斜率*0.06)*最高,DRAWNULL);
 
下9:IF(下斜线9>=地线*0.95,下斜线9,DRAWNULL),COLORAAAAAA,DOTLINE;
 下8:IF(下斜线8>=地线*0.95,下斜线8,DRAWNULL),COLORAAAAAA,DOTLINE;
 下7:IF(下斜线7>=地线*0.95,下斜线7,DRAWNULL),COLORAAAAAA,DOTLINE;
 下6:IF(下斜线6>=地线*0.95,下斜线6,DRAWNULL),COLORAAAAAA,DOTLINE;
 下5:IF(下斜线5>=地线*0.95,下斜线5,DRAWNULL),COLORAAAAAA,DOTLINE;
 下4:IF(下斜线4>=地线*0.95,下斜线4,DRAWNULL),COLOR0000FF,DOTLINE;
 下3:IF(下斜线3>=地线*0.95,下斜线3,DRAWNULL),COLORAAAAAA,DOTLINE;
 下2:IF(下斜线2>=地线*0.95,下斜线2,DRAWNULL),COLORAAAAAA,DOTLINE;
 下1:IF(下斜线1>=地线*0.95,下斜线1,DRAWNULL),COLORAAAAAA,DOTLINE;
 下0:IF(下斜线0>=地线*0.95,下斜线0,DRAWNULL),COLORAAAAAA,DOTLINE;
 下:IF(下斜线>=地线*0.95,下斜线,DRAWNULL),COLORAAAAAA,DOTLINE;
 {黄金分割}
 X146:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.146,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X146)*1.001,STRCAT('  0.146%%    ',CON2STR(X146,3))),COLORF5CCEB;
 X191:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.191,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X191)*1.001,STRCAT('  0.191%%    ',CON2STR(X191,3))),COLORF5CCEB;
 X236:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.236,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X236)*1.001,STRCAT('  0.236%%    ',CON2STR(X236,3))),COLORF5CCEB;
 X382:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.382,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X382)*1.001,STRCAT('  0.382%%    ',CON2STR(X382,3))),COLORF5CCEB;
 X500:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.500,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X500)*1.001,STRCAT('  0.500%%    ',CON2STR(X500,3))),COLORF5CCEB;
 X618:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.618,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X618)*1.001,STRCAT('  0.618%%    ',CON2STR(X618,3))),COLORF5CCEB;
 X764:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.764,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X764)*1.001,STRCAT('  0.764%%    ',CON2STR(X764,3))),COLORF5CCEB;
 X809:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.809,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X809)*1.001,STRCAT('  0.809%%    ',CON2STR(X809,3))),COLORF5CCEB;
 X854:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.854,DRAWNULL),DOTLINE,COLOR556600;
 DRAWTEXT(CURR=GTHT,(X854)*1.001,STRCAT('  0.854%%    ',CON2STR(X854,3))),COLORF5CCEB;
 {斐波那契周期}
 DRAWTEXT(CURRBARSCOUNT=GTT,SX跌H*1.03,'斐波那契下跌周期'),COLOR00FF00;
 DRAWTEXT(CURRBARSCOUNT=GTT,SX跌H*1.01,'1'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-2,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-2,SX跌H*1.01,'3'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-4,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-4,SX跌H*1.01,'5'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-7,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-7,SX跌H*1.01,'8'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-12,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-12,SX跌H*1.01,'13'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-20,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-20,SX跌H*1.01,'21'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-33,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-33,SX跌H*1.01,'34 '),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-54,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-54,SX跌H*1.01,'55'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-67,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-67,SX跌H*1.01,'68'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-88,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-88,SX跌H*1.01,'89'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-109,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-109,SX跌H*1.01,'110'),COLOR00FF00;
 STICKLINE(CURRBARSCOUNT=GTT-143,SX跌H,SX涨L,0,0),COLOR556600;
 DRAWTEXT(CURRBARSCOUNT=GTT-143,SX跌H*1.01,'144'),COLOR00FF00;
 
DRAWTEXT(CURRBARSCOUNT=DTT,SX涨L*0.95,'斐波那契上升周期'),COLOR0000FF;
 DRAWTEXT(CURRBARSCOUNT=DTT,SX涨L*0.98,'1'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-2,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-2,SX涨L*0.98,'3'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-4,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-4,SX涨L*0.98,'5'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-7,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-7,SX涨L*0.98,'8'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-12,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-12,SX涨L*0.98,'13'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-20,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-20,SX涨L*0.98.01,'21'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-33,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-33,SX涨L*0.98,'34'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-54,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-54,SX涨L*0.98,'55'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-67,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-67,SX涨L*0.98,'68'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-88,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-88,SX涨L*0.98,'89'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-109,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-109,SX涨L*0.98,'110'),COLOR0000FF;
 STICKLINE(CURRBARSCOUNT=DTT-143,SX跌H,SX涨L,0,0),COLORAA00AA;
 DRAWTEXT(CURRBARSCOUNT=DTT-143,SX涨L*0.98,'144'),COLOR0000FF;

通达信主图斐波那契源码

 

 ☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

通达信主图斐波那契源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2014-04-17
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《股海网侵权处理流程》《股海网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.