回忆年后山

 

人有时会回想往事,往事虽以过去,但记忆仍存,比较是辩好与坏的一个标准,几年过去了,把几年前的东西拿来比较,会发现一些真正好的东西.坦白的说我也写过不少公式.当时认为很不错,却经不住时间的检验,时间一长却发现了不足之处.....................
时间的检验与评判是公正.无私的.几年过去了再看年后山的公式仍是那样清楚.闪光.............
年后山在创幻名声不好,主要卖软件,公式又保密,发帖有图无源码,也违反当时的版规,封帖删帖自会有之.得罪许多人.也包括我(要公式不给).所以我就使劲破他的公式.再公开.气的他来信问我:公式怎破的...........
几年过去,年兄不见了.拿出几年前许多精品.只有年后山的东西还闪闪发光.其余大师的公式却见不到光露了,闪光的在这里无法生存........自然会走.........顺者荣升版主.只是那顺者的公式不闪光..............这让我沉思..................这让我更加回忆年后山老师............珍惜那闪发光的金子...........(不知是否有些伤感................)
 

栅栏加要塞

DRAWGBK(CLOSE>0, COLORRGB(0,888,8888), COLORRGB(0,3,33),1);

DRAWBKBMP(C ,'cpw');

a:="1a0001$close";//D

b:=WMA(A,20);//DMIY

b1:=MA(b,3);

b2:=MA(b,5);

b3:=MA(b,21);

b4:=MA(b,34);//下面也可简化，懒了

x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;

y:=IF(x,MIN(REF(LOW,1),LOW),0);

z1:REF(y,BARSLAST(x)),Linethick3,colormagenta;

x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);

y1:=IF(x1,REF(CLOSE,1),0);

z2:REF(y1,BARSLAST(x1)),Linethick3,coloryellow;

STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX(B1,B2)>MIN(B3,B4),z1,z2,5,0),COLORred;



ema(c,20);

ema(c,30);

fillrgn(ema(c,20)>ema(c,30) ,ema(c,20),ema(c,30)),color0000ff;

fillrgn(ema(c,20)<=ema(c,30) ,ema(c,20),ema(c,30)),colorcyan;

AA:=ma(c,5)>ref(ma(c,5),1);

stickline(AA,ma(c,8),ma(c,10),7,0),coloryellow;



STICKLINE(C>O,H,L,0,0),COLOR0000FF;

STICKLINE(C>O,C,O,6,1),COLOR0000FF;



STICKLINE(C<=O,H,L,0,0),COLORffcccc;

STICKLINE(C<=O,C,O,6,0),COLORffcccc;



Var6:=REF(CLOSE,1);

Var7:=SMA(MAX(CLOSE-Var6,0),6,1)/SMA(ABS(CLOSE-Var6),6,1)*100;

Var8:=CROSS(80,Var7);

DRAWTEXT(Var8,HIGH,'●'),colorgreen ;

DRAWTEXT(Var8,HIGH*1.01,'  减仓 '),colorgreen ;





Var1:=REF(CLOSE,1);

Var2:=SMA(MAX(CLOSE-Var1,0),6,1)/SMA(ABS(CLOSE-Var1),6,1)*100;

DRAWTEXT(CROSS(84,Var2),HIGH*1.01,'  减仓 '),coloryellow  ;

DRAWTEXT(CROSS(84,Var2),HIGH,'●'),coloryellow;





Var3:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04;

Var4:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;

Var5:=Var3 AND Var4;

DRAWTEXT(filter(Var5,5),LOW,'  建仓 '),colormagenta ;

DRAWTEXT(filter(Var5,5),LOW,'●'),colormagenta ;