山水kjd优化源码。
山水kjd我优化了一下，公式是组合的，非原创，加入了一些元素。 既然有人索要就干脆贴出源码，希望山水先生及各位原作者见谅。
源码：
VAR1:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,3,1);
快线:SMA(VAR3,3,1),Color0000FF;
慢线:SMA(快线,2,1),Color00FFFF;
金叉买:IF(CROSS(快线,慢线) AND (快线<40),35,0),Color0000FF,linethick2;
STICKLINE(金叉买,0,20,8,0),colorred;
STICKLINE(金叉买,18,35,2,0),colorred;
partline(快线 ,快线 >=ref(快线 ,1),rgb(255,0,0),快线 <ref(快线 ,1),rgb(0,255,0)),linethick2;
partline( 慢线,慢线 >=ref(慢线 ,1),rgb(255,0,0),慢线 <ref(慢线 ,1),rgb(0,255,0)),linethick2;
V1:=AMOUNT/VOL/100;
V2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
V3:=SUM(AMOUNT,7)/V1/100;
V4:=DMA(V2,VOL/V3);
V5:=(CLOSE-V4)/V4*100;
V6:=MA(V5,20)+STD(V5,20);
BIAS21:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100;
STICKLINE(REF(BIAS21,1)>=5 AND CROSS(V6,V5) AND REF("kdj.j"(34,3,3),1)>80 AND REF("kdj.j"(9,3,3),1)>80,90,85,6,0),COLOR00FF00;
aa1:=AMOUNT/vol;
bb1:=l<aa1*0.9;
cc1:=(c-ref(c,1))/ref(c,1)*100>1.2;
dd1:=l<ma(c,5)*0.921;
ee1:=vol<ma(v,5)*1.5;
ff1:bb1 and cc1 and dd1 and ee1;
drawtext(ff1,l*0.99,'庄影'),COLORyellow;
stickline(ff1,h,l,0.5,0),COLORyellow;
stickline(ff1,o,c,6,0),linethick2,COLORyellow;
A01:=DYNAINFO( 7.000);
A02:=MA(AMOUNT / VOL /100.000,VOL / CAPITAL);
A03:=BARSCOUNT(CLOSE);
A04:=SMA(CLOSE / HHV(HIGH, 120.000), 3.000, 1.000) *100.000;
A05:=IF((A03 >20.000),A04,0);
A06:=IF(((LOW > A01)),0,IF(((HIGH < A01)), 1.000,((A01 - LOW) +0.009) / ((HIGH - LOW) +0.009)));
A07:=DMA(A06,VOL / CAPITAL) *100.000;
A08:=IF((A02 > A01),( 100.000 - A07),A07);
A09:=IF(((((A07 > 0) and (A07 > REF(A07, 1.000)))) and (A05 <=88.000)),A07,0);
庄家建仓区:=IF(((CROSS(A09,0) and (OPEN <> LOW)) and (CLOSE <> LOW)), 88.000,0);
庄家走势线:A09,COLORwhite,LINETHICK2;
aa:=winner(c+c*15/100)*100;
bb:=winner(c+c*0/100)*100;
cc:=aa-bb;
dd:=(winner(c-c*0.1/100)-winner(c-c*15/100))*100;
ee:=cc<3 and dd<0.5 and o<>l;
a1:=dynainfo(6);
a2:=if(l>a1,0,if(h<a1,1,(a1-l+0.01)/(h-l+0.01)));
a3:=v/winner(l);
a4:=ref(hhv(c,120),1);
a5:=ref(llv(c,120),1);
a6:=100*(c-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/ref(a3,3)>=3 and a6<80 ;
a9:=ref(a8,1) or ref(a8,2) or ref(a8,3) or ref(a8,4);
a10:=a8 and a9;
a11:=if(filter(a8,3),5,0);
a12:=if(filter(a10,3) or ee,10,0);
私募机构进场日:stickline(a11,0,16,5,0),color00ff00;
私募机构加仓日:stickline(a12,0,28,5,0),colorff00ff;
drawtext(a11,28,'庄进场'),colorffff00;
drawtext(a12,38,'庄加仓'),color00FFFF;
多空平衡:0;
安全线:50;
风险区:80; |
