{量/冷暖/T线--珠珠2010}
{TS:=1,300,130;
N:=1,100,99;
M:=1,100,3;}
INPUT:TS(130,1,300),N(99,1,100),M(3,1,100),M1(5,1,1000),M2(10,1,1000),M3(20,1,1000),M4(60,1,1000),M5(120,1,1000);
DA1:=IF(TS>BARPOS,BARPOS,TS);
DA:=IF(DATACOUNT-BARPOS+1>DA1,0,DA1);
HI:=REFX(HHV(H,DA),DATACOUNT-BARPOS);
LO:=REFX(LLV(L,DA),DATACOUNT-BARPOS);
C1:=IF(DATACOUNT-BARPOS+1<=DA,C,0);
GZ:=EXP(LN(HI/LO)/10);
LH1:=SUM(IF(C1>=(HI ),V,0),DA);
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI ),V,0),DA);
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA);
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA);
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA);
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA);
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA);
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA);
LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA);
LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA);
L1:=REFX(HHV(LH1,DA),DATACOUNT-BARPOS),LINETHICK0;
L2:=REFX(HHV(LH2,DA),DATACOUNT-BARPOS),LINETHICK0;
L3:=REFX(HHV(LH3,DA),DATACOUNT-BARPOS),LINETHICK0;
L4:=REFX(HHV(LH4,DA),DATACOUNT-BARPOS);
L5:=REFX(HHV(LH5,DA),DATACOUNT-BARPOS);
L6:=REFX(HHV(LH6,DA),DATACOUNT-BARPOS);
L7:=REFX(HHV(LH7,DA),DATACOUNT-BARPOS);
L8:=REFX(HHV(LH8,DA),DATACOUNT-BARPOS);
L9:=REFX(HHV(LH9,DA),DATACOUNT-BARPOS);
L10:=REFX(HHV(LH10,DA),DATACOUNT-BARPOS);
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);
STICKLINE(CEILING(DA*L1/SS)*3>=DATACOUNT-BARPOS+1,HI*N/100,HI ,24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L2/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,1)*N/100,HI/POW(GZ,2),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L3/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,2)*N/100,HI/POW(GZ,3),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L4/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,3)*N/100,HI/POW(GZ,4),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L5/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,4)*N/100,HI/POW(GZ,5),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L6/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,5)*N/100,HI/POW(GZ,6),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L7/SS)*3>=DATACOUNT-BARPOS+1,HI/POW(GZ,6)*N/100,HI/POW(GZ,7),24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L8/SS)*3>=DATACOUNT-BARPOS+1,LO*POW(GZ,2),LO*POW(GZ,3)*N/100,24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L9/SS)*3>=DATACOUNT-BARPOS+1,LO*POW(GZ,1),LO*POW(GZ,2)*N/100,24,0)COLOR252525,LINETHICK3;
STICKLINE(CEILING(DA*L10/SS)*3>=DATACOUNT-BARPOS+1,LO,LO*POW(GZ,1)*N/100,24,0)COLOR252525,LINETHICK3;
KLINE(O,H,L,C,0);
FILLRGN(MA(CLOSE,60)>MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120)),Color000037;
FILLRGN(MA(CLOSE,60)<MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120)),Color005B00;
GX:HHV(C,100),COLORFF9900,LINETHICK1;STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,8.27,0 ),COLOR000033;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,7.2,0 ),COLOR000066;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,5.6,0 ),COLOR000099;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,4,0 ),COLOR0000CC;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.4,0 ),COLOR0000FF;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.8,0 ),COLORCC66FF;
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORCYAN;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,8.27,0 ),COLOR990000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,7.2,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,5.6,0 ),COLORFF4400;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,4,0 ),COLORFF8800;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.4,0 ),COLORFFCC00;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.8,0 ),COLORCYAN;
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,8.27,0 ),COLOR555555;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,7.2,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,5.6,0 ),COLOR999999;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,4,0 ),COLORBBBBBB;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.4,0 ),COLORDDDDDD;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.8,0 ),COLORFFFFFF;{M1:=1,1000,5;
M2:=1,1000,10;
M3:=1,1000,20;
M4:=1,1000,60;
M5:=1,1000,120;}
MA5:MA(CLOSE,M1),COLORWHITE;
MA10:MA(CLOSE,M2),COLORYELLOW;
MA20:MA(CLOSE,M3),COLORMAGENTA;
MA60:MA(CLOSE,M4),COLORGREEN;
MA120:MA(CLOSE,M5),COLORBLUE; |
