收集:中国股票市场经济分析网
  
                      
        CPW的个股5三线玄机
        
        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;

