大智慧金不换副图源码

{大智慧5.57版本，改动后和楼主的有区别，呵呵。大家再修改吧！  }
MA7:MA(C,7),colorwhite;
MA13:MA(C,13),coloryellow;
MA21:MA(C,21),COLORRED;
MA42:MA(C,42),colorgreen;
MA119:MA(C,119),COLORBLUE;

A12:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,200);
AL:=LLV(LOW,200);
B0:=(AH-AL)/40;
B1:=HIGH+B0;
B2:=LOW-B0;
追:=ref(c,ref(hhvbars(v,21),0)),COLORGREEN,linethick0;
m1:=ma(close,1),linethick0;
a1:=V>1*ref(V,1) and (c/ref(C,1)-1)*100>9.5 and m1>=追,COLORRED;
DRAWICON(cross(a1,1),l*0.98,3),COLORWHITE,;
DRAWTEXT(a1,l*0.93,'追'),LINETHICK1,colorred;
DRAWTEXT(IF(CROSS(69,SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100),1,0),HIGH*1.045,'持币'),colorgreen;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;

VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'▲'),COLORRED;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS) AND CROSS(84,RSI),H*1.028,'▼'),LINETHICK7,COLOR00FFFF;
DRAWTEXT(CROSS(84,RSI) AND CROSS(76,VAR28),H*1.01,'顶'),LINETHICK7,colorblue;

VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IF(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);
VARA10:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K1:=EMA(VAR7,5)*2, , COLORFF00FF;
D1:=EMA(K1,5), , COLORWHITE;
J1:=K1*3-D1*2, ,COLORYELLOW;
VARB10:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J1>10;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.93,'持'),COLORFF00FF;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.94,'股'),COLORFF00FF;

VARE10:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF10:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR11:=VARFREF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'主'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.94,'力'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.93,'行'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.92,'为'),LINETHICK1,COLORFF00FF;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'震'),COLORWHITE;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.96,'仓'),COLORWHITE;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A10:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B10:=REF(C,A10+1)>C AND REF(DIFF,A10+1) DRAWTEXT(IF(B10>0,1,0),L,'大'),Color0000F5;
DRAWTEXT(IF(B10>0,1,0),L-0.11,'底'),Color0000F5;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K11:=SMA(RSV,3,1);
D11:=SMA(K11,3,1);
A2:=BARSLAST(REF(CROSS(K11,D11),1));
B20:=REF(C,A2+1)>C AND REF(K11,A2+1) DRAWTEXT(IF(B20>0,1,0),L-0.22,'小'),Color6C8CCF;
DRAWTEXT(IF(B20>0,1,0),L-0.35,'底'),Color6C8CCF;
LC1:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC1,0),6,1)/SMA(ABS(CLOSE-LC1),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC1,0),12,1)/SMA(ABS(CLOSE-LC1),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1)); 
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)
DRAWTEXT(IF(B3>0,1,0),L-0.46,'中'),Color0067DE;
DRAWTEXT(IF(B3>0,1,0),L-0.57,'底'),Color0067DE;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)); 
D10:=REF(C,C1+1)DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D10>0,1,0),H+0.1,'小顶'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D11,K11),1));
D2:=REF(C,C2+1)K11 AND CROSS(D11,K11);
DRAWTEXT(IF(D2>0,1,0),H+0.25,'中顶'),Color0AB000; 
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1)); 
D3:=REF(C,C3+1)RSI1 AND CROSS(RSI2,RSI1); 
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大顶'),ColorFF0000;