VAR1:=(2*CLOSE+HIGH+LOW)/4; VAR2:=IF(YEAR>=2099 AND MONTH>2,0,1); VAR3:=LLV(LOW,5); VAR4:=HHV(HIGH,4); 散户:=EMA((VAR1-VAR3)/(VAR4-VAR3)*100,4)*VAR2; 庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR2; DRAWTEXT(CROSS(散户,庄家) AND 散户<47,L-0.05,'←低吸'),COLORLIRED; DRAWTEXT(CROSS(庄家,散户) AND 散户>60,H+0.05,'←高抛'),COLOR80FF00; {DRAWICON(CROSS(散户,庄家) AND 散户<47,L-0.05,4); DRAWICON(CROSS(庄家,散户) AND 散户>60,H+0.05,5);} {市场成本:DMA(AMOUNT/V/100,V/CAPITAL),COLORRED;} 操盘成本:=(MA(C,30)+MA(C,72))/2,COLORRED; 市盈率:=DYNAINFO(39),COLORFF00FF; TJ:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01; STICKLINE(TJ,OPEN,CLOSE,3,0),COLORFF00FF; 量_价:=1;CTKG:=1; W:=量_价; EPSL:=0.0001; ZZ:=(C+H+L)/3; TJA:=ZZ>=MAX(C,O) AND CTKG=1; TJB:=ZZ<=MIN(C,O) AND CTKG=1; ZF:=IF(TJA,1,IF(TJB,-1,0)); TJ0:=TJA OR TJB; TJ1:=H=L AND C>REF(C,1);{一字涨停}; TJ2:=H=L AND C<REF(C,1);{一字跌停}; TJ3:=H=L AND C=REF(C,1);{连续一字涨、跌停}; 量_价:=IF(W=1,VOL,AMOUNT),STICK,COLOREEFFEE;{平盘量,白色} EE:=IF(TJ1,EPSL,IF(TJ2,-EPSL,0)); ZL:=2*(H-L)+ABS(C-O)+3*IF(TJ3,EPSL,ABS(EE)); JGL_DX:=(IF(TJ0,2/3*(2*C-H-L)+ZF*ABS(C-O),(C-O))+EE)/ZL; 差:=(JGL_DX*量_价)/20000,COLOR13AADD; DX:=JGL_DX*100; 买:=量_价*(1+JGL_DX)/20000,COLOR1133AA; 卖:=量_价*(1-JGL_DX)/20000,COLORFFFF00; 量差:=买-卖,COLORYELLOW; STICKLINE(量差<=0,CLOSE,OPEN,3,0),COLOR009900; STICKLINE(量差<=0,CLOSE,OPEN,2,0),COLOR00BB00; STICKLINE(量差<=0,CLOSE,OPEN,1,0),COLOR00DD00; STICKLINE(量差<=0,CLOSE,OPEN,0.1,0),COLOR00FF00; STICKLINE(量差>=0,CLOSE,OPEN,3,0),COLOR000099; STICKLINE(量差>=0,CLOSE,OPEN,2,0),COLOR0000CC; STICKLINE(量差>=0,CLOSE,OPEN,1,0),COLOR0000FF; STICKLINE(量差>=0,CLOSE,OPEN,0.1,0),COLORCC66FF; V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1); STICKLINE(V2V,OPEN,CLOSE,2,0),COLORYELLOW; ZT:=C/REF(C,1)>1.097; STICKLINE(ZT,OPEN,CLOSE,2,0),COLORYELLOW; V3V:=V/REF(V,1)>=1.9 AND C<REF(C,1); STICKLINE(V3V,OPEN,CLOSE,2,0),COLORBLUE; D:=MA(CLOSE,80)-MA(CLOSE,10)/3; DRAWTEXT(IF(CLOSE<D AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'↖抄底'),COLORRED; AR1:=REF(CLOSE,1); AR2:=SMA(MAX(CLOSE-AR1,0),7,1)/SMA(ABS(CLOSE-AR1),7,1)*100; DRAWTEXT(FILTER(REF(AR2,1)<20 AND AR2>REF(AR2,1),5),L*0.99,'↖特准抄底'),COLORGREEN; BIAS1:=(C-MA(C,6))/MA(C,6)*100; BIAS2:=(C-MA(C,12))/MA(C,12)*100; BIAS3:=(C-MA(C,24))/MA(C,24)*100; BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6; 乖离:=MA(BIAS,3); DRAWTEXT(CROSS(BIAS,乖离) AND 乖离<-9.5,L*0.96,'↖红柱抄底'),COLORRED; EMA7:EMA(C,7),COLORWHITE; EMA21:EMA(C,21),COLORGREEN; EMA34:EMA(C,34),COLORYELLOW; EMA55:EMA(C,55),COLORBLUE; K:=(C+H+L)/3; DD:=MA(K,4); {操作:DD,COLORWHITE,LINETHICK2; 拉升:HHV(DD,13),COLORRED,LINETHICK2; 阻力:HHV(DD,55),COLORRED; 买卖:LLV(DD,8),COLORYELLOW,LINETHICK2; 顶部:HHV(H*0.98,55),COLORYELLOW;} DRAWTEXT(REF(C,1)>DD AND C<DD AND DD>REF(DD,1),H*1.02, '←卖'); DRAWTEXT(REF(C,1)<DD AND C>DD AND DD<REF(DD,1),L*0.98, '←买'),COLORWHITE; {STICKLINE( MA(CLOSE,8)>MA(CLOSE,30),MA(CLOSE,8),MA(CLOSE,30),8,0),COLOR000088; STICKLINE( MA(CLOSE,8)<MA(CLOSE,30),MA(CLOSE,8),MA(CLOSE,30),8,0),COLOR008800;}; |
