|
|
CPW的个股５三线玄机
rsv:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
j:=3*k-2*d;
a:=((100-2*ref(k,1)+2*k+4*ref(d,1)/3)/3*(hhv(h,9)-llv(l,9))+100*llv(l,9))/100;
b:=((-(2*ref(k,1))+2*k+4*ref(d,1)/3)/3*(hhv(h,9)-llv(l,9))+100*llv(l,9))/100;
a1:=if(cross(d,k),l,0);
a2:=if(cross("551885.R1","551885.R3") and
count(cross(50,d),barslast(cross(d,k)))=1 and c<hhv(c,11) and
count(cross("551885.R1","551885.R3"),barslast(cross(55,d)))=1
or cross("551885.R2","551885.R1") and
count(cross(55,d),barslast(cross(d,k)))=1 and c<hhv(c,10) and
count(cross("551885.R2","551885.R1"),barslast(cross(55,d)))=1
or cross(50,d) and ref(c,1)>a and ref(c,1)>ref(o,1),1,0);
b1:ref(a,barslast(a2)),Linethick5,colorff;
b2:if("DR4.B3"<"DR4.B4",ref(b,barslast(a1)),ref(a,barslast(a1))),Linethick5,colorffff;
fillrgn(b1>=b2 and (b1-b2)/b2*100<2,b1,b2),colorffffff;
fillrgn(b1<b2 and abs(b1-b2)/b2*100<2,b1,b2),colorffffff;
stickline(b1<b2 and c>b1 and
b1<b2*0.962,b2,b2*0.962,0,0),colorff00;
b3:if(b1<b2 and c>b1 and
b1<b2*0.962,b2*0.962,ref(a,barslast(a2))),Linethick5,colorff00ff;
551885
a:ma(c,14);
lc:=ref(c,1);
r1:sma(max(c-lc,0),2,1)/sma(abs(c-lc),2,1)*100;
r3:sma(max(c-lc,0),34,1)/sma(abs(c-lc),34,1)*100;
r2:2;
fillrgn(c>0,999999995904,0),color10000;
谁在作多：
VAR2:=SUM(IF(CLOSE>OPEN,VOL,0),34)/SUM(VOL,34)*100;
VAR3:=100-SUM(IF(CLOSE>OPEN,VOL,0),34)/SUM(VOL,34)*100;
散户跟风意愿: VAR3,LINETHICK4;
主力作盘意愿: VAR2,LINETHICK4;
标准: 60,LINETHICK2;
黄金通道：
上:HHV(H,20); 下:LLV(L,20),colorgreen;
GD1:=REF(H,HHVBARS(H,20))+REF(L,LLVBARS(L,20));
GD2:=REF(H,HHVBARS(H,20))-REF(L,LLVBARS(L,20));
中:GD1/2,COLORRED,LINETHICK1;
黄:REF(L,LLVBARS(L,20))+GD2*0.382,COLOR00FFFF,;
金:REF(L,LLVBARS(L,20))+GD2*0.618,COLORffef40,;
{优化CPW的遍地黄金}
{n1=5,n2=13,n3=34,n4=250}
n1:=5;
n2:=13;
n3:=34;
n4:=250;
DRAWGBK(c>0 , COLORRgb(0,0,0), COLORRGB(0,0,0),1);
DRAWGBK(CLOSE>0, COLORRGB(1,8888,8888), COLORRGB(1,3333,6666),3);
Var1:=SMA("1a0002$AMOUNT"+"399107$AMOUNT",10,1)/1000000;
Var2:=REF(Var1,1);
Var3:=MA("1a0002$CLOSE"+"399107$CLOSE"*3,5);
收盘:=Var1*("1a0002$CLOSE"+"399107$CLOSE"*3)/Var3*1/10,POINTDOT;
开盘:=Var1*("1a0002$OPEN"+"399107$OPEN"*3)/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
最高:=Var1*("1a0002$HIGH"+"399107$HIGH"*3)/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
最低:=Var1*("1a0002$LOW"+"399107$LOW"*3)/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
昨收盘:=REF(收盘,1),POINTDOT,COLOR009900,LINETHICK0;
涨跌:=(收盘-REF(收盘,1))/REF(收盘,1)*100,POINTDOT,COLOR009900,LINETHICK0;
大盘生命线:=EMA(收盘,N1),;
xx2:=EMA(收盘,N2),COLOR00FF00;
xx3:=EMA(收盘,N3),COLORblue,linethick2;
xx4:=EMA(收盘,N4),COLORred;
生命禁区:1.15,colorred,linethick2;
0.88,coloryellow,linethick2;
股价泥潭:0,colorgreen,linethick2;
-0.25,colorffef40,linethick2;
FILLRGN(n1>0,生命禁区,0.88),COLORRED;
FILLRGN(n1>0,股价泥潭,-0.25),COLORBLUE;
大盘温度计收盘-xx3)/xx3,colorwhite,linethick4;
drawicon(cross(大盘温度计,0),0,8);
年后山【六彩变异k线】正式版
VAR1W:=IF((CURRENTDATE <= 91031220),1,0);
DRAWGBK(1,COLORRGB(265,0,0),COLORRGB(265,285,0),0);
A:=EMA(CLOSE,5);
VAR1:=((CLOSE + HIGH) / 2);
B:=EMA(VAR1,15);
JJ:=(2 * (A - B));
收盘:=JJ;
最高:=(((JJ + REF(JJ,1)) / 2) + 0.1);
开盘:=REF(JJ,1);
最低:=(((JJ + REF(JJ,1)) / 2) - 0.1);
AAV:=((最高 + 最低) / 2);
KS:=(((CLOSE - MA(CLOSE,13)) / MA(CLOSE,13)) * (0 - 100));
金线:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
STICKLINE(((收盘 >= 开盘) AND VAR1W),开盘,收盘,5,0),colorFF;
STICKLINE(((收盘 >= 开盘) AND VAR1W),最低,收盘,0.5,1),colorFF;
STICKLINE(((收盘 >= 开盘) AND VAR1W),最高,收盘,0.5,1),colorFF;
STICKLINE(((收盘 >= AAV) AND VAR1W),AAV,收盘,5,0),colorFFFF;
STICKLINE(((收盘 <= AAV) AND VAR1W),AAV,收盘,5,0),colorFF0000;
STICKLINE(((收盘 <= 开盘) AND VAR1W),开盘,收盘,5,0),colorFF0000;
STICKLINE(((收盘 <= 开盘) AND VAR1W),开盘,最高,0.5,0),colorFFFF00;
STICKLINE(((收盘 <= 开盘) AND VAR1W),开盘,最低,0.5,0),colorFFFF00;
ZYHEMA(收盘,5) * VAR1W),colorFF00FF;
ZYGEMA(收盘,15) * VAR1W),colorFFFF;
警界区:=(DMA(CLOSE,(VOL / SUM(VOL,34))) * VAR1W);
DDG:=(((CLOSE - 警界区) / 警界区) * 100);
提款路线:=EMA(DDG,3);
启动提款机:IF(((提款路线 < (0 - 22)) AND VAR1W),888,0),LINETHICK0;
DRAWICON(((提款路线 < (0 - 24)) AND VAR1W),(0 - 0.1),10);
DRAWICON(((提款路线 < (0 - 24)) AND VAR1W),(0 - 0.2),10);
DRAWTE55188((CROSS(ZYH,ZYG) AND (提款路线 < (0 - 24))),最低,'买\n进'),colorFF00FF;
AAK:=IF((((MA(VOL,5) / 240) >= 5) AND ((CLOSE > (REF(CLOSE,1) * 0.98)) = 1)),88,0);
BBK:=IF(((((((CLOSE / REF(CLOSE,1)) >= 1) AND (((VOL / CAPITAL) * 100) <= 30)) AND (((VOL / CAPITAL) * 100) >= 1.5)) AND ((HIGH / CLOSE) <= 1.001)) AND (AAK >= 1)),93,0);
DRAWTE55188(((BBK > 90) AND VAR1W),最低,'追\n涨'),colorFFFF;
生命线:0,POINTDOT;
红灯:IF(((金线 <= CLOSE) AND VAR1W),CLOSE,0),LINETHICK0,colorFF;
DRAWICON(((金线 <= CLOSE) AND VAR1W),0.001,10);
绿灯:IF(((金线 >= CLOSE) AND VAR1W),CLOSE,0),LINETHICK0,colorFF00;
DRAWICON(((金线 >= CLOSE) AND VAR1W),0.001,11);
升跌:=EMA((((CLOSE / MA(((((2 * CLOSE) + HIGH) + LOW) / 4),10)) - 1) * 100),3);
黄灯:IF(((升跌 >= 0) AND VAR1W),CLOSE,0),LINETHICK0,colorFFFF;
DRAWICON(((升跌 >= 0) AND VAR1W),0,12);
绿灯1:IF(((升跌 <= 0) AND VAR1W),CLOSE,0),LINETHICK0,colorFF00;
DRAWICON(((升跌 <= 0) AND VAR1W),0,11);
DRAWICON((CROSS(ZYG,0) AND VAR1W),0,10);
DRAWICON((CROSS(0,ZYG) AND VAR1W),0,12);
{三线玄机+十线开花}
n 21
rsv:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
j:=3*k-2*d;
a:=((100-2*ref(k,1)+2*k+4*ref(d,1)/3)/3*(hhv(h,9)-llv(l,9))+100*llv(l,9))/100;
b:=((-(2*ref(k,1))+2*k+4*ref(d,1)/3)/3*(hhv(h,9)-llv(l,9))+100*llv(l,9))/100;
a1:=if(cross(d,k),l,0);
a2:=if(cross("XT5.R1","XT5.R3") and count(cross(50,d),barslast(cross(d,k)))=1 and c<hhv(c,11) and count(cross("XT5.R1","XT5.R3"),barslast(cross(55,d)))=1 or cross("XT5.R2","XT5.R1") and count(cross(55,d),barslast(cross(d,k)))=1 and c<hhv(c,10) and count(cross("XT5.R2","XT5.R1"),barslast(cross(55,d)))=1 or cross(50,d) and ref(c,1)>a and ref(c,1)>ref(o,1),1,0);
b1:ref(a,barslast(a2)),Linethick5,colorff;
b2:if("DR4.B3"<"DR4.B4",ref(b,barslast(a1)),ref(a,barslast(a1))),Linethick5,colorffff;
fillrgn(b1>=b2 and (b1-b2)/b2*100<2,b1,b2),colorffffff;
fillrgn(b1<b2 and abs(b1-b2)/b2*100<2,b1,b2),colorffffff;
stickline(b1<b2 and c>b1 and b1<b2*0.962,b2,b2*0.962,0,0),colorff00;
b3:if(b1<b2 and c>b1 and b1<b2*0.962,b2*0.962,ref(a,barslast(a2))),Linethick5,colorff00ff;
MA3:MA(CLOSE,5),colorred;
MA4:MA(CLOSE,6),colorred;
MA5:MA(CLOSE,7),colorred;
MA6:MA(CLOSE,8),colorred;
MA7:MA(CLOSE,9),colorred;
MA8:MA(CLOSE,10),colorred;
MA9:MA(CLOSE,11),colorred;
MA10:MA(CLOSE,12),colorred;
MA11:MA(CLOSE,13),colorred;
MA12:MA(CLOSE,14),colorred;
MA13:MA(CLOSE,15),colorred;
MA14:MA(CLOSE,n);
洼: IF(MA14>MA3,MA3,MA14),coloryellow;
洼1: IF(MA14>MA4,MA4,MA14),coloryellow;
洼2: IF(MA14>MA5,MA5,MA14),coloryellow;
洼3: IF(MA14>MA6,MA6,MA14),coloryellow;
洼4: IF(MA14>MA7,MA7,MA14),coloryellow;
洼5: IF(MA14>MA8,MA8,MA14),coloryellow;
洼6: IF(MA14>MA9,MA9,MA14),coloryellow;
洼7: IF(MA14>MA10,MA10,MA14),coloryellow;
洼8: IF(MA14>MA11,MA11,MA14),coloryellow;
洼9: IF(MA14>MA12,MA12,MA14),coloryellow;
洼10: IF(MA14>MA13,MA13,MA14),coloryellow;
破解,只是看图仿制,大家还可以进一步优化,玩玩而已,~
建一个FN的公式
x:=ma(c,4);
x2:=ma(c,5);{这里可以进一步优化,比如使用中位线}
再建高级要塞:
DRAWGBK(c>0 , COLORRgb(0,0,0), COLORRGB(0,0,0),1);
DRAWGBK(c>0 , COLORRgb(0,0,0), COLORRGB(0,0,0),1);
DRAWGBK(CLOSE>0, COLORRGB(1,8888,8888), COLORRGB(1,3333,6666),2);
ADJ:stkindi('','fn.x',0,7),colorred,linethick2;
AGJ:stkindi('','fn.x2',0,7),colorYELLOW,linethick2;
FILLRGN(ADJ>AGJ ,ADJ,AGJ),colorYELLOW;
FILLRGN(ADJ<AGJ ,ADJ,AGJ),colorWHITE;
tj:=c>=o;
STICKLINE(tj,l,h,1,0),COLOR00EEFF;
STICKLINE(tj,o,c,8,0),COLOR0000FF;
STICKLINE(tj,o,c,7,0),COLOR0022FF;
STICKLINE(tj,o,c,6,0),COLOR0044FF;
STICKLINE(tj,o,c,5,0),COLOR0066FF;
STICKLINE(tj,o,c,4,0),COLOR0088FF;
STICKLINE(tj,o,c,3,0),COLOR00AAFF;
STICKLINE(tj,o,c,2,0),COLOR00CCFF;
STICKLINE(tj,o,c,1,0),COLOR00EEFF;
STICKLINE(not(tj),l,h,1,0),COLOR00FF00;
STICKLINE(not(tj),o,c,8,0),COLOR008800;
STICKLINE(not(tj),o,c,7,0),COLOR009900;
STICKLINE(not(tj),o,c,6,0),COLOR00AA00;
STICKLINE(not(tj),o,c,5,0),COLOR00BB00;
STICKLINE(not(tj),o,c,4,0),COLOR00CC00;
STICKLINE(not(tj),o,c,3,0),COLOR00DD00;
STICKLINE(not(tj),o,c,2,0),COLOR00EE00;
STICKLINE(not(tj),o,c,1,0),COLOR00FF00;
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)),Linethick5,colorffff;
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)),COLORred,Linethick5,colorffff;
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;
MN:=ZIG(3,15);
DRAWICON(MN>REF(MN,1)AND REF(MN,1)<REF(MN,2),L,1);
DRAWICON(MN<REF(MN,1)AND REF(MN,1)>REF(MN,2),H,3);
|
|
