135 主图源码(通达信)

白马线:MA(C,13),COLORRED,LINETHICK1;
黑马线:MA(C,34),COLORYELLOW,LINETHICK1;
烈马线:MA(C,55),COLOR9933CC,LINETHICK1;
K1:=BacKSET(白马线<REF(白马线,1),2);
波幅变窄:IF(K1,白马线,DRAWNULL),COLOR00CC33,LINETHICK1;
K2:=BACKSET(黑马线<REF(黑马线,1),2);
均线粘合:IF(K2,黑马线,DRAWNULL),COLORFFCC66,LINETHICK1;
K3:=BACKSET(烈马线<REF(烈马线,1),2);
随时变盘:IF(K3,烈马线,DRAWNULL),COLORBLUE,LINETHICK1;
JW1:=C<OPEN AND REF(C,1)<REF(OPEN,1);
JW2:=OPEN<REF(C,1) AND C>REF(L,1);
JW3:=O<EMA(C,13) AND O<EMA(C,34) AND O<EMA(C,55);
JW:=JW1 AND JW2 AND JW3;
金屋藏娇:DRAWTEXT(JW,LOW-0.1,'←藏娇'),COLORYELLOW;
AR1:=烈马线>黑马线 AND 黑马线>白马线;
AR2:=BArslAST((C-白马线)/白马线*100<-6);
AR3:=白马线>=REF(白马线,1);
AR4:=COUNT(crOSS(C,白马线),AR2)=1;
AR5:=AR1 AND AR2 AND AR3 AND AR4;
AR6:=AR5 AND FILTER(AR5,10);
红杏出墙:DRAWTEXT(AR6,L-0.0,'←红杏'),COLORYELLOW;
Z1:STICKLINE(AR6,H,L,0.2,1),COLORYELLOW;
Z2:STICKLINE(AR6,O,C,3,1),LINETHICK2,COLORYELLOW;
BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5) ,5)=5;
BR2:=Abs((白马线-黑马线)+(黑马线-烈马线))/C<0.2;
BR3:=C>烈马线 AND (REF(C,1)<REF(烈马线,1) OR REF(C,2)<REF(烈马线,2) OR
REF(C,3)<REF(烈马线,3) OR REF(C,4)<REF(烈马线,4) OR REF
(C,5)<REF(烈马线,5));BR4:=BR1 AND BR2 AND BR3;
蚂蚁上树:DRAWTEXT(BR4 AND FILTER(BR4,10),H+0.0,'←上树'),COLOR00C5FF;
TS1:=CROSS(MA(C,13),MA(C,34));
TS2:=MA(C,13)<MA(C,55);
TS:=TS1 AND TS2;
投石问路:DRAWTEXT(TS,黑马线-0.0,'←投石'),COLORF00FF0;
破镜重圆:DRAWTEXT(REF((MAX(MA(C,1),MA(C,55))-MIN(MA(C,1),
MA(C,55)))/MIN(MA(C,1),MA(C,55))*1000<60,1)
AND EMA((EMA(CLOSE,12)-EMA(CLOSE,26)),9)<REF(EMA
((EMA(CLOSE,12)-EMA(CLOSE,26)),9),1) AND REF((CLOSE-REF(CLOSE,1))/REF
(CLOSE,1)*100<-1,1) AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*
100>3,L-0.02,'←重圆');
破镜重圆K:STICKLINE(破镜重圆,OPEN,CLOSE,2.5,0),COLORWHITE;
Y:=(MA(C,13)-MA(C,55))/MA(C,13)*100;
YY1:=C>MA(C,13) AND OPEN<MA(C,13);
YY3:=C>MA(C,34) AND OPEN<MA(C,34);
YY5:=C>MA(C,55) AND OPEN<MA(C,55);
阳穿三线:DRAWTEXT(YY1 AND YY5 AND YY3,LOW-0.05,'←穿线'),COLORRED;
SJ1:=ABS(MA(CLOSE,13)-MA(CLOSE,34))<C*0.01;
SJ2:=ABS(MA(CLOSE,34)-MA(CLOSE,55))<C*0.01;
SJ3:=CROSS(MA(CLOSE,13),MA(CLOSE,55));
阳穿三线K:STICKLINE(阳穿三线,OPEN,CLOSE,2.5,0),COLORYELLOW;
三军集结:DRAWTEXT(SJ1 AND SJ2 AND SJ3,HIGH+0.05,'←集结'),COLORRED;
JG1:=ABS(MA(C,13)-MA(C,34))<C*0.02 AND ABS(MA(C,13)-MA(C,55))<C*0.02;
JG2:=O>MA(C,13) OR O=MA(C,13);
JG3:=C/OPEN>1.03 ;
JG:=JG1 AND JG2 AND JG3;
揭竿而起:DRAWTEXT(JG,H+0.0,'←揭竿'),COLORYELLOW;
HR2:=白马线>=REF(白马线,3) AND 黑马线>=REF(黑马线,1) AND 烈马线>=REF
(烈马线,1) AND CROSS(C,白马线) AND CROSS(C,黑马线) AND CROSS(C,烈马线);
三线推进:DRAWTEXT(HR2 AND FILTER(HR2,10),H+0.1,'←推进'),COLORFFC8FF;
X1:STICKLINE(HR2 AND FILTER(HR2,10),H,L,0,1),COLORFFC8FF;
X2:STICKLINE(HR2 AND FILTER(HR2,10),O,C,3,1),LINETHICK2,COLORFFC8FF;
MK1:=MA(C,13)>MA(C,55) AND MA(C,34)>MA(C,55);
MK:=TS1 AND MK1;
梅开二度:DRAWTEXT(MK,黑马线-0.0,'←二度'),COLORF00FF0;
均线互换:DRAWTEXT(CROSS(黑马线,烈马线),烈马线-0.0,'←互换'),
COLOR0099FF,LINETHICK9;
YZ1:=C/O>1.02 AND H/C>1.02 AND O/L<1.02;{收阳有上影}
YZ2:=REF(C,1)>REF(O,1) AND O>MA(C,11);{昨收阳 今大于均线}
YZ:=YZ1 AND YZ2 AND Y>10;
一支独秀:DRAWTEXT(YZ,H+0.02,'←独秀'),COLORF00FF0;
DS1:=OPEN/C>1.04 AND O/REF(C,1)>1.03;
DS2:=V*100/FINANCE(7)>0.08 AND Y>8;
DS:=DS1 AND DS2;
独上高楼:DRAWTEXT(DS,HIGH+0.0,'←高楼'),COLORGREEN;
YJ1:=H/O>1.04;
YJ2:=ABS(C-O)<C*0.03;
YJ3:=C/EMA(C,13)>1.1;
YJ:=YJ1 AND YJ2 AND DS2 AND YJ3 AND YZ2;
一剑封喉:DRAWTEXT(YJ,HIGH+0.1,'←封喉'),COLORRED;
T:=(MA(C,13)-MA(C,55))/MA(C,13)*100;
NN1:=C<MA(C,13) AND OPEN>MA(C,13);
TT3:=C<MA(C,34) AND OPEN>MA(C,34);
TT5:=C<MA(C,55) AND OPEN>MA(C,55);
阴破三线:DRAWTEXT(NN1 AND TT5 AND TT3,H+0.0,'←破线'),COLORBLUE;
红衣黑客:DRAWTEXT(CROSS(白马线,烈马线),烈马线-0.0,'←红客'),
COLORYELLOW,LINETHICK9;
投石叉:DRAWICON(CROSS(白马线,黑马线),黑马线,1);
红客叉:DRAWICON(CROSS(白马线,烈马线),烈马线,1);
互换叉:DRAWICON(CROSS(黑马线,烈马线),烈马线,1);
分道叉:DRAWICON(CROSS(黑马线,白马线),黑马线,2);
穿心叉:DRAWICON(CROSS(烈马线,白马线),烈马线,2);
各为叉:DRAWICON(CROSS(烈马线,黑马线),烈马线,2);

{买卖成交量}[源码
量:vol,VOLSTICK;
预量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),COLORFFFF00;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*
((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORFF00FF,POINTDOT ;
卖:-IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),
IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORFF9088,POINTDOT;
买卖%:ABS(买/卖),LINETHICK0,COLORWHITE;
二十换:SUM(V/CAPITAL*100,20),COLORRED,POINTDOT;
预换:MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1))/
CAPITAL*100,COLORFFFF00,POINTDOT;
STICKLINE(VOL>0,VOL,0,2.5,0),COLORFF9088;
STICKLINE(买>0,0,买,2.5,0),COLORFF00FF;
五日均量:MA(V,5),COLORWHITE;
十日均量:MA(V,10),COLORYELLOW;
红箭:DRAWICON(CROSS(五日均量,十日均量),十日均量,1);
绿箭:DRAWICON(CROSS(十日均量,五日均量),十日均量,2);

{绝代双骄macd}[源码

DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED;
DEA:EMA(DIF,9);DEF:=2*(DIF-DEA);
MACD:(DIF-DEA)*2,COLORSTICK;
进退有据:(DIF-DEA)*2,COLORFF00FF,LINETHICK1;
K1:=BACKSET(进退有据<REF(进退有据,1),2);
速战急归:IF(K1,进退有据,DRAWNULL),COLOR00CC33,LINETHICK1;
K2:=BACKSET(DIF<REF(DIF,1),2);
畏法度:IF(K2,DIF,DRAWNULL),COLORLIBLUE,LINETHICK1;
红柱持股:IF(MACD>REF(MACD,1),MACD,DRAWNULL),STICK,COLORRED,LINETHICK1;
绿柱持币:IF(MACD<REF(MACD,1),MACD,DRAWNULL),STICK,COLORLIBLUE,LINETHICK2;
日:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
月:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
天堂:DRAWTEXT(CROSS(DIF,DEA) AND DIF<0,DEA,'←天'),COLORFF00FF;
加油:DRAWTEXT(CROSS(DIF,DEA) AND DIF>0,DEA,'←加'),COLORYELLOW;
地狱:DRAWTEXT(CROSS(DEA,DIF) AND DIF<0,DEA,'←地'),COLOR00CC33;
末日:DRAWTEXT(CROSS(DEA,DIF) AND DIF>0,DEA,'←末'),COLORLIBLUE;
卖出:DRAWICON(FILTER(日,3) AND 日,DEF+0.03,8);
钱袋:DRAWICON(FILTER(月,3) AND 月,DEF-0.03,9);
金叉:DRAWICON(CROSS(DIF,DEA),DEA,1);
死叉:DRAWICON(CROSS(DEA,DIF),DEA,2);

[size=4{股市天机}[源码
DIF:=EMA(CLOSE,9)-EMA(CLOSE,18);
DEA:=EMA(DIF,7);
DEF:=2*(DIF-DEA);
量价线形:(DIF-DEA)*2,COLORSTICK;
STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,2.0,1),COLORRED;
STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,2.0,0),COLORFFFF00;
STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,2.0,1),COLORRED;
STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,2.0,0),COLORFFFF00;
DIFF:EMA(CLOSE,9)-EMA(CLOSE,18),COLORWHITE;
DEAA:EMA(DIFF,7),COLORYELLOW;
日:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
月:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
进退有据:(DIF-DEA)*2,COLORFF00FF,LINETHICK2;
K1:=BACKSET(进退有据<REF(进退有据,1),2);
速战急归:IF(K1,进退有据,DRAWNULL),COLOR00CC33,LINETHICK2;
卖出:DRAWICON(FILTER(日,3) AND 日,DEF+0.01,8);
钱袋:DRAWICON(FILTER(月,3) AND 月,DEF-0.0,9);
金叉:DRAWICON(CROSS(DIFF,DEAA),DEA,1);
死叉:DRAWICON(CROSS(DEAA,DIFF),DEA,2);