当前位置:→ 股海网飞狐公式 → 正文
  • 波神凯线源码

  • 相关简介:波神凯线 INPUT:最近天(5,1,360),测量(1,1,3); DRAWGBK(C0,COLORRGB(100,120,180),0,1); 当前月:=FRACPART(ROUND(当前日期/100)/100)*100; 月:=MONTH;日:=DAY; VERTLINE(月=1 AND ( 日=25)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=3 AND ( 日=20)),COLORFFFFFF,LINEDASHDOT; VERTLINE(月=5 AND

  • 文章来源:股海网作者:股海网发布时间:2013-12-18浏览次数:下载次数:0

波神凯线
INPUT:最近天(5,1,360),测量(1,1,3);
 DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
 当前月:=FRACPART(ROUND(当前日期/100)/100)*100;
 月:=MONTH;日:=DAY;
 VERTLINE(月=1 AND (  日=25)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=3 AND (  日=20)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=5 AND (  日=12)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=6 AND ( 日=6  OR 日=21)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=7 AND ( 日=8 OR 日=15  OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=8 AND ( 日=8  OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=9 AND ( 日=8 OR 日=15  OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
 N:if(sysparam(1)=datacount,最近天,datacount-sysparam(1)+1),linethick0;
 HH:=HHV(HIGH,N);
 LL:=LLV(LOW,N);
 VN:=N;
 {LAST1:=DATACOUNT;}
 IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
 FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
    HH[I]:=HH[DATACOUNT];
     LL[I]:=LL[DATACOUNT];
 END;
 TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
 TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
 KKH:=BARSLAST(H=HH);
 KKL:=BARSLAST(L=LL);
 N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0));
 N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0));
 多空:IF(N低日>N高日,2,1),LINETHICK0;
 多空天:IF(N低日<N高日,kkl,kkh),LINETHICK0;
 DATE1:IF(多空=1,N低日,N高日),LINETHICK0;
 hh:=ref(h,BARSLAST(DATE1=DATE));
 HH2:=ref(H,BARSLAST(DATE1=DATE)-1);
 LL2:=ref(L,BARSLAST(DATE1=DATE)-1);
 hh31:=ref(o,BARSLAST(DATE1=DATE));
 hh32:=ref(c,BARSLAST(DATE1=DATE));
 hh3:=min(hh31,hh32);
 LLOW:=ref(LOW,BARSLAST(DATE1=DATE));
 H1:=STRTONUM(NUMTOSTR(hh,2));
 H2:=STRTONUM(NUMTOSTR(HH2,2));
 L2:=STRTONUM(NUMTOSTR(LL2,2));
 h3:=STRTONUM(NUMTOSTR(Hh3,2));
 L1:=STRTONUM(NUMTOSTR(LLOW,2));
 LL1:=if(测量=1,H1-L1,IF(测量=2 AND 多空=1,H2-L1,IF(测量=2 AND 多空<>1,H1-L2,IF(测量=3,H3-L1,H1-L1))));
 LL:=STRTONUM(NUMTOSTR(LL1,2));
 VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2;
 DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF;
 起始至今天:BARSLAST(DATE1=DATE),COLORFFFF00,LINETHICK0;
 涨幅:(C-REF(C,起始至今天))/REF(C,起始至今天)*100,COLORFFDDDD,LINETHICK0;
 IF 多空=1 THEN BEGIN
      {看多}
 开门线:     PARTLINE(DATE>=N低日,LL*1.50801 + L1),LINETHICK1,COLOREE99FF;;
      PARTLINE(DATE>=N低日,LL*2.00001 + L1),COLOR9999FF,LINEDOT;
 多2线:     PARTLINE(DATE>=N低日,LL*2.40001 + L1),COLORFFFF99,linethick1;
      PARTLINE(DATE>=N低日,LL*3.05001 + L1),COLOR99FF99,LINEDOT;
      PARTLINE(DATE>=N低日,LL*3.75001 + L1),COLORFF9999,LINEDOT;
 多5线:     PARTLINE(DATE>=N低日,LL*4.15001 + L1),COLORMAGENTA,linethick2,LINEDOT;
      PARTLINE(DATE>=N低日,LL*4.80001 + L1),COLORRED,LINEDOT;
 多7线:     PARTLINE(DATE>=N低日,LL*5.50001 + L1),COLORCYAN,linethick2;
      PARTLINE(DATE>=N低日,LL*6.10001 + L1),COLORGREEN,LINEDOT;
      PARTLINE(DATE>=N低日,LL*6.90001 + L1),LINETHICK1,COLORRED;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,ALIGN2; 
      DRAWTEXT(DATE=DATE1,LL*1.50801 + L1+0.002,'多开门'),colorred;
      DRAWTEXT(DATE=DATE1,LL*6.90001 + L1+0.002,'多关门'),colorred;
      END;
 ELSE   BEGIN
 {看空}
 空开门线:     PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF;
      PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT;
 空2线:     PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99;
      PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT;
      PARTLINE(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT;
 空5线:     PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA;
      PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT;
 空7线:     PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN;
      PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT;
 空关门线:     PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED;
      DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,'空开门'),color3333FF;
      DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,'空关门'),color3333FF;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,'NO.2 '+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15001+0.002,'NO.5 '+NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.80001+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.50001+0.002,'NO.7 '+NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.10001+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,ALIGN2;
      DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.90001+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,ALIGN2;
 END;
 高年:=ref(YEAR,BARSLAST(date=N高日));
 高月:=ref(MONTH,BARSLAST(date=N高日));
 高日:=ref(DAY,BARSLAST(date=N高日));
 低年:=ref(YEAR,BARSLAST(date=N低日));
 低月:=ref(MONTH,BARSLAST(date=N低日));
 低日:=ref(DAY,BARSLAST(date=N低日));
 DRAWTEXT(SYSPARAM(2)=BARPOS,H1,'最近'+NUMTOSTR(最近天,0)+'天最高价日期:'+NUMTOSTR(高年,0)+'年'+NUMTOSTR(高月,0)+'月'+NUMTOSTR(高日,0)+'日'+'\n \n'
 +'最近'+NUMTOSTR(最近天,0)+'天最低价日期:'+NUMTOSTR(低年,0)+'年'+NUMTOSTR(低月,0)+'月'+NUMTOSTR(低日,0)+'日'),COLORFFAAAA,ALIGN4;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='1',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21、*25\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='2',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='3',c,NUMTOSTR(当前月,0)+'月转折日:6、15、*20、21\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='4',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='5',c,NUMTOSTR(当前月,0)+'月转折日:6、*1 2、15、21\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='6',c,NUMTOSTR(当前月,0)+'月转折日:6、*1 4、21\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='7',c,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 9、23\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='8',c,NUMTOSTR(当前月,0)+'月转折日:*6、8、15、23\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='9',c,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 8、23\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='10',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='11',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*28\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='12',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n   \n \n   '),COLOR00FFFF,ALIGN5;
 {-----------------------------立体K线--------------------------------------}
 Ko:=close;
 Kc:=ref(close,1);
 STICKLINE(ko<=kc ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(ko<=kc ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(ko<=kc ,CLOSE ,OPEN,6,0 ),COLOR00aa00;
 STICKLINE(ko<=kc ,CLOSE ,OPEN,5,0 ),COLOR00bb00;
STICKLINE(ko<=kc,CLOSE ,OPEN,4,0 ),COLOR00cc00;
STICKLINE(ko<=kc,CLOSE ,OPEN,3,0 ),COLOR33dd00;
 STICKLINE(ko<=kc,CLOSE ,OPEN,2,0 ),COLOR00ee00;
STICKLINE(ko<=kc,CLOSE ,OPEN,1,0 ),COLOR66ff00;
 
STICKLINE(ko>kc,CLOSE,OPEN,8,0 ),COLOr000088;
 STICKLINE(ko>kc,CLOSE,OPEN,7,0 ),COLOr000099;
 STICKLINE(ko>kc,CLOSE,OPEN,6 ,0 ),COLOR0000aa;
STICKLINE(ko>kc,CLOSE,OPEN,5,0 ),COLOr0000bb;
 STICKLINE(ko>kc,CLOSE,OPEN,4,0 ),COLOr0000cc;
 STICKLINE(ko>kc,CLOSE,OPEN,3 ,0 ),COLOR0000dd;
STICKLINE(ko>kc,CLOSE,OPEN,2,0 ),COLOr0000ee;
 STICKLINE(ko>kc,CLOSE,OPEN,1 ,0 ),COLOR0033ff;
 
STICKLINE(ko>kc,OPEN,LOW,0.5,0 ),COLORred;
STICKLINE(ko>kc,CLOSE,HIGH,0.5 ,0 ),COLORred;
 STICKLINE(ko<=kc,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;
STICKLINE(ko<=kc,OPEN,HIGH,0.5 ,0 ),COLOR66cc33;

喜欢显示竖线的朋友可以把下面几句话加在开头.
 
月:=MONTH;日:=DAY;
 VERTLINE(月=1 AND (  日=25)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=3 AND (  日=20)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=5 AND (  日=12)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
 VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=6 AND ( 日=6  OR 日=21)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=7 AND ( 日=8 OR 日=15  OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=8 AND ( 日=8  OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=9 AND ( 日=8 OR 日=15  OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
 VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
 

波神凯线源码

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

波神凯线源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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