aa1:=vol/capital;
aa2:=(aa1-ref(aa1,5))/ref(aa1,5);
aa3:=(close-ref(close,5))/ref(close,5);
aa4:ma(aa2,10);
aa5:ma(aa3,10)*200,colorstick;
aa5;
aa6:=ma(aa5,3);
aa7:ma(aa5,5);
aa8:=cross(aa5,aa7);
无量拉升:aa8 and aa5<aa4,colorred;
stickline(aa8 and aa5<aa4,7,0,5,0),colorred,linethick2;
stickline(aa8 and aa5<aa4,7,11,5,0),colorblue,linethick2;
a7:=if(aa5>aa7,aa5,0);
a8:=if(aa5<aa7,aa5,0);
rkp:if(a7<=aa7,aa5,0),linestick,colorblue;
qkp:if(a8>=aa7,aa5,0),linestick,colorred;

源头
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),21,1)/SMA(ABS(CLOSE-LC),21,1)*100;
JW1:=EMA(RSI,8)-EMA(RSI,17);
G1:1.5*JW1;
G2:1.5*JW1,COLORSTICK;
DRAWTEXT(FILTER(JW1>0,20),HHV(JW1,120),'长江'),COLOR999999;
DRAWTEXT(FILTER(JW1<0,20),LLV(JW1,120),'珠江'),COLOR00F080;
DRAWTEXT(CROSS(JW1,0),0,'源头'),COLORDD22DD;


开始打炮
DRAWGBK((CLOSE>0),COLORRGB(8,7,8),COLORRGB(5,2,4),1);
VAR1:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100+50;
VAR2:=EMA(VAR1,9);
VAR3:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
VAR4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR5:=SMA(VAR4,13,8);
光阴:CEILING(SMA(VAR5,13,8)),ColorFFFFFF;
VAR6:=SMA(VAR3,21,8);
各自睡觉（竖）: IF(LONGCROSS(VAR2,VAR1*0.95,7) AND VAR1>60,100,80),COLOR00FF00,STICK,LINETHICK2;
80,COLOR000000,STICK,LINETHICK2;
搂搂抱抱（横）: IF(光阴-VAR6<-65,15,0),Color0000FF,CIRCLEDOT,LINETHICK4;
开始打炮（竖）: IF(LONGCROSS(VAR1,VAR2*1.05,15) AND VAR1<40,20,0),ColorFF00FF,STICK,LINETHICK2;
高潮迭起（横）: IF(光阴-VAR6>85,95,90),CIRCLEDOT,Color0080FF,LINETHICK4;
90, POINTDOT;
中分线:50, POINTDOT,ColorC0C0C0;
{夫妻对话}
Var1:=LLV(LOW,10);
Var2:=HHV(HIGH,25);
HM魅力: EMA((CLOSE-Var1)/(Var2-Var1)*4,4)*10,ColorACFF00;
EXPLAIN( HM魅力<1,'夫妻两上床后开始温存 ');
EXPLAIN( HM魅力<1,' 妻摸了摸夫的下面：怎么还这么疲软？ '),;
EXPLAIN( HM魅力<1,'夫：别着急，盘整的越久，涨的越凶。');
EXPLAIN( HM魅力>1 AND HM魅力<2,'妻继续抚摩夫的下面：开始涨了，哇，涨的好快。'),;
EXPLAIN( HM魅力>1 AND HM魅力<2,' 夫：怎么样？涨停了，光头大阳线。 '),;
EXPLAIN( HM魅力>2 AND HM魅力<2.5,'妻终于忍不住，翻身骑在夫身上：亲爱的，我套牢你了。 ');
EXPLAIN( HM魅力>2 AND HM魅力<2.5,'夫：套吧，套的越深越好。 ');
EXPLAIN( HM魅力>3,'妻：我要开始上下震荡了。 ');
EXPLAIN( HM魅力>3,'夫：震吧，注意控制好行情节奏.');
EXPLAIN( HM魅力>2.5 AND HM魅力<3,'过了一会，夫：不好，我要出货了。 ');
EXPLAIN( HM魅力>2.5 AND HM魅力<3,'妻加大了震荡幅度：等等我，我也马上要突破了。');
EXPLAIN( HM魅力>2.5 AND HM魅力<3,'井喷式高潮行情展开。');
EXPLAIN( CROSS(3,HM魅力),'两分钟后，夫妻解套。 ');
EXPLAIN( CROSS(3,HM魅力),'熊市开始，一切恢复疲软状态。');
A0:=(2*C+H+L)/4;
均线:=MA(A0,3)>REF(MA(A0,3),1);
A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100;
A2:=EMA(WINNER(C)*100,5);
A3:=MA(SMA(C-REF(C,1),3,1)/SMA(H-REF(C,1),3,1),3)*100;
K:=MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),Color008080;
D:=MA(K,3),ColorFF8080;
J:=3*K-2*D,LINETHICK,ColorFF00FF;
FILLRGN(j>k,j,k),Color5555FF;
FILLRGN(j<k,j,k),ColorFF8080;
金枪:cross(j,k)*40,LINETHICK4,STICK,Color00FFFF;
A4:=SMA(MAX(C-REF(C,2),0),6,1)/SMA(ABS(C-REF(C,2)),6,1)*100;
A5:=MA(3*SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1)-2*SMA(SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1),3,1),3);
低吸:IF(CROSS(A4,14) OR A5>REF(A5,1) AND CROSS(K,A2)AND K<40,10,0),ColorFF8080,LINETHICK;
顶:=IF(A2>80 AND CROSS(95,K),85,100),ColorFF00FF;
跌幅大:K<5 AND LLV(C,3)/HHV(C,20)<0.8,Color808040,LINETHICK;
STICKLINE(跌幅大,0,20,3,0),Color808040;
A6:=COUNT(CROSS(K,A2),2)=1 AND CROSS(K,A5)AND A5/REF(A5,1)>0.9 AND K<50;
A7:=CROSS(K,D)AND D<10 OR CROSS(K,D)AND CROSS(K,A5)AND D<18;
DRAWTEXT(FILTER((A6 OR A7)AND K>REF(K,1),5)AND 均线 ,D,'金\n叉');
DRAWTEXT(CROSS(D,K)AND CROSS(A5,K)AND D>85,D,'死\n叉');
DRAWTEXT(FILTER(K>REF(K,1)AND (CROSS(K,10)OR CROSS(K,A2))AND COUNT(A4<14,3)>=1,3),20,'虎\n口\n拔\n牙'),Color00FF80;
无限风光在险峰:A2>85 AND K>85 OR A2>90 OR K>90,LINETHICK0,ColorEB4701;
STICKLINE(无限风光在险峰,MAX(A2,K),100,6,0),ColorEB4701;
DRAWICON(CROSS(A3,-300)AND K<10,5,1);
A8:=BARSLAST(REF(CROSS(K,D),1));
二次金叉:=(A8<15 AND D<50 AND K>REF(K,A8+1) AND CROSS(K,D)AND A5<60);
DRAWTEXT(二次金叉 AND 均线,K,' 二次金叉');
A9:=LLV(C,2)<REF(LLV(C,15),2);
DRAWTEXT(二次金叉 AND A9,K,'底\n背'),COLORMAGENTA;
DRAWTEXT(LONGCROSS(J,K,7)AND CROSS(J,A2)AND A2<30 AND A2>REF(A2,1),K,'穿\n三\n线');
DRAWTEXT(CROSS(84,A4)AND CROSS(K,A4),90,'虎\n口\n脱\n险'),ColorFFFF00;
A10:=MA((A0-MA(A0,13))/(0.15*AVEDEV(A0,13)),3);
DRAWICON(CROSS(A10,-15)AND J>REF(J,1),5,1);
DRAWICON(CROSS(20,A10),100,2);