分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
分析家公式网23年来提供大量的股票公式,股票软件下载,网站的发展离不开您的支持,谢谢!”
软件大小:15.0 KB
更新时间:2009-05-19 15:34:33
点这里下载 → 软件下载
下载软件请点击上面一行黑体字,不能下载请报错,报告错误,谢谢。
软件简介:

{波神凯线入场出场运用视频
波神入场与出场视频演示地址:
http://www.tudou.com/programs/view/jDS9rSIovyE/ }

{波浪与波神}

{----------------------波神凯线源码----------------------------------}
INPUT:最近天(20,1,360);

当前月:=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));
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);
阶段高:HH,LINETHICK2,color0000FF;阶段低:LL,LINETHICK2,color00FF00;
中线:(HH+LL)/2,linethick0;
KKH:=BARSLAST(H=HH);
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0)),LINETHICK;
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0)),LINETHICK;
多空:IF(N低日>N高日,2,1),LINETHICK0;
多空天:IF(N低日<N高日,kkl,kkh),LINETHICK0;

DATE1:=IF(多空=1,N低日,N高日);{}
hh0:=ref(h,BARSLAST(DATE1=DATE));
ll0:=ref(l,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT;
L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT;
     PARTLINE(1,H1),,POINTDOT,linethick0;
     PARTLINE(1,L1),,POINTDOT,linethick0;
LL:=H1 - L1;
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;
    上一页波神线 - 可以改变高低点,适合双体线用 下一页新改进之波神凯线1.1版

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间:108.39840 毫秒