<P><BR>公式是转贴的人家的,但是自己在大智慧里修改了的。可惜我的权限无法直接用附件发EXP文件,只能把代码发出来,大家自己贴进去了。</P>
<P>{主力动向:}</P>
<P>var2:=REF(LOW,1); <BR>Var3:=SMA(ABS(LOW-Var2),13,1)/SMA(MAX(LOW-Var2,0),13,1)*100; <BR>Var4:=EMA(IF(CLOSE*1.2,Var3*13,Var3/13),13); <BR>Var5:=LLV(LOW,34); <BR>Var6:=HHV(Var4,34); <BR>Var7:=IF(LLV(LOW,56),1,0); <BR>Var8:=EMA(IF(LOW<=Var5,(Var4+Var6*2)/2,0),3)/618*Var7;<BR>Var9:=EMA(CLOSE,5);<BR>Var10:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10);<BR>Var11:=EMA(IF(LOW<=Var5,(Var4+Var6*2)/2,0),3)/618*Var7*(-1);<BR>Var12:=EMA(CLOSE,5)*(-1);<BR>STICKLINE(Var12<REF(Var12,1),0,Var12*0.08,4,1),color10E410;<BR>减仓:IF(Var12<REF(Var12,1),Var12,0),color10E410,linethick0;<BR>STICKLINE(Var9<REF(Var9,1),0,Var9*0.08,4,1),color1010FF;<BR>增仓:IF(Var9<REF(Var9,1),Var9*0.2,0),color1010FF,linethick0;<BR>STICKLINE(Var8>REF(Var8,1),0,Var8,4,1),color10FFFF,linethick0;<BR>主力进场:IF(Var8>REF(Var8,1),Var8*8,0),color10FFFF,linethick0;<BR>STICKLINE(Var11>REF(Var11,1),0,Var11,4,1),colorFFF810;<BR>洗盘:IF(Var11>REF(Var11,1),Var11*8,0),colorFFF810,linethick0;<BR>主力持仓:LOW,colorFF10FF,linethick0;<BR>增减力度:Var10*5,colorwhite;<BR>XL1:=MA(LOW,2)*0.96;<BR>XL2:=MA(LOW,26)*0.85;<BR>XL3:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1 AND REF(XL1,1)<REF(XL1,2);<BR>STICKLINE(XL3,0,Var8*3,4,0),Color006EFF;<BR>DRAWTEXT(XL3,Var8*2,'买'),Color0000FF;<BR>↑买:DRAWICON(XL3,Var8*3,4),colorred;</P>
<P> </P>
<P> </P>
<P>{跟庄建仓}</P>
<P> </P>
<P>A1:=CAPITAL;<BR>A2:=(((H + L) + O) + C) / 4;<BR>A3:=(((INDEXH + INDEXL) + INDEXO) + INDEXC) / 4;<BR>A4:=(A2 - (REF(A2,1))) / (REF(A2,1));<BR>A5:=(A3 - (REF(A3,1))) / (REF(A3,1));<BR>A6:=(((SUM(A4,10)) + (SUM(A5,10))) / 10) * 1000;<BR>A7:=IF(((A6 > 0) AND (A6 < 75)),A6,(IF((A6 > 75),75,0)));<BR>A8:=IF(((A6 < 0) AND (A6 > -75)),REVERSE(A6),(IF((A6 < -75),75,0)));<BR>STICKLINE(A8,150,(150 - A8),3,1),COLOR825200;<BR>STICKLINE(A7,150,(150 - A7),3,1),COLOR7A67CF;<BR>{A9:=(VOL * (((A2 * 2) - HIGH) - LOW)) / (HIGH - LOW);<BR>A10:=IF(((HIGH = LOW) AND (A2 < (REF(A2,1)))),(-1 * VOL),VOL);<BR>A11:=IF((HIGH = LOW),A10,A9);<BR>A12:=SUM(A11,11);<BR>A13:=(A12 / (A1 * 11)) * 10000;<BR>A14:=IF(((A13 < 150) AND (A13 > -150)),A13,150);<BR>A15:=IF((A14 > 0),A14,0);<BR>A16:=IF((A14 < 0),REVERSE(A14),0);<BR>STICKLINE((A14 > 0),0,A15,3,1),COLORYELLOW;<BR>STICKLINE((A14 < 0),0,A16,3,0),COLOR2E9F15;}<BR>A17:=(SUM((A2 * VOL),16)) / (SUM(VOL,16));<BR>A18:=(SUM((A2 * VOL),11)) / (SUM(VOL,11));<BR>A19:=(SUM((A2 * VOL),6)) / (SUM(VOL,6));<BR>A20:=((SUM((A2 * VOL),7)) - (A2 * VOL)) / ((SUM(VOL,7)) - VOL);<BR>A21:=((A18 - A17) / A2) * 1000;<BR>A22:=IF((A21 > 50),50,(IF((A21 < -50),-50,A21)));<BR>A23:=((A19 - A18) / A2) * 1000;<BR>A24:=IF((A23 > 50),50,(IF((A23 < -50),-50,A23)));<BR>A25:=((((A19 - A20) / A20) * 5) / 4) * 1000;<BR>A26:=IF((A25 > 50),50,(IF((A25 < -50),-50,A25)));<BR>A27:=(A22 + A24) + A26;<BR>红柱线:IF((A27 > 0),A27,0),COLOR003ADB,LINETHICK2;<BR>兰柱线:IF((A27 < 0),REVERSE(A27),0),COLORE99A2C,LINETHICK2;<BR>{A28:=IF((兰柱线 < 150),兰柱线,(IF((兰柱线 = 150),65,0)));<BR>A29:=IF((兰柱线 = 150),60,0);<BR>A30:=IF((红柱线 < 150),红柱线,(IF((红柱线 = 150),65,0)));<BR>A31:=IF((红柱线 = 150),60,0);<BR>A32:=(((红柱线 > (REF(红柱线,1))) AND (红柱线 > 49)) AND (CLOSE < (REF(CLOSE,1)))) AND ((OPEN < (REF(CLOSE,1))) OR ((OPEN = (REF(CLOSE,1))) AND ((HIGH / (REF(CLOSE,1))) < 1.02)));<BR>DRAWICON(A32,90,9),COLORGREEN;}<BR>{超跌短线买点:(兰柱线 = 150) AND ((CLOSE < OPEN) OR (CLOSE > OPEN)),COLORRED;<BR>A33:=SUMBARS(VOL,(A1 * 0.8));<BR>A34:=IF((A33 < 9),9,A33);<BR>A35:=HHV(A2,A34);<BR>A36:=LLV(A2,A34);<BR>A37:=IF((A35 = A36),0,((100 * (A2 - A36)) / (A35 - A36)));}<BR>{中趋势线:(1.5 * (SUM(A37,6))) / 6,LINETHICK2,COLORRED;<BR>长趋势线:(SUM(中趋势线,6)) / 6,LINETHICK2,COLORGREEN;}<BR>{A38:=((HIGH - A2) > (A2 - LOW)) OR ((HIGH = LOW) AND (LOW < (REF(CLOSE,1))));<BR>A39:=FILTER(A38,5);}<BR>A40:=EMA((((CLOSE - (LLV(LOW,25))) / ((HHV(HIGH,25)) - (LLV(LOW,25)))) * 4),4);<BR>{DRAWTEXT((FILTER((A40 > 3.6),10)),155,'考虑出货'),COLORGREEN;}<BR>{DRAWTEXT((FILTER((A40 < 0.25),5)),30,'考虑买入'),COLORRED;<BR>A42:=(EMA((((CLOSE - (LLV(LOW,33))) / ((HHV(HIGH,21)) - (LLV(LOW,33)))) * 100),20)) * 0.998;<BR>A43:=EMA(((0.667 * (REF(A42,1))) + (0.333 * A42)),1);<BR>STICKLINE((A43 < 20),20,(20 + 20),4,0),COLORMAGENTA;<BR>DRAWTEXT((超跌短线买点 = 1),60,'超跌短线买点'),COLORWHITE;<BR>DRAWTEXT((A32 = 1),60,'超强短线买点'),COLORYELLOW;<BR>买方能量:(A15),COLORYELLOW,LINETHICK1;}<BR>{新加}<BR>MACD:="MACD.MACD"(12,26,9)*25;<BR>STICKLINE((MACD>0),MACD,0,3,1),COLOR003ADB,LINETHICK2;<BR>STICKLINE((MACD < 0),MACD,0,3,1),COLORE99A2C,LINETHICK2;<BR>STICKLINE(( "MACD.MACD"(12,26,9)>"MACD.DIFF"(12,26,9) AND MACD < 0 ),MACD,0,3,1),COLORFF00FF,LINETHICK2;<BR>DIF负:IF("MACD.DIFF"(12,26,9)<0,兰柱线,0),COLORGREEN,LINETHICK2;</P>