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