百变人生

风险栅栏的原码

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,colorffef40;
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;

百变人生

资金曲线原码(就是操盘王的遍地黄金)
{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;
温度计:(收盘-xx3)/xx3,linethick3;
1.15,colorred,linethick2;
0.88,coloryellow,linethick2;
0,colorgreen,linethick2;
-0.25,colorffef40,linethick2;
drawicon(cross(温度计,0),0,8);

[ 本帖最后由 百变人生 于 2006-3-1 14:21 编辑 ]

百变人生

双线止损：
Var1:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100);
EMA(Var1/5+EMA(CLOSE,20),3),LINEDOT ,


--------------------------------------------------------------------------------

个股６七彩魔柱

lc:=ref(c,1);
a1:=sma(max(c-lc,0),6,1)/sma(abs(c-lc),6,1)*100;
a2:=sma(max(c-lc,0),24,1)/sma(abs(c-lc),24,1)*100;
stickline(a1>=a2,0.5,0,8,0),colorff;
stickline(a1>=70 and a1>=a2 and a1<80,1,0,8,0),colorffff00;
stickline(a1>=70 and a1>=a2 and a1<80,0.7,0,8,0),colorff00;
stickline(a1>=70 and a1>=a2 and a1<80,0.5,0,8,0),colorffff;
stickline(a1>=70 and a1>=a2 and a1<80,0.3,0,8,0),color80;
stickline(a1>=70 and a1>=a2 and a1<80,0.1,0,8,0),colorff;
stickline(a1>=80 and a1>a2,1.5,0,8,0),colorff00ff;
stickline(a1>=80 and a1>a2,1.2,0,8,0),colorff0000;
stickline(a1>=80 and a1>a2,1,0,8,0),colorffff00;
stickline(a1>=80 and a1>a2,0.8,0,8,0),colorff00;
stickline(a1>=80 and a1>a2,0.6,0,8,0),colorffff;
stickline(a1>=80 and a1>a2,0.4,0,8,0),color80;
stickline(a1>=80 and a1>a2,0.2,0,8,0),colorff;
drawicon(a1>=70 and a1>a2 and v<ref(v,1) and c<ref(c,1)*1.03,0.8,1);
stickline(a1<a2,-0.5,0,8,0),colorffffff;

百变人生

谁在作多：
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,;

--------------------------------------------------------------------------------

初级要塞的原码:
专用标:c,linethick0;
a:=ma(c,14)
a1:=a*1.1;
a4:=a*0.9;
a2:=a1-(a1-a4)*0.191;
a3:=a1-(a1-a4)*0.618;
a5:=a1-(a1-a4)*0.809;
初级要塞1:if(h*1.01>a2 or ref(h,1)>ref(a2,1),a1,a4),circledot,Linethick6,colorff;
初级要塞2:if(h*1.01>a2 or ref(h,1)>ref(a2,1),a2,a4),circledot,Linethick6,colorffffff;
初级要塞3:if(c>a3 and c<a2 or ref(c,1)>ref(a3,1) and ref(c,1)<ref(a2,1),a3,a4),crossdot,Linethick3,colorffff;
初级要塞4:if(c<a3 or ref(c,1)<ref(a3,1),a4,a4),Linethick8,colorff00;

[ 本帖最后由 百变人生 于 2006-3-1 15:10 编辑 ]

百变人生

个股２高级要塞

a1:"XT4.B1##month",colorffffff;
a2:"XT4.B2##month",colorffffff;
b1:"XT4.B3##month",colorffff00;
b2:"XT4.B4##month",colorffff00;
b3:="XT4.B5##month";
b:if(b3>max(a1,max(a2,max(b1,b2))),b3,b2),colorff;
fillrgn(a1>a2,a1,a2),colorff00ff;
fillrgn(a1<a2,a1,a2),colorffffff;
fillrgn(b1>b2,b1,b2),colorffff;
fillrgn(b1<b2,b1,b2),colorffff00;
fillrgn(b3>max(a1,max(a2,max(b1,b2))),b3,max(a1,max(a2,max(b1,b2)))),color808080;
stickline(c>=ref(c,1),c,o,8,0),colorff;
stickline(c>=ref(c,1),c,h,0,0),colorff;
stickline(c>=ref(c,1),c,l,0,0),colorff;
stickline(c<ref(c,1),c,o,8,0),colorff00;
stickline(c<ref(c,1),c,l,0,0),colorff00;
stickline(c<ref(c,1),c,h,0,0),colorff00;

----------------------------------------------------------
操盘王的个股５三线玄机

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,;

百变人生

{优化操盘王的遍地黄金}
{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;
ZYH:(EMA(收盘,5) * VAR1W),colorFF00FF;
ZYG:(EMA(收盘,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);

[ 本帖最后由 百变人生 于 2006-3-1 14:19 编辑 ]

百变人生

{三线玄机+十线开花}
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;