135 主图源码(通达信)

135 主图源码(通达信)

源码正文：

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

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

[源码

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

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