打印本文
關閉窗口
相關標簽: 布林通道主圖指標 、 最牛股票主圖指標公式 、 狙擊牛熊萬能主圖指標 、 通達信分時主圖指標 、 最好的通達信主圖指標 、 分時t十0主圖指標公式 、 通達信建倉主圖指標 、 自動畫線主圖指標公式 、 趨勢買賣主圖指標 、
BS27A主圖指標公式
主圖最高:=SYSPARAM(4);
主圖最低:=SYSPARAM(5);
阻撐:=1;
當前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='1',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21、*25\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='2',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='3',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、*20、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='4',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='5',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、*1 2、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='6',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、*1 4、21\n \n \n \n '),ALIGN5,colorFFFF; {本文來至CXH99.COM}
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='7',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 9、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='8',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:*6、8、15、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='9',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 8、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='10',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='11',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*28\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='12',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
IF DATATYPE<6 THEN BEGIN
本周期日期:=DATE;
前日期:=ref(DATE,1);
HHDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,HIGH,-SUMBARS(本周期日期>前日期,2)+1,ref(HHV(HIGH,SUMBARS(本周期日期>前日期,1)),1));
LLDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,LOW,-SUMBARS(本周期日期>前日期,2)+1,ref(LLV(LOW,SUMBARS(本周期日期>前日期,1)),1));
HHDAY:=SETVAL(BARSTATUS=2,HHDAY0,-BARSLAST(本周期日期>前日期),HHV(HIGH,(BARSLAST(本周期日期>前日期))+1));
LLDAY:=SETVAL(BARSTATUS=2,LLDAY0,-BARSLAST(本周期日期>前日期),LLV(LOW,(BARSLAST(本周期日期>前日期))+1));
HHDAY[DATACOUNT]:=HHDAY[DATACOUNT-1];
LLDAY[DATACOUNT]:=LLDAY[DATACOUNT-1];
END;
N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1)+1);
K線測量范圍:N,LINETHICK0;
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
TJ:=CLOSE;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
TJ[I]:=0;
END;
TMP:=SETLBOUND(37,DATACOUNT-VN+1);
TMP:=SETLBOUND(38,DATACOUNT-VN+1);
KKH:=BARSSINCE(HIGH=HH);
KKL:=BARSSINCE(LOW=LL);
NLPOS:=STRTONUM(NUMTOSTR(ref(BARPOS,KKL),0));
NHPOS:=STRTONUM(NUMTOSTR(ref(BARPOS,KKH),0));
多空:=IF(NLPOS>NHPOS,0,1);
K1:=IF(多空>=1,TROUGHBARS(2,精度,1),PEAKBARS(1,精度,1));
F1:=IF(多空>=1,PEAKBARS(1,精度,1),TROUGHBARS(2,精度,1));
K2:=BARSLAST(K1=0);
F2:=BARSLAST(F1=0);
KK:=ref(BARPOS,K2);
FF:=ref(BARPOS,F2);
K4:=DATACOUNT-N+1;
F4:=DATACOUNT-N-第二點+1;
P1:=IF(KK>=K4,1,-1);
P2:=IF(FF>=(IF(F4<0,0,IF(F4>DATACOUNT,DATACOUNT,F4))),1,-1);
PK1:=CROSS(P1,0);
PK2:=CROSS(P2,0);
KTONOW1:=BARSLAST(PK1);
KTONOW2:=BARSLAST(PK2);
BBP:=ref(BARPOS,KTONOW1);
HH:=ref(HIGH,KTONOW1);
HH2:=IF(多空>=1,ref(HIGH,KTONOW2),ref(HIGH,KTONOW1));
LL2:=IF(多空>=1,ref(LOW,KTONOW1),ref(LOW,KTONOW2));
LLOW:=ref(LOW,KTONOW1);
H1:=STRTONUM(NUMTOSTR(HH,2));
L1:=STRTONUM(NUMTOSTR(LLOW,2));
H2:=STRTONUM(NUMTOSTR(HH2,2));
L2:=STRTONUM(NUMTOSTR(LL2,2));
HE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,ref(HHDAY,KTONOW1),IF(測量=1,H1,H2));
LE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,ref(LLDAY,KTONOW1),IF(測量=1,L1,L2));
LL:=STRTONUM(NUMTOSTR(HE-LE,2));
K1LAST:=IF(多空>=1,IF(反向測量>=1,PEAKBARS(1,單線精度,1),TROUGHBARS(2,單線精度,1)),IF(反向測量>=1,TROUGHBARS(2,單線精度,1),PEAKBARS(1,單線精度,1)));
K2LAST:=IF(BARPOS=DATACOUNT,SUMBARS(K1LAST=0,近單線),0);
K3LAST:=BACKSET(BARPOS=DATACOUNT,K2LAST);
K4LAST:=IF(K3LAST>0,1,-1);
K5LAST:=CROSS(K4LAST,0);
HELAST:=ref(HIGH,BARSLAST(K5LAST));
LELAST:=ref(LOW,BARSLAST(K5LAST));
LLLAST:=HELAST-LELAST;
IF TPOINT<>0 THEN BEGIN
KF4:=DATACOUNT-N-TPOINT+1;
KL1:=IF(阻撐>0 AND 多空<=0 OR 阻撐<=0 AND 多空>0,TROUGHBARS(2,精度,1),PEAKBARS(1,精度,1));
KL2:=IF(ref(BARPOS,BARSLAST(KL1=0))>(KF4),1,-1);
KL:=CROSS(KL2,0);
FH:=ref(HIGH,BARSLAST(KL));
FL:=ref(LOW,BARSLAST(KL));
FLL:=IF(多空>0,IF(阻撐>0,FH-LE,FL-LE),IF(阻撐>0,HE-FL,HE-FH));
END;
LIND1:=LE+LL*1.7856;
LIND2:=LE+LL*2.9775;
LIND3:=HE+LL*2.9775;
LIND4:=LE+LL*4.764;
LIND5:=HE+LL*4.764;
LIND6:=LE+LL*6.5;
LIND7:=LE+LL*7.7415;
LIND8:=HE+LL*7.7415;
IF TPOINT<>0 THEN BEGIN
LINDT2:=FH+FLL*2.118;
LINDT3:=LE+FLL*3.427;
LINDT5:=LE+FLL*5.545;
LINDT6:=FH+FLL*5.545;
END;
LINK1:=HE-LL*1.7856;
LINK2:=HE-LL*2.9775;
LINK3:=LE-LL*2.9775;
LINK4:=HE-LL*4.764;
LINK5:=LE-LL*4.764;
LINK6:=HE-LL*6.5;
LINK7:=HE-LL*7.7415;
LINK8:=LE-LL*7.7415;
IF TPOINT<>0 THEN BEGIN
LINKT2:=FL-FLL*2.118;
LINKT3:=HE-FLL*3.427;
LINKT5:=HE-FLL*5.545;
LINKT6:=FL-FLL*5.545;
END;
LINE1:=IF(多空>=1,LIND1,LINK1);
LINE2:=IF(多空>=1,LIND2,LINK2);
LINE3:=IF(多空>=1,LIND3,LINK3);
LINE4:=IF(多空>=1,LIND4,LINK4);
LINE5:=IF(多空>=1,LIND5,LINK5);
LINE6:=IF(多空>=1,LIND6,LINK6);
LINE7:=IF(多空>=1,LIND7,LINK7);
LINE8:=IF(多空>=1,LIND8,LINK8);
IF TPOINT<>0 THEN BEGIN
LINET2:=IF(多空>=1,LINDT2,LINKT2);
LINET3:=IF(多空>=1,LINDT3,LINKT3);
LINET5:=IF(多空>=1,LINDT5,LINKT5);
LINET6:=IF(多空>=1,LINDT6,LINKT6);
LINEB1:=LINET2+(LINET6-LINET2)*0.382;
LINEB2:=LINET2+(LINET6-LINET2)*0.618;
END;
LASTDDX1:=LELAST+LLLAST*1.7856;
LASTDDX2:=LELAST+LLLAST*2.9775;
LASTDDX3:=HELAST+LLLAST*2.9775;
LASTDDX4:=LELAST+LLLAST*4.764;
LASTDDX5:=HELAST+LLLAST*4.764;
LASTDDX6:=LELAST+LLLAST*6.5;
LASTDDX7:=LELAST+LLLAST*7.7415;
LASTDDX8:=HELAST+LLLAST*7.7415;
LASTDDX9:=LELAST+LLLAST*10.5;
LASTKDX1:=HELAST-LLLAST*1.7856;
LASTKDX2:=HELAST-LLLAST*2.9775;
LASTKDX3:=LELAST-LLLAST*2.9775;
LASTKDX4:=HELAST-LLLAST*4.764;
LASTKDX5:=LELAST-LLLAST*4.764;
LASTKDX6:=HELAST-LLLAST*6.5;
LASTKDX7:=HELAST-LLLAST*7.7415;
LASTKDX8:=LELAST-LLLAST*7.7415;
LASTKDX9:=HELAST-LLLAST*10.5;
LASTDX1:=IF(多空>=1,IF(反向測量>=1,LASTKDX1,LASTDDX1),IF(反向測量>=1,LASTDDX1,LASTKDX1)); {內容來至程序化交易網 CXH99.COM}
LASTDX2:=IF(多空>=1,IF(反向測量>=1,LASTKDX2,LASTDDX2),IF(反向測量>=1,LASTDDX2,LASTKDX2));
LASTDX3:=IF(多空>=1,IF(反向測量>=1,LASTKDX3,LASTDDX3),IF(反向測量>=1,LASTDDX3,LASTKDX3));
LASTDX4:=IF(多空>=1,IF(反向測量>=1,LASTKDX4,LASTDDX4),IF(反向測量>=1,LASTDDX4,LASTKDX4));
LASTDX5:=IF(多空>=1,IF(反向測量>=1,LASTKDX5,LASTDDX5),IF(反向測量>=1,LASTDDX5,LASTKDX5));
LASTDX6:=IF(多空>=1,IF(反向測量>=1,LASTKDX6,LASTDDX6),IF(反向測量>=1,LASTDDX6,LASTKDX6));
LASTDX7:=IF(多空>=1,IF(反向測量>=1,LASTKDX7,LASTDDX7),IF(反向測量>=1,LASTDDX7,LASTKDX7));
LASTDX8:=IF(多空>=1,IF(反向測量>=1,LASTKDX8,LASTDDX8),IF(反向測量>=1,LASTDDX8,LASTKDX8));
LASTDX9:=IF(多空>=1,IF(反向測量>=1,LASTKDX9,LASTDDX9),IF(反向測量>=1,LASTDDX9,LASTKDX9));
FILLRGN(BARPOS>=BBP,LINE2,LINE3),color2A1A10;
FILLRGN(BARPOS>=BBP AND IF(全顯>0,1,LINE5<=主圖最高 AND LINE5>=主圖最低),LINE5,LINE6),color2A1A10;
FILLRGN(BARPOS>=BBP AND IF(全顯>0,1,LINE7<=主圖最高 AND LINE7>=主圖最低),LINE7,LINE8),color2A1A10;
FILLRGN(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET2,LINET3),color3A2A10;
FILLRGN(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET5,LINET6),color3A2A10;
FILLRGN(K3LAST>0,LASTDX2,LASTDX3),color553333;
FILLRGN(K3LAST>0 AND IF(全顯>0,1,LASTDX5<=主圖最高 AND LASTDX5>=主圖最低),LASTDX5,LASTDX6),color553333;
FILLRGN(K3LAST>0 AND IF(全顯>0,1,LASTDX7<=主圖最高 AND LASTDX7>=主圖最低),LASTDX7,LASTDX8),color553333;
FILLRGN(K3LAST>0 AND IF(全顯>0,1,LASTDX8<=主圖最高 AND LASTDX8>=主圖最低),LASTDX8,LASTDX9),color885533;
PARTLINE(BARPOS>=BBP,LINE1),LINEDOT,colorEE99FF;
PARTLINE(BARPOS>=BBP,LINE2),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP,LINE2+(LINE3-LINE2)/2),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP,LINE3),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,LINE4<=主圖最高 AND LINE4>=主圖最低),LINE4),LINEDOT,color66CC99; {本文來至程序化交易網 cxh99.com}
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,LINE5<=主圖最高 AND LINE5>=主圖最低),LINE5),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,LINE5<=主圖最高 AND LINE5>=主圖最低),LINE6),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,LINE7<=主圖最高 AND LINE7>=主圖最低),LINE7),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,LINE7<=主圖最高 AND LINE7>=主圖最低),LINE8),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET2),colorB48246;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET3),colorB48246;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET5),colorB48246;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET6),colorB48246;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINEB1<=主圖最高 AND LINEB1>=主圖最低),LINEB1),color33D1B9;
PARTLINE(BARPOS>=BBP AND TPOINT<>0 AND IF(全顯>0,1,LINEB2<=主圖最高 AND LINEB2>=主圖最低),LINEB2),color33D1B9;
PARTLINE(K3LAST>0,LASTDX1),LINEDOT,colorFFFF;
PARTLINE(K3LAST>0 AND IF(全顯>0,1,LASTDX4<=主圖最高 AND LASTDX4>=主圖最低),LASTDX4),LINEDOT,color7280FA;
VERTLINE(KL AND TPOINT<>0),LINEDOT,color505050;
VERTLINE(測量>1 AND PK2 AND (全顯<>3 AND 全顯<>-3 OR DATATYPE>=6)),LINEDOT,color338833;
VERTLINE(BARPOS=BBP),LINEDOT,color885533;
IF 時間標尺 THEN BEGIN
TM2:=8;
TPK1:=IF(IF(STARTED=0,多空,FORUP),TROUGHBARS(2,0.1,1),PEAKBARS(1,0.1,1));
TPK2:=BACKSET(BARPOS=DATACOUNT,IF(BARPOS=DATACOUNT,SUMBARS(TPK1=0,STARTED),0));
KTPK1:=IF(IF(STARTED=0,多空,FORUP),PEAKBARS(1,IF(STARTED=0,TM2,0.1),1),TROUGHBARS(2,IF(STARTED=0,TM2,0.1),1));
DDD:=(BARSSINCE(KTPK1=0 AND ref(BARPOS,BARSLAST(KTPK1=0))>ref(BARPOS,BARSLAST(PK1))))=0;
KTPK2:=BACKSET(BARPOS=DATACOUNT,IF(BARPOS=DATACOUNT,SUMBARS(KTPK1=0,ENDED),0));
T1:=STRTONUM(NUMTOSTR(ref(BARPOS,IF(STARTED=0,BARSLAST(PK1),BARSSINCE(TPK2))),0));
T2:=STRTONUM(NUMTOSTR(ref(BARPOS,IF(STARTED=0,BARSLAST(DDD),BARSSINCE(KTPK2))),0));
PC:=T2-T1;
A:=CLOSE;
B:=CLOSE;
FOR I=1 TO DATACOUNT DO BEGIN
A[I]:=0;
B[I]:=0;
END;
J:=3;
TT2:=0;
TT1:=0;
TEM1:=T1;
TEM2:=T2;BEGIN
TT1:=INTPART(TEM1+PC*1/SQRT(5)*(POW((1+SQRT(5))/2,J)-POW((1-SQRT(5))/2,J))+0.9);
TT2:=INTPART(TEM2+PC*1/SQRT(5)*(POW((1+SQRT(5))/2,J)-POW((1-SQRT(5))/2,J))+0.9);
IF TT1>DATACOUNT OR TT1<0 THEN
BREAK;ELSE
A[TT1]:=1;
IF TT2>DATACOUNT OR TT2<0 THEN
BREAK;ELSE
B[TT2]:=1;
IF J<=5 THEN
J:=J+1;ELSE BEGIN
J:=3;
PC:=TT2-TT1;
TEM1:=TT1;
TEM2:=TT2;
END;
END;
IF TT1-DATACOUNT=1 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,color808080;
IF TT2-DATACOUNT=1 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,color303030;
IF TT1-DATACOUNT=2 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,color808080;
IF TT2-DATACOUNT=2 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,color303030;
IF TT1-DATACOUNT=3 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,color808080;
IF TT2-DATACOUNT=3 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,color303030;
DRAWTEXTEX(MAX(TT1-DATACOUNT,TT2-DATACOUNT)>0 OR MIN(TT1-DATACOUNT,TT2-DATACOUNT)>0,1,0,50,'NEXTIME:'+(NUMTOSTR(IF(MIN(TT1-DATACOUNT,TT2-DATACOUNT)<0,MAX(TT1-DATACOUNT,TT2-DATACOUNT),MIN(TT1-DATACOUNT,TT2-DATACOUNT)),0))),color808080;
DRAWTEXTEX(TT1-DATACOUNT>0,1,0,100,'Nearly Comming KEY_TIMELINE:'+NUMTOSTR(TT1-DATACOUNT,0)),colorA0A0A0;
VERTLINE(A=1),POINTDOT,color505050;
VERTLINE(B=1),POINTDOT,color202020;
IF FORUP AND STARTED>0 OR 多空 AND STARTED=0 THEN BEGIN
DRAWICON(BARPOS=T1,LOW*0.99,4);
DRAWICON(BARPOS=T2,HIGH*1.01,5);
END;ELSE BEGIN
DRAWICON(BARPOS=T1,HIGH*1.01,5);
DRAWICON(BARPOS=T2,LOW*0.99,4);
END;
END;
IF 全顯=2 OR 全顯=-1 THEN BEGIN
VAR2:=BARSLAST(K5LAST);
VAR3:=ref(INDEXC,VAR2)/ref(CLOSE,VAR2);
DPO:=INDEXO/VAR3;
DPH:=INDEXH/VAR3;
DPL:=INDEXL/VAR3;
DPC:=INDEXC/VAR3;
STICKLINE(DPC>ref(DPC,1),DPH,DPL,0.1,0),colorC0C0C0;
STICKLINE(DPC>ref(DPC,1),DPO,DPC,7,0),color606060;
STICKLINE(DPC>ref(DPC,1),DPO,DPC,5,0),color909090;
STICKLINE(DPC>ref(DPC,1),DPO,DPC,3,0),colorB0B0B0;
STICKLINE(DPC<=ref(DPC,1),DPH,DPL,0.1,1),color808080;
STICKLINE(DPC<=ref(DPC,1),DPO,DPC,7,0),color202020;
STICKLINE(DPC<=ref(DPC,1),DPO,DPC,5,0),color404040;
STICKLINE(DPC<=ref(DPC,1),DPO,DPC,3,0),color606060;
END;
IF (全顯=3 OR 全顯=-3 OR 全顯=-2 OR 全顯=4) AND DATATYPE<6 THEN BEGIN
DHHDAY:HHDAY,LINEDOT,color660099;
DLLDAY:LLDAY,LINEDOT,colorFF0000;
END;
DRAWTEXT(BARPOS=BBP,IF(多空,LOW,HIGH),' '+NUMTOSTR(ref(YEAR,KTONOW1),0)+'年'+NUMTOSTR(ref(MONTH,KTONOW1),0)+'月'+NUMTOSTR(ref(DAY,KTONOW1),0)+'日'),color707070;
KO:=CLOSE;
KC:=ref(CLOSE,1);
STICKLINE(KO>KC AND (K3LAST>0 OR 單線精度=0),OPEN,LOW,0.5,0),color2828FF;
STICKLINE(KO>KC AND (K3LAST>0 OR 單線精度=0),CLOSE,HIGH,0.5,0),color2828FF;
STICKLINE(KO<=KC AND (K3LAST>0 OR 單線精度=0),CLOSE,LOW,0.5,0),colorFFFF22;
STICKLINE(KO<=KC AND (K3LAST>0 OR 單線精度=0),OPEN,HIGH,0.5,0),colorFFFF22;
STICKLINE(KO<=KC AND (K3LAST>0 OR 單線精度=0),CLOSE,OPEN,7,0),colorCC6600;
STICKLINE(KO<=KC AND (K3LAST>0 OR 單線精度=0),CLOSE,OPEN,5,0),colorFFFF11;
STICKLINE(KO>KC AND (K3LAST>0 OR 單線精度=0),CLOSE,OPEN,7,0),color440099;
STICKLINE(KO>KC AND (K3LAST>0 OR 單線精度=0),CLOSE,OPEN,5,0),color2828FF;
STICKLINE(KO>KC AND K3LAST=0 AND 單線精度<>0,OPEN,LOW,0.5,0),color88;
STICKLINE(KO>KC AND K3LAST=0 AND 單線精度<>0,CLOSE,HIGH,0.5,0),color88;
STICKLINE(KO<=KC AND K3LAST=0 AND 單線精度<>0,CLOSE,LOW,0.5,0),color886600;
STICKLINE(KO<=KC AND K3LAST=0 AND 單線精度<>0,OPEN,HIGH,0.5,0),color886600;
STICKLINE(KO<=KC AND K3LAST=0 AND 單線精度<>0,CLOSE,OPEN,7,0),color660000;
STICKLINE(KO<=KC AND K3LAST=0 AND 單線精度<>0,CLOSE,OPEN,5,0),color886600;
STICKLINE(KO>KC AND K3LAST=0 AND 單線精度<>0,CLOSE,OPEN,7,0),color66;
STICKLINE(KO>KC AND K3LAST=0 AND 單線精度<>0,CLOSE,OPEN,5,0),color88;
STICKLINE(IF(BBP>ref(BARPOS,KL),BARPOS=BBP,KL) AND (TPOINT)<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET2,LINET3,4,1),color8BBB00;
STICKLINE(IF(BBP>ref(BARPOS,KL),BARPOS=BBP,KL) AND (TPOINT)<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET5,LINET6,4,1),colorFFFF;
DRAWTEXT(BARPOS=BBP,LINE1,' '+NUMTOSTR(LINE1,2)+' [1]'),ALIGN2,color808080;
DRAWTEXT(BARPOS=BBP,LINE2,' NO.2 '+NUMTOSTR(LINE2,2)),ALIGN1,color808080;
DRAWTEXT(BARPOS=BBP,LINE2+(LINE3-LINE2)/2,' '+NUMTOSTR(LINE2+(LINE3-LINE2)/2,2)+' [H]'),ALIGN2,color808080;
DRAWTEXT(BARPOS=BBP,LINE3,' NO.3 '+NUMTOSTR(LINE3,2)),ALIGN1,color808080;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,LINE4<=主圖最高 AND LINE4>=主圖最低),LINE4,NUMTOSTR(LINE4,2)+' [4]'),ALIGN2,color808080;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,LINE5<=主圖最高 AND LINE5>=主圖最低),LINE5,' NO.5 '+NUMTOSTR(LINE5,2)),ALIGN1,color808080;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,LINE5<=主圖最高 AND LINE5>=主圖最低),LINE6,' '+NUMTOSTR(LINE6,2)+' [6]'),ALIGN2,color808080;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,LINE7<=主圖最高 AND LINE7>=主圖最低),LINE7,' NO.7 '+NUMTOSTR(LINE7,2)),ALIGN1,color808080;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,LINE7<=主圖最高 AND LINE7>=主圖最低),LINE8,' '+NUMTOSTR(LINE8,2)+' [8]'),ALIGN2,color808080;
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINEB1<=主圖最高 AND LINEB1>=主圖最低),LINEB1,NUMTOSTR(LINEB1,2)),ALIGN1,SHIFT1,color808080;
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINEB2<=主圖最高 AND LINEB2>=主圖最低),LINEB2,NUMTOSTR(LINEB2,2)),ALIGN1,SHIFT1,color808080; {本文來至CXH99.COM}
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET2,NUMTOSTR(LINET2,2)),ALIGN1,SHIFT1,color808080;
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINET2<=主圖最高 AND LINET2>=主圖最低),LINET3,NUMTOSTR(LINET3,2)),ALIGN1,SHIFT1,color808080;
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET5,NUMTOSTR(LINET5,2)),ALIGN1,SHIFT1,color808080;
DRAWTEXT(ISLASTBAR AND TPOINT<>0 AND IF(全顯>0,1,LINET5<=主圖最高 AND LINET5>=主圖最低),LINET6,NUMTOSTR(LINET6,2)),ALIGN1,SHIFT1,color808080;
IF 單線精度<>0 AND (反向測量=1 OR 反向測量=0) THEN BEGIN
DRAWTEXT(K5LAST,LASTDX1,NUMTOSTR(LASTDX1,2)+' '),ALIGN2,color808080;
DRAWTEXT(K5LAST,MIN(LASTDX2,LASTDX3)+(ABS(LASTDX3-LASTDX2))/2,NUMTOSTR(LASTDX2,2)+'-'+NUMTOSTR(LASTDX3,2)+' '),ALIGN2,color808080;
DRAWTEXT(K5LAST AND IF(全顯>0,1,LASTDX4<=主圖最高 AND LASTDX4>=主圖最低),LASTDX4,NUMTOSTR(LASTDX4,2)+' '),ALIGN2,color808080; {本文來至CXH99.COM}
DRAWTEXT(K5LAST AND IF(全顯>0,1,LASTDX5<=主圖最高 AND LASTDX5>=主圖最低),MIN(LASTDX5,LASTDX6)+(ABS(LASTDX6-LASTDX5))/2,NUMTOSTR(LASTDX5,2)+'-'+NUMTOSTR(LASTDX6,2)+' '),ALIGN2,color808080;
DRAWTEXT(K5LAST AND IF(全顯>0,1,LASTDX7<=主圖最高 AND LASTDX7>=主圖最低),MIN(LASTDX7,LASTDX8)+(ABS(LASTDX8-LASTDX7))/2,NUMTOSTR(LASTDX7,2)+'-'+NUMTOSTR(LASTDX8,2)+' '),ALIGN2,color808080;
DRAWTEXT(K5LAST AND IF(全顯>0,1,LASTDX8<=主圖最高 AND LASTDX8>=主圖最低),MIN(LASTDX8,LASTDX9)+(ABS(LASTDX9-LASTDX8))/2,NUMTOSTR(LASTDX8,2)+'-'+NUMTOSTR(LASTDX9,2)+' '),ALIGN2,color808080;
END;