郎少
发表于 2011-1-17 09:39
公式原码:<BR>R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);<BR>K:=EMA(R,3);<BR>D:=EMA(K,3);<BR>一年十二倍:20,colorred;<BR>陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);<BR>N:=IF((陡峭度 > 0.35),6,65);<BR>VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));<BR>VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));<BR>获利盘:=(WINNER(CLOSE))*(100);<BR>获利线:=FORCAST(获利盘,7);<BR>线:=(FORCAST(VAR1A,7))*((DATE < 20070110));<BR>满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0))*(40);<BR>STICKLINE(满仓,0,40,5,0),Color008000;<BR>DRAWTEXT(满仓,45,''满仓''),ColorWHITE;<BR>轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);<BR>STICKLINE(轻仓,20,D,4,1),ColorFF00FF;<BR>DRAWTEXT(轻仓,45,''轻仓''),ColorFF00FF;<BR>出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0);<BR>STICKLINE(出击,0,50,3,1),Color44BB00;<BR>DRAWTEXT(出击,55,''出击''),colorred;<BR>进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);<BR>进二:CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1));<BR>低进:=IF(进一 and (D > 获利线),进二,进一);<BR>DRAWTEXT(低进,30,''低进''),ColorWHITE;<BR>STICKLINE(低进,20,30,3,1),Color000080;<BR>DRAWTEXT(进二,50,''高进''),Color800080;<BR>STICKLINE(进二,30,50,3,1),coloryellow;<BR>狂喜:=(30)*(CROSS(VAR1,(-2)));<BR>STICKLINE(狂喜,0,20,3,1),coloryellow;<BR>DRAWTEXT(狂喜,(-5),''要涨停''),coloryellow;<BR>狂喜过望:=(50)*((VAR1 = 0));<BR>恐慌:=(20)*(VAR1 < -94); <BR>STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;<BR>DRAWTEXT(恐慌,(-25),''恐慌''),ColorC1C1C1;<BR>极度恐慌:=(-40)*(VAR1 = (-100)); <BR>STICKLINE(极度恐慌,0,(-40),7,1),Color800000;<BR>DRAWTEXT(极度恐慌,(-45),''极度恐慌''),ColorGREEN;<BR>半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0));<BR>STICKLINE(半仓,0,30,4,1),ColorFFFF00;<BR>DRAWTEXT(半仓,35,''半仓''),ColorFFFF00;<BR>加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0));<BR>STICKLINE(加仓,0,20,6,1),Color808080;<BR>DRAWTEXT(加仓,25,''加仓''),Color808080;<BR>背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1));<BR>DRAWICON(背离,0,1),ColorFFFFFF;<BR>================================================================================================<BR>{一年十二倍--满仓选股 }<BR>R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);<BR>K:=EMA(R,3);<BR>D:=EMA(K,3);<BR>陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);<BR>N:=IF((陡峭度 > 0.35),6,65);<BR>VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));<BR>VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));<BR>获利盘:=(WINNER(CLOSE))*(100);<BR>获利线:=FORCAST(获利盘,7);<BR>线:=(FORCAST(VAR1A,7))*((DATE < 30070110));<BR>((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0))*(40);<BR>=================================================================================================<BR>{一年十二倍--低进选股 }<BR>R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);<BR>K:=EMA(R,3);<BR>D:=EMA(K,3);<BR>陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);<BR>N:=IF((陡峭度 > 0.35),6,65);<BR>VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));<BR>VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));<BR>获利盘:=(WINNER(CLOSE))*(100);<BR>获利线:=FORCAST(获利盘,7);<BR>线:=(FORCAST(VAR1A,7))*((DATE < 30070110));<BR>轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);<BR>出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0);<BR>进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);<BR>进二:=CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1));<BR>IF(进一 and (D > 获利线),进二,进一);<BR>================================================================================================<BR>{一年十二倍--高进选股 }<BR>R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);<BR>K:=EMA(R,3);<BR>D:=EMA(K,3);<BR>陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);<BR>N:=IF((陡峭度 > 0.35),6,65);<BR>VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));<BR>VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));<BR>获利盘:=(WINNER(CLOSE))*(100);<BR>获利线:=FORCAST(获利盘,7);<BR>线:=(FORCAST(VAR1A,7))*((DATE < 30070110));<BR>轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);<BR>出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0);<BR>进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);<BR>进二:=CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1));<BR>CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1));<BR>================================================================================================================================<BR><BR>{一年十二倍--要涨停选股 }<BR>R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);<BR>K:=EMA(R,3);<BR>D:=EMA(K,3);<BR>陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);<BR>N:=IF((陡峭度 > 0.35),6,65);<BR>VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));<BR>VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));<BR>获利盘:=(WINNER(CLOSE))*(100);<BR>获利线:=FORCAST(获利盘,7);<BR>线:=(FORCAST(VAR1A,7))*((DATE < 30070110));<BR>轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);<BR>出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0);<BR>进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);<BR>进二:=CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1));<
页:
[1]