股市农耕-----(通达信主图 源码)

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA30:MA(CLOSE,30);
MA60:MA(CLOSE,60);
MA120:MA(CLOSE,120);
MA250:MA(CLOSE,250);
VARR1:=(CLOSE+HIGH+LOW)/3;
VARR2:=EMA(VARR1,10);
VARR3:=REF(VARR2,1);
黄珠买: IF(VARR2>VARR3,VARR2,DRAWNULL), POINTDOT,LINETHICK4, COLORYELLOW;
蓝珠卖: IF(VARR2<VARR3,VARR3,DRAWNULL),POINTDOT,LINETHICK4, COLORBLUE;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW*0.95,'←播种'),COLORRED,LINETHICK2;
DRAWICON(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW*0.95,17);
VAR1:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
DRAWTEXT(VAR1>90,LOW*0.92,'←追肥'),COLORFF00FF;
DRAWICON(VAR1>90,LOW*0.92,25);
VAR2:=(POW(MA(CLOSE,5),2)+MA(CLOSE,5));
VAR3:=(POW(MA(LOW,5),2)+MA(LOW,5));
VAR4:=(POW(MA(HIGH,5),2)+MA(HIGH,5));
VAR5:=(((((VAR2-LLV(VAR3,64))/(HHV(VAR4,64)-LLV(VAR3,64)))*150)+65)-10);
VAR6:=((SMA(VAR5,3,1)*1.5)-100);
VAR7:=SMA(VAR6,3,1);
VAR8:=((3*VAR6)-(2*VAR7));
VAR9:=(((HIGH+LOW)+(CLOSE*2))/4);
VAR10:=EMA(VAR9,13);
VAR11:=STD(VAR9,13);
VAR12:=(((VAR9-VAR10)*100)/VAR11);
VAR13:=EMA(VAR12,5);
VAR15:=((EMA(VAR13,13)+200)-100);
VAR16:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;
DRAWTEXT(FILTER(VAR16<-9 AND VAR16>REF(VAR16,1),18),L*0.9,'←抢播♂'),COLORRED,LINETHICK2;
DRAWICON(FILTER(VAR16<-9 AND VAR16>REF(VAR16,1),18),L*0.9,1);
VAR17:=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);
VAR18:=VAR8<REF(VAR17,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
大资金:=(VAR18 AND COUNT(VAR18,30)=1);
DRAWTEXT(大资金,LOW*0.85,'▲大资金');
{季节变化}
AA:=BARSCOUNT(C);
AH:=HHV(H,200);
AL:=LLV(L,200);
A0:=(AH-AL)/40;
B11:=L-A0;
STICKLINE((AA+0)/34=FLOOR((AA+0)/34),B11,B11-1.5*A0,2,0),COLORF00FF0;
DRAWTEXT((AA+0)/34=FLOOR((AA+0)/34),B11-1*A0,'季节变化'),COLORLIGREEN;
{大笔出货}
VAR22:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR23:=(HIGH+LOW+CLOSE)/3;
VAR24:=(VAR23-MA(VAR23,14))/(0.015*AVEDEV(VAR23,14));
VAR25:=(VAR23-MA(VAR23,70))/(0.015*AVEDEV(VAR23,70));
VAR26:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR27:=100-ABS(VAR26);
VAR28:=IF(VAR27<90,VAR27,100);
VAR29:=IF(VAR22>0,VAR22,0);
VAR30:=IF(VAR25>=200 AND VAR24>=150,15,IF(VAR25<=-200 AND VAR24<=-150,-15,VAR15))+60;
VAR31:=VAR29>48 AND VAR30>60 AND VAR28<100;
DRAWTEXT(VAR31 AND COUNT(VAR31,30)=1,HIGH*1.02,'大笔出货'),LINETHICK1,COLORFFCC66;
XXS:=MA(HIGH,5)*(1+5/100);
DRAWTEXT(CROSS(XXS,C),H,'←收割'),COLORGREEN,LINETHICK1;
DRAWICON(CROSS(XXS,C),H*1.05,9);
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
鼠:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0;
DRAWTEXT(鼠,(LOW* 0.99),'←鼠'),COLOR40CCFF;
DRAWICON(鼠,(LOW* 0.99),23);
VAR013:=IF(MA(CLOSE,13)>REF(MA(CLOSE,13),1),MA(CLOSE,13),DRAWNULL);
DRAWTEXT((IF(CLOSE>MA(CLOSE,13) AND OPEN<CLOSE,-0.1,0))AND((C-REF(C,1))/(REF(C,1))>0.061)AND(MA(CLOSE,13)=VAR013) AND (MA(CLOSE,1),MA(CLOSE,13)) AND(VOL>REF(HHV(VOL,3),1)*2),L*0.9,'主力介入'),COLORRED;
N:=10;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL);
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT;
DRAWTEXT(ISLASTBAR,T0,' 量能平台');
跟进:=IF(CROSS(K,D) OR CROSS(REF(K,1),REF(D,1)) OR CROSS(REF(K,2),REF(D,2)),10,0),COLORYELLOW;
RSV2:=(CLOSE - LLV(LOW,18))/(HHV(HIGH,18) - LLV(LOW,18))*100;
K2:=EMA(RSV2,3);
D2:=EMA(K2,3);
J2:=(3*K2-2*D2);
KDJ2:=REF(COUNT(J2<REF(J2,1),5)>=3,1) AND REF(J2,1)<20;
KDJ3:=J2>REF(J2,1);
反转:=IF(FILTER(KDJ2 AND KDJ3,3),50,0),COLORRED;
买:=IF(CROSS(J,2),35,0);
VAR222:=REF(LOW,1);
VAR332:=SMA(ABS(LOW-VAR222),3,1)/SMA(MAX(LOW-VAR222,0),3,1)*100;
VAR442:=EMA(IF(CLOSE*1.3,VAR332*10,VAR332/10),3);
VAR552:=LLV(LOW,13);
VAR662:=HHV(VAR442,13);
VAR772:=IF(MA(CLOSE,34),1,0);
VAR888:=EMA(IF(LOW<=VAR552,(VAR442+VAR662*2)/2,0),3)/618*VAR772;
VAR999:=IF(VAR888>100,100,VAR888);
吸筹:=VAR999,LINETHICK1,COLORCD7F32 ;

HH:=CONST(HHV(C,120))*1;{取现价的N日最大值}
LL:=CONST(LLV(C,120))*1;{取现价的N日最小值}
HL:=CONST(IF(CONST((HH+LL)/2)<CONST(C),LL-(HH-LL)*0.4,HH+(HH-LL)*0.4));
{取叠加副图自动转换高低值，当现价小于中间值时以LL-(HH-LL)*0.2为副图自动转换高低值，反之以HH+(HH-LL)*0.2为副图自动转换高低值}
HH1:=IF(CONST((HH+LL)/2)>CONST(C),HH,HL);{当现价小于中间值时以最大值为最高点，反之以HL为最高点}
LL1:=IF(CONST((HH+LL)/2)<CONST(C),LL,HL);{当现价小于中间值时以最小值为最低点，反之以HL为最低点}
HLMAX:=MAX(HH1,LL1);{设定所要叠加副图比例的最大值}
HLMIN:=MIN(HH1,LL1);{设定所以叠加副图比例的最小值}
HLMN1:=(HLMAX+HLMIN)/2;{取设定所要叠加副图比例的最大最小值的中间值}
HLMN2:=HLMAX-HLMIN;{取设定所要叠加副图比例的最大最小值的差值}
HLMN3:=(100-0)/2;
HLMN4:=100-0;
(50-50)*HLMN2/100+HLMN1,COLOR555555;
{(20-50)*HLMN2/100+HLMN1,COLOR555555;
(80-50)*HLMN2/100+HLMN1,COLOR555555;}
(100-50)*HLMN2/100+HLMN1,COLOR555555;
{以上定义叠加副图坐标}
STICKLINE(吸筹,(0-50)*HLMN2/100+HLMN1,(VAR999-50)*HLMN2/100+HLMN1,2,10),COLORFF00FF;
STICKLINE(J<=0,(90-50)*HLMN2/100+HLMN1,(100-50)*HLMN2/100+HLMN1,4,0),COLORYELLOW;
IF(反转=50,(50-50)*HLMN2/100+HLMN1,(0-50)*HLMN2/100+HLMN1),COLORRED;
IF(买=35,(35-50)*HLMN2/100+HLMN1,(0-50)*HLMN2/100+HLMN1),COLORYELLOW,LINETHICK1.5;
IF(跟进=10,(10-50)*HLMN2/100+HLMN1,(0-50)*HLMN2/100+HLMN1),COLORRED;
KZ:(K-50)*HLMN2/100+HLMN1,COLORFFFFFF;
DZ:(D-50)*HLMN2/100+HLMN1,COLOR00FFFF;
JZ:(J-50)*HLMN2/100+HLMN1,COLORMAGENTA;
KDJ_K:="KDJ.K"(9,3,3);KDJ_D:="KDJ.D"(9,3,3);KDJ_J:="KDJ.J"(9,3,3);
买1:=CROSS(KDJ_J,0) OR (CROSS(KDJ_J,KDJ_K) AND KDJ_D<26);
买2:=CROSS("RSI.RSI1"(6,2,2),20) OR CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
买3:=CROSS("MACD.DIF","MACD.DEA") OR CROSS("MACD.MACD",0);
买0:=买1+买2+买3;
{买:IF(买0>1,买0,0);}
DRAWICON(买0>1,L*0.98,16);