敢死队套装指标源码

DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,'',0);
 总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
 流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
 全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
 市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
 上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0));
 股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
 {}
 市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
 市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
 市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
 净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
 毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
 净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
 主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
 利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
 收入同比:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2));
 当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率), 利润同比), 收入同比));
 {}
 X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
 X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
 X3:=FINANCE(23)/FINANCE(10)*3.3;
 X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
 X5:=FINANCE(20)/FINANCE(15)*0.999;
 Z值:=X1+X2+X3+X4+X5;
 预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));
 财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));
 优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
 现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};
 财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比));
 {}
 DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORCYAN;
 DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORLIMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORYELLOW;
 VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);{ZIG 有未来}
 VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
 STICKLINE(VAR1,C,O,8,0),COLORYELLOW,LINETHICK2;{高位黄色}
 STICKLINE(VAR1,C,O,3,0),COLORYELLOW,LINETHICK2;{高位黄色}
 STICKLINE(VAR1,H,L,1,0),COLORYELLOW,LINETHICK2;{高位黄色}
 STICKLINE(VAR2,C,O,8,0),COLORFF00FF,LINETHICK2;{底位红色}
 STICKLINE(VAR2,C,O,3,0),COLORFF00FF,LINETHICK2;{底位红色}
 STICKLINE(VAR2,H,L,1,0),COLORFF00FF,LINETHICK2;{底位红色};
 TC1:=IF(H=HHV(H,8*UR),H,DRAWNULL);
 TC2:=CONST(BARSLAST(TC1=H))+1;
 UPPER1:=CONST(IF(TC2=1,H,REF(H,TC2-1)));
 BC1:=IF(L=LLV(L,8*LR),L,DRAWNULL);
 BC2:=CONST(BARSLAST(BC1=L))+1;
 LOWER1:=CONST(IF(BC2=1,L,REF(L,BC2-1)));
 LP:=CURRBARSCOUNT<=BC2 AND L=LOWER1;{低点定位}
 HP:=CURRBARSCOUNT<=TC2 AND H=UPPER1;{高点定位}
 STICKLINE(IF(BC2>TC2,HP,LP),LOWER1,UPPER1,0,0),COLOR628962;
 STICKLINE(IF(BC2>TC2,LP,HP),LOWER1,UPPER1,0,0),COLOR628962;
 NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));{用时}
 LR1:=FORCAST(C,NOD+1);
 NP:IF(CURRBARSCOUNT<=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLOR93BDA8;{近点}
 LR2:=SLOPE(C,NOD+1);
 LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));
 FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8;{远点}
 EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8;
 AD:=ABS(NP-FP);{高差};
 DBL:=BARSLAST(BC1!=DRAWNULL)+1;
 DBH:=BARSLAST(TC1!=DRAWNULL)+1;
 BSP:=IF(BC2>TC2,DBL,DBH)-1;
 LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
 AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
 AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
 AT3:=CONST(BARSLAST(AT1-LRL=AT2));
 AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));
 AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));
 ATL:=LRL+AT5;
 UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
 UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
 UT3:=CONST(BARSLAST(LRL-UT1=UT2));
 UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));
 UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));
 UTL:=LRL-UT5;
 RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}
 RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}
 中轨1:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORF57474,LINETHICK1,CROSSDOT;
 上轨1:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLORFF8000,LINETHICK1,CROSSDOT;
 下轨1:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLORMAGENTA ,LINETHICK1,CROSSDOT;
 MA5:MA(CLOSE,5),COLORFFCC66,LINETHICK3;
MA14:MA(CLOSE,14),COLORFFFFFF,LINETHICK2;
上轨:MA(HIGH,20),POINTDOT,COLORBLUE,LINETHICK4;
 下轨:MA(LOW,20),POINTDOT,COLORCYAN,LINETHICK4;
 DRAWICON(CROSS(MA5,上轨),MA5,1),LINETHICK2;
 DRAWICON(CROSS(MA5,下轨),MA5,1),LINETHICK2;
 单阳:=C/REF(C,1)>=1.09 ;
 不破价:=REF(C,BARSLAST(单阳));
 DRAWTEXT(单阳,H-H*0.02,'阳'),COLOR00FFFF;
 LS0:=BARSLAST(单阳);
 LS11:=IF(1,LS0=1,单阳);
 LS21:=IF(1,LLV(L,1)>REF(L,1),1);
 单阳不破:=LS11 AND LS21;
 STICKLINE(单阳不破,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破,不破价-不破价*0.02,'1'),COLORGREEN;
 LS12:=IF(2,LS0=2,单阳);
 LS22:=IF(2,LLV(L,2)>REF(L,2),1);
 单阳不破2:=LS12 AND LS22;
 STICKLINE(单阳不破2,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破2,不破价-不破价*0.02,'2'),COLORGREEN;
 LS13:=IF(3,LS0=3,单阳);
 LS23:=IF(3,LLV(L,3)>REF(L,3),1);
 单阳不破3:=LS13 AND LS23;
 STICKLINE(单阳不破3,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破3,不破价-不破价*0.02,'3'),COLORGREEN;
 LS14:=IF(4,LS0=4,单阳);
 LS24:=IF(4,LLV(L,4)>REF(L,4),1);
 单阳不破4:=LS14 AND LS24;
 STICKLINE(单阳不破4,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破4,不破价-不破价*0.02,'4'),COLORGREEN;
 LS15:=IF(5,LS0=5,单阳);
 LS25:=IF(5,LLV(L,5)>REF(L,5),1);
 单阳不破5:=LS15 AND LS25;
 STICKLINE(单阳不破5,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破5,不破价-不破价*0.02,'5'),COLORGREEN;
 LS16:=IF(6,LS0=6,单阳);
 LS26:=IF(6,LLV(L,6)>REF(L,6),1);
 单阳不破6:=LS16 AND LS26;
 STICKLINE(单阳不破6,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破6,不破价-不破价*0.02,'6'),COLORGREEN;
 LS17:=IF(7,LS0=7,单阳);
 LS27:=IF(7,LLV(L,7)>REF(L,7),1);
 单阳不破7:=LS17 AND LS27;
 STICKLINE(单阳不破7,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破7,不破价-不破价*0.02,'7'),COLORGREEN;
 LS18:=IF(8,LS0=8,单阳);
 LS28:=IF(8,LLV(L,8)>REF(L,8),1);
 单阳不破8:=LS18 AND LS28;
 STICKLINE(单阳不破8,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破8,不破价-不破价*0.02,'8'),COLORGREEN;
 LS19:=IF(9,LS0=9,单阳);
 LS29:=IF(9,LLV(L,9)>REF(L,9),1);
 单阳不破9:=LS19 AND LS29;
 STICKLINE(单阳不破9,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破9,不破价-不破价*0.02,'9'),COLORGREEN;
 LS110:=IF(10,LS0=10,单阳);
 LS210:=IF(10,LLV(L,10)>REF(L,10),1);
 单阳不破10:=LS110 AND LS210;
 STICKLINE(单阳不破10,不破价-不破价*0.002,不破价,4,0),COLORRED;
 DRAWTEXT(单阳不破10,不破价-不破价*0.02,'10'),COLORGREEN;
 N1:=30;
 TS:=BARSLAST(L=LLV(L,N));
 开始信号:=FILTERX(TS=0,BARSSINCE(C));
 开始天数:=BARSLAST(开始信号);
 天数横线:=CONST(开始天数);
 低点:DRAWLINE(L=LLV(L,N),L,ISLASTBAR,REF(L,TS),1),COLORGRAY;
 高点:DRAWLINE(L=LLV(L,N),CONST(HHV(H,天数横线)),ISLASTBAR,REF(CONST(HHV(H,天数横线)),
 TS),1),COLORGRAY;
 STICKLINE(开始信号,L,CONST(HHV(H,天数横线)),0,0),COLORGRAY;
 STICKLINE(ISLASTBAR,低点,高点,0,0),COLORGRAY;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 C2:=REF(C,1),NODRAW;
 涨停1:=REF(C,11)*1.1-C<0.01 AND H=C,NODRAW;
 STICKLINE(涨停1,OPEN,CLOSE,1,0),COLORRED;
 STICKLINE(涨停1,H,L,0,0),COLORRED;
 跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2) AND L=C,1,0),NODRAW;
 STICKLINE(跌停,OPEN,CLOSE,1,0),COLORGREEN;
 STICKLINE(跌停,H,L,0,1),COLORGREEN;
 差:=(高点-低点)/天数横线;
 收盘差:=CONST(C)-低点;
 对角差:=高点-低点;
 对角角度:ATAN((对角差/(对角差*((天数横线-1)/天数横线))-1)*100)*57.3,COLORFF00FF,NODRAW;
 对角线:IF(TS>=0 AND 低点+差*TS<=高点,低点+差*TS,DRAWNULL),COLORYELLOW,LINETHICK2;
 {DRAWBAND(对角线,RGB(255,0,255),对角线,RGB(255,0,255)),LINETHICK2;}
 JX1:=MA(C,5);
 JX2:=MA(C,10);
 JX3:=MA(C,20);
 JTTJ1:=BARSLAST(CROSS(JX1,JX2));
 JTTJ2:=BARSLAST(CROSS(JX1,JX3));
 JTTJ3:=BARSLAST(CROSS(JX2,JX3));
 JTTJ4:=JTTJ1>=JTTJ2;
 JTTJ5:=JTTJ2>=JTTJ3;
 JTTJ6:=JTTJ3=0;
 月价托:=JTTJ4 AND JTTJ5 AND JTTJ6;
 JX4:=MA(C,40);
 JX5:=MA(C,60);
 JTTJ7:=BARSLAST(CROSS(JX3,JX4));
 JTTJ8:=BARSLAST(CROSS(JX3,JX5));
 JTTJ9:=BARSLAST(CROSS(JX4,JX5));
 JTTJ10:=JTTJ7>=JTTJ8;
 JTTJ11:=JTTJ8>=JTTJ9;
 JTTJ12:=JTTJ9=0;
 季价托:=JTTJ10 AND JTTJ11 AND JTTJ12;
 JTTJ13:=BARSLAST(CROSS(JX1,JX2));
 JTTJ14:=BARSLAST(CROSS(JX1,JX5));
 JTTJ15:=BARSLAST(CROSS(JX2,JX5));
 JTTJ16:=JTTJ13>=JTTJ14;
 JTTJ17:=JTTJ14>=JTTJ15;
 JTTJ18:=JTTJ15=0;
 短长托:=JTTJ16 AND JTTJ17 AND JTTJ18;
 BOLL:=MA(C,20);
 UPPER:=BOLL+2*STD(C,20);
 LOWER:=BOLL-2*STD(C,20);
 大黑码:=CROSS(C,UPPER) AND C/REF(C,1)>1.05,COLORRED;
 DRAWTEXT(大黑码 AND C>MA(C,60) AND C>MA(C,90) AND C>MA(C,120) AND C>MA(C,250),H*1.03,'敢死队'),COLORYELLOW;
 DRAWTEXT(月价托,L*0.98,'月价托'),COLORWHITE;
 DRAWTEXT(季价托,H+0.05,'季价托'),COLORWHITE;
 DRAWTEXT(短长托,L-0.1,'短长托'),COLORWHITE;
 VARC01:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
 DRAWICON(CROSS(82,VARC01),H*1.02,2);
 {DRAWTEXT(CROSS(82,VARC),2,'|逃庄'),COLORWHITE ;}
 VAR034:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);
 VAR035:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);
 VAR036:=IF(VAR034>0.010, 0.900, 1) AND IF(VAR034>(-0.025), 1, 1.200);
 VAR037:=VAR036*(VAR035-VAR034)*100;
 VAR038:=SUM(VAR037, 10);
 VAR310:=VAR038>20;
 VAR326:=IF(CLOSE AND MA(VOL, 5)/240 AND CLOSE>REF(CLOSE, 1)*1.0 AND CLOSE,1,0);{VAR38>VAR39;}
 空:=EMA(C,5);
 VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
 VARC:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
 VAR11:=(HIGH+LOW+OPEN+2*CLOSE)/5;
 VAR12:=REF(VAR11,1);
 VAR3:=SMA(MAX(VAR1-VAR12,0),10,1)/SMA(ABS(VAR11-VAR12),10,1)*100;
 VAR4:=FILTER(IF(COUNT(VAR3<20,5)>=1 AND COUNT(VAR11=LLV(VAR11,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0),5);
 DRAWTEXT_FIX(1,0.02,0.90,0,'财神705-正品标志'),COLOR00FFFF;
 DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLORCYAN;
 DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK),COLORWHITE;
 DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLORCYAN;
 DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK),COLORWHITE;
 DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;
 DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;
 {以上为显示所属板块，地域，概念等}
 DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务：'),COLORRED;
 DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,3)),COLORWHITE;