- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2022-3-18
|
|

楼主 |
发表于 2022-3-18 21:16
|
显示全部楼层
分价图 + 压缩线 + 彩色定周期均线 + 自然日定周期提示
- n:=180;
- sf:=2;
- ef:=2;
- j:=0;
- {VE} {亮些可以用606060}
- DN1:=BARSLAST(DATE<>REF(DATE,1))+1;
- DN2:=REF(DN1,DN1); {一日多少个BARS}
- MFI1:=IF(H=L,0,V/(H-L)/500000);
- FJN:=IF(PERIOD=0,DN2,IF(PERIOD=1,DN2*5,IF(PERIOD=2,DN2*15,N)));
- DA1:=IF(FJN>TOTALBARSCOUNT,TOTALBARSCOUNT,FJN); {小于130输出当前总柱子数 >N一直输出N}
- DA:=IF(CURRBARSCOUNT<=DA1,DA1,0),NODRAW; {CURRBARSCOUNT从右往左递增 最后NBARS输出1}
- HI:=REFDATE(HHV(H,DA),DATE),NODRAW;
- LO:=REFDATE(LLV(L,DA),DATE),NODRAW;
- C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL); {最后130范围内输出收盘价}
- GZ:=POW(10,LOG(HI/LO)/10),NODRAW; {E^(LN(HI/LO)/10) 对数缩放比例尺}
- LHA1:=SUM(IF(C1>=(HI/GZ) && C1<=HI,MFI1,0),DA);
- LHA2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/POW(GZ,1)),MFI1,0),DA);
- LHA3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),MFI1,0),DA);
- LHA4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),MFI1,0),DA);
- LHA5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),MFI1,0),DA);
- LHA6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),MFI1,0),DA);
- LHA7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),MFI1,0),DA);
- LHA8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),MFI1,0),DA);
- LHA9:=SUM(IF(C1>=(HI/POW(GZ,9)) AND C1<(HI/POW(GZ,8)),MFI1,0),DA);
- LHA10:=SUM(IF(C1>=(HI/POW(GZ,10)) AND C1<(HI/POW(GZ,9)),MFI1,0),DA);
- LB1:=REFDATE(LHA1,DATE);
- LB2:=REFDATE(LHA2,DATE);
- LB3:=REFDATE(LHA3,DATE);
- LB4:=REFDATE(LHA4,DATE);
- LB5:=REFDATE(LHA5,DATE);
- LB6:=REFDATE(LHA6,DATE);
- LB7:=REFDATE(LHA7,DATE);
- LB8:=REFDATE(LHA8,DATE);
- LB9:=REFDATE(LHA9,DATE);
- LB10:=REFDATE(LHA10,DATE);
- SS1:=(LB1+LB2+LB3+LB4+LB5+LB6+LB7+LB8+LB9+LB10);
- FA1:=(HI-LO)*SF/100; {横条间隔}
- STICKLINE(ROUND(DA*LB1/SS1*3)>=CURRBARSCOUNT,HI,HI/GZ,9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB2/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,1)-FA1,HI/POW(GZ,2),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB3/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,2)-FA1,HI/POW(GZ,3),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB4/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,3)-FA1,HI/POW(GZ,4),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB5/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,4)-FA1,HI/POW(GZ,5),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB6/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,5)-FA1,HI/POW(GZ,6),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB7/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,6)-FA1,HI/POW(GZ,7),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB8/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,7)-FA1,HI/POW(GZ,8),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB9/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,8)-FA1,HI/POW(GZ,9),9,0),COLOR606060,LINETHICK3;
- STICKLINE(ROUND(DA*LB10/SS1*3)>=CURRBARSCOUNT,HI/POW(GZ,9)-FA1,LO,9,0),COLOR606060,LINETHICK3;
- RB1:=LB1/SS1; RB2:=LB2/SS1; RB3:=LB3/SS1; RB4:=LB4/SS1; RB5:=LB5/SS1;
- RB6:=LB6/SS1; RB7:=LB7/SS1; RB8:=LB8/SS1; RB9:=LB9/SS1; RB10:=LB10/SS1;
- MAXE:MAX(RB1,MAX(RB2,MAX(RB3,MAX(RB4,MAX(RB5,MAX(RB6,MAX(RB7,MAX(RB8,MAX(RB9,MAX(RB10,0)))))))))),NODRAW,COLORC0C0C0;
- {VE}
- {DA1:=IF(N>TOTALBARSCOUNT,TOTALBARSCOUNT,N); {小于130输出当前总柱子数 >N一直输出N}
- {DA:=IF(CURRBARSCOUNT<=DA1,DA1,0),NODRAW; {CURRBARSCOUNT从右往左递增 最后NBARS输出1}
- {HI:=REFDATE(HHV(H,DA),DATE),NODRAW;
- {LO:=REFDATE(LLV(L,DA),DATE),NODRAW;
- {C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL); {最后130范围内输出收盘价}
- {GZ:=POW(10,LOG(HI/LO)/10),NODRAW; {E^(LN(HI/LO)/10) 对数缩放比例尺}
- LH1:=SUM(IF(C1>=(HI/GZ) && C1<=HI,V,0),DA);
- LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/POW(GZ,1)),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>=(HI/POW(GZ,9)) AND C1<(HI/POW(GZ,8)),V,0),DA);
- LH10:=SUM(IF(C1>=(HI/POW(GZ,10)) AND C1<(HI/POW(GZ,9)),V,0),DA);
- L1:=REFDATE(LH1,DATE);
- L2:=REFDATE(LH2,DATE);
- L3:=REFDATE(LH3,DATE);
- L4:=REFDATE(LH4,DATE);
- L5:=REFDATE(LH5,DATE);
- L6:=REFDATE(LH6,DATE);
- L7:=REFDATE(LH7,DATE);
- L8:=REFDATE(LH8,DATE);
- L9:=REFDATE(LH9,DATE);
- L10:=REFDATE(LH10,DATE);
- SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);
- {FA1:=(HI-LO)*SF/100; {横条间隔}
- STICKLINE(ROUND(DA*L1/SS*3)>=CURRBARSCOUNT,HI,HI/GZ,9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L2/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,1)-FA1,HI/POW(GZ,2),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L3/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,2)-FA1,HI/POW(GZ,3),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L4/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,3)-FA1,HI/POW(GZ,4),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L5/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,4)-FA1,HI/POW(GZ,5),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L6/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,5)-FA1,HI/POW(GZ,6),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L7/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,6)-FA1,HI/POW(GZ,7),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L8/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,7)-FA1,HI/POW(GZ,8),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L9/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,8)-FA1,HI/POW(GZ,9),9,0)COLOR3C3C3C,LINETHICK3;
- STICKLINE(ROUND(DA*L10/SS*3)>=CURRBARSCOUNT,HI/POW(GZ,9)-FA1,LO,9,0)COLOR3C3C3C,LINETHICK3;
- {DRAWKLINE(H,O,L,C);}
- R1:=L1/SS; R2:=L2/SS; R3:=L3/SS; R4:=L4/SS; R5:=L5/SS;
- R6:=L6/SS; R7:=L7/SS; R8:=L8/SS; R9:=L9/SS; R10:=L10/SS;
- MAXR:MAX(R1,MAX(R2,MAX(R3,MAX(R4,MAX(R5,MAX(R6,MAX(R7,MAX(R8,MAX(R9,MAX(R10,0)))))))))),NODRAW,COLORC0C0C0;
- {END}
- {CAN}
- D0:=IF(BARSSINCE(C)>240||PERIOD>0,BARSLAST(DATE<>REF(DATE,1))+1,BARSSINCE(C)); {今日走了几根}
- M1:=REF(D0,D0); {当前图几根柱子是一日}
- VR5:=REF(SUM(VOL,M1*5)/(M1*5),D0);
- VR1:=SUM(V,D0)/D0; {日每柱平均成交量 }
- CZ:=VR1/VR5;
- XH:=REF(HHV(VOL,100),1),COLORGRAY;
- XL1:=XH/8,COLORLIGRAY;
- XL2:=XH/8*2,COLORLIGRAY;
- XL3:=XH/8*3;
- XL4:=XH/2;
- XL5:=XL1*5;
- XL6:=XL1*6;
- XL7:=XL1*7;
- XL8:=XH;
- F0:=IF(V<=XL1,1,
- IF(V>=XL1&&V<=XL2,2,
- IF(V>=XL2&&V<=XL3,4,
- IF(V>=XL3&&V<=XL4,6,
- IF(V>=XL4&&V<=XL5,8,
- IF(V>=XL5&&V<=XL6,10,
- IF(V>=XL6&&V<=XL7,12,
- IF(V>=XL7&&V<=XL8,16,
- IF(V>=XL8,18,0))))))))),NODRAW; {不可以用这个}
- STICKLINE(C>O,H,L,0,1),COLORRED;
- STICKLINE(C=O,H,L,0,1),COLORWHITE;
- STICKLINE(C=O,C,O,2,1),COLORWHITE;
- {红色}
- STICKLINE(C>O&&V<=XL1,O,C,1,1),COLORRED;
- STICKLINE(C>O&&V>=XL1&&V<=XL2,O,C,2,1),COLORRED;
- STICKLINE(C>O&&V>=XL2&&V<=XL3,O,C,4,1),COLORRED;
- STICKLINE(C>O&&V>=XL3&&V<=XL4,O,C,6,1),COLORRED;
- STICKLINE(C>O&&V>=XL4&&V<=XL5,O,C,8,1),COLORRED;
- STICKLINE(C>O&&V>=XL5&&V<=XL6,O,C,10,1),COLORRED; {柱子几百都可以 看起来灵活性还行}
- STICKLINE(C>O&&V>=XL6&&V<=XL7,O,C,12,1),COLORRED;
- STICKLINE(C>O&&V>=XL7&&V<=XL8,O,C,16,1),COLORRED;
- STICKLINE(C>O&&V>=XL8,O,C,18,1),COLORRED;
- {蓝色}
- STICKLINE(C<O,H,L,0,1),COLORFFB553;
- STICKLINE(C<O&&V<=XL1,O,C,1,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL1&&V<=XL2,O,C,2,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL2&&V<=XL3,O,C,4,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL3&&V<=XL4,O,C,6,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL4&&V<=XL5,O,C,8,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL5&&V<=XL6,O,C,10,1),COLORFFB553; {柱子几百都可以 看起来灵活性还行}
- STICKLINE(C<O&&V>=XL6&&V<=XL7,O,C,12,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL7&&V<=XL8,O,C,16,1),COLORFFB553;
- STICKLINE(C<O&&V>=XL8,O,C,18,1),COLORFFB553;
- {C=O}
- STICKLINE(C=O&&V<=XL1,O,C,1,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL1&&V<=XL2,O,C,2,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL2&&V<=XL3,O,C,4,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL3&&V<=XL4,O,C,6,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL4&&V<=XL5,O,C,8,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL5&&V<=XL6,O,C,10,1),COLORWHITE; {柱子几百都可以 看起来灵活性还行}
- STICKLINE(C=O&&V>=XL6&&V<=XL7,O,C,12,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL7&&V<=XL8,O,C,16,1),COLORWHITE;
- STICKLINE(C=O&&V>=XL8,O,C,18,1),COLORWHITE;
- {CAN}
- {BSR}
- BR:IF(BUYVOL>SELLVOL,(BUYVOL-SELLVOL)/SELLVOL*100,0),NODRAW,COLORRED;
- SR:IF(SELLVOL>BUYVOL,(SELLVOL-BUYVOL)/BUYVOL*100,0),NODRAW,COLORGREEN;
- {ENE}
- FL0:=7; X:=2;
- FR1:=IF(DN2<=1,10,DN2*(FL0/1.4/2)); {只给2H/2BARS以下的图生效}
- FR2:=IF(DN2<=1,50,DN2*(140/1.4/2));
- FR3:=IF(DN2<=1,20,DN2*(28/1.4/2));
- {高低价版通道}
- UPPER:MA(C,FR1)*(1+EF/100),COLOR69DD23;
- LOWER:MA(C,FR1)*(1-EF/100),COLORFCCB5A;
- B0:UPPER>REF(UPPER,1),NODRAW,COLORLIGRAY;
- U1:=MA(C,FR1*X),COLORLIGRAY,DOTLINE;
- D1:=MA(C,FR1*X),COLORLIGRAY,DOTLINE;
- CC14:IF(DN2>2,MA(C,FR1*X),DRAWNULL),COLORLIGRAY,POINTDOT;
- W:MA(C,FR2),POINTDOT,COLORWHITE;
- U2:MA(C,FR3)*(1+EF/100),COLOR0080FF;
- D2:MA(C,FR3)*(1-EF/100),COLOR00A5FF;
- {ENE};
- {ORBIT LINE}
- MH:"397004$CLOSE",NODRAW,COLORGRAY;
- VH:"397006$CLOSE",NODRAW,COLORGRAY;
- BC:=BARSCOUNT(C);
- DN3:=REF(DN1,DN1); {一日多少个BARS}
- CZ1:=CONST(BC);
- D7:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),7);
- D14:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),14);
- D28:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),28);
- D45:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),45);
- D88:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),88);
- D365:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),365);
- D225:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),225);
- D687:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),687);
- D10Y:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),3650);
- D2D5Y:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),913);
- D1825:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),1825); {5Y}
- D456:=SUMBARS(DATETODAY(DATE)-REF(DATETODAY(DATE),1),456); {1/8 10Y}
- C7:=CONST(CZ1-D7);
- C14:=CONST(CZ1-D14);
- C28:=CONST(CZ1-D28);
- C45:=CONST(CZ1-D45);
- C88:=CONST(CZ1-D88);
- C225:=CONST(CZ1-D225);
- C365:=CONST(CZ1-D365);
- C687:=CONST(CZ1-D687);
- C10Y:=CONST(CZ1-D10Y);
- C2D5Y:=CONST(CZ1-D2D5Y);
- C1825:=CONST(CZ1-D1825);
- C456:=CONST(CZ1-D456);
- DRAWSL(DN3>=2&&BC=C7,C,10000,1000,2),COLOR69DD23;
- DRAWSL(DN3>=2&&BC=C14,C,10000,1000,2),COLORFCCB5A;
- DRAWSL(BC=C28,C,10000,1000,2),COLORGRAY;
- DRAWSL(BC=C45,C,10000,1000,2),COLORGRAY;
- DRAWSL(BC=C88,C,10000,1000,2),COLORLIGRAY;
- DRAWSL(ORBIT.C2(140),C,10000,1000,2),COLORFCCB5A;
- DRAWSL(ORBIT.C2(700),C,10000,1000,2),COLORFCCB5A;
- DRAWSL(CROSS(VH,REFDATE(VH-1,DATE))&&DATE<>REFDATE(DATE,DATE),C,10000,1000,2),COLOR00A5FF;
- DRAWSL(BC=C365,C,10000,1000,2),COLORRED;
- {DRAWSL(BC=C10Y,C,10000,1000,2),COLORLIGRAY;
- DRAWSL(BC=C2D5Y,C,10000,1000,2),COLORLIGRAY;
- DRAWSL(BC=C1825,C,10000,1000,2),COLORLIGRAY;
- DRAWSL(BC=C456,C,10000,1000,2),COLORLIGRAY;}
- {ORBIT LINE};
- {计数}
- HA10:=MA(H,DN2*7/1.4/2);
- LA10:=MA(L,DN2*7/1.4/2);
- HA20:=MA(H,DN2*28/1.4/2);
- LA20:=MA(L,DN2*28/1.4/2);
- DD0:=BARSLAST(CROSS(HA10,LA20))+1; {上穿}
- DD1:=BARSLAST(CROSS(HA10,HA20))+1; {上穿}
- DD4:=BARSLAST(CROSS(HA20,LA10))+1;
- DD5:=BARSLAST(CROSS(LA20,LA10))+1;
- DD3:=IF(DD1<DD5,DD1,1); {上叉距离}
- DD6:=IF(DD1>DD5,DD5,1); {下穿距离}
- DT0:=REF(DD6,DD3)+DD3; {下穿距离延伸}
- DT1:=REF(DD3,DD6)+DD6; {上穿距离延伸};
- RA1:=IF(DD1<DD5,LLVBARS(C,DT0),REF(LLVBARS(C,DT0),DD6)+DD6); {最低价距离}
- RA2:=IF(DD1>DD5,HHVBARS(C,DT1),REF(HHVBARS(C,DT1),DD3)+DD3); {最高价距离};
- B1:=BACKSET(DD1<DD5,RA1); {最低价画线时候输出1}
- B2:=BACKSET(DD1>DD5,RA2); {最高价画线时候输出1}
- DD7:=BARSLAST(B1=0); {画线时候取价格峰值}
- DD8:=BARSLAST(B2=0);
- DD9:=IF(B1=1&&DN1=1,DATETODAY(DATE)-DATETODAY(REF(DATE,DD7)),0); {底自然日}
- DD10:=IF(B2=1&&DN1=1,DATETODAY(DATE)-DATETODAY(REF(DATE,DD8)),0); {TOP自然日}
- DD11:=VAR2STR(DD9,0);
- DD12:=VAR2STR(DD10,0);
- DRAWTEXT(J&&B1&&DN1=1,REF(C,DD7),DD11),COLORGRAY;
- DRAWTEXT(J&&B2&&DN1=1,REF(C,DD8),DD12),COLORGRAY;
- {计数END};
复制代码
|
|
|