幫忙改成文華

作者：文華財經來源：cxh99.com 發布時間：2019年10月13日

咨詢內容： ?幫忙改一下謝謝888
DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);DRAWTEXT_FIX(1,0.88,5,0,'~',COLORBLUE;Z1:=STRCAT(HYBLOCK,'';Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2,'';DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;金牛:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW;金鉆趨勢:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;金牛2:EMA(金鉆趨勢,25)COLORCYAN,LINETHICK2;DRAWBAND(金鉆趨勢,RGB(55,0,0),金牛2,RGB(0,91,0));DRAWKLINE(H,O,L,C);STICKLINE(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;STICKLINE(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;STICKLINE(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));XG:=金鉆趨勢>HIGH AND 回調買 AND L<=金鉆趨勢;DRAWTEXT(XG,L,'買入',COLORRED;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);V5:=SMA(V2*120/FROMOPEN*5,2,1);V10:=SMA(V5,5,1);V20:=SMA(V10,5,1);DY:=CURRBARSCOUNT=1 AND C<REF(C,1);DY2:=REF(V2,1)-DY;XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;{DRAWTEXT(XG2,L,'抓牛',COLORYELLOW;}DRAWTEXT(XG2 AND L<金鉆趨勢,L,'金鉆起漲',COLORMAGENTA;

GET:ZIG(3,5),COLORAAAAAA;PL5:=ZIG(3,5);EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);PL10:=ZIG(3,13);EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);PL20:=ZIG(3,26);EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);PL40:=ZIG(3,55);走強一:=BARSLAST(PL5<REF(PL5,1));走弱一:=BARSLAST(PL5>REF(PL5,1));走強二 :=BARSLAST(PL10<REF(PL10,1));走弱二:=BARSLAST(PL10>REF(PL10,1));走強三:=BARSLAST(PL20<REF(PL20,1));走弱三:=BARSLAST(PL20>REF(PL20,1));ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強二 ),0);ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強二 ),0);DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱二),0);DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱二),0);ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強三),0);ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強三),0);DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱三),0);DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱三),0);DRAWTEXT(EN1 AND DTJZ5=1,LOW*0.97,'AⅠ多)',COLORFFFF00;DRAWTEXT(EX1 AND DTJD5=2,HIGH*1.03,'BⅡ空)',COLORFFFF00;DRAWTEXT(EN2 AND ZTJZ5=1,LOW*0.97,'CⅢ起飛)',COLORFFFF00;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,HIGH*1.02,'',COLOR0000FF;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,LOW*0.98,'',COLOR0000FF;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,HIGH*1.02,'',COLOR0000FF;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,LOW*0.98,'',COLOR0000FF;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.02,'',COLOR0000FF;DRAWTEXT(EN2 AND DTJZ10=1,LOW*0.94,'A】',COLOR00FF00;DRAWTEXT(EX2 AND DTJD10=2,HIGH*1.05,'B】',COLOR00FF00;DRAWTEXT(EN3 AND ZTJZ10=1,LOW*0.94,'C】',COLOR00FF00;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.04,'',LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,LOW*0.96,'補',LINETHICK3,COLOR00FFFF;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,HIGH*1.04,'',LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,LOW*0.96,'在補',LINETHICK3,COLOR00FFFF;

頭部:=PEAKBARS(3,3,1)=0;底部:=TROUGHBARS(3,3,1)=0;DRAWTEXT(頭部,H,'---有阻力------- ',COLORGREEN;DRAWTEXT(底部,L,++++'支撐------- ',COLORRED;

頂底開關:=0;點位差:=0;指定點:=0;V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);STICKLINE(V2V,H,L,0,0),COLORYELLOW;STICKLINE(V2V,O,C,3.1,0),COLOR0033FF;STICKLINE(V2V,O,C,2.1,0),COLOR0077FF;STICKLINE(V2V,O,C,1.1,0),COLOR00BBFF;STICKLINE(V2V,O,C,0.1,0),COLOR00FFFF;ZT:=C/REF(C,1)>1.097;ZT數:COUNT(ZT,BARSSINCE(ZT)),NODRAW;均價:=AMO/VOL/100;假陰真陽:=C<O AND C>=REF(MIN(C,O),1) AND 均價>REF(均價,1);DT:=假陰真陽;STICKLINE(DT,H,L,0,0),COLORFFAA00;STICKLINE(DT,O,C,3,0),COLORFF3300;STICKLINE(DT,O,C,2,0),COLORFF7700;STICKLINE(DT,O,C,1,0),COLORFFAA00;STICKLINE(DT,O,C,0.1,0),COLORFFFF00;YX:=REF(O,BARSLAST(假陰真陽));假陰實頂:YX,COLORFF7700,NODRAW;STICKLINE(V,YX,YX,1,0),COLORFF7700;L0:=點位差/100;前極點精準線:IF(頂底開關=0,CONST(REF(L,指定點)),CONST(REF(H,指定點))),COLOR178448;DRAWICON(ABS(L-前極點精準線)<=L0,前極點精準線*0.99,38);DRAWICON(ABS(H-前極點精準線)<=L0,前極點精準線*1.01,39);{H極點精準線:CONST(REF(H,指定點)),COLOR7777FF;DRAWICON(ABS(H極點精準線-H)<=L0,H極點精準線*1.01,35);DRAWICON(ABS(H極點精準線-L)<=L0,H極點精準線*0.99,34);}{極點精準線:CONST(L),COLOR0077FF;DRAWICON(ABS(L-極點精準線)<=L0,極點精準線*0.99,1);DRAWICON(ABS(H-極點精準線)<=L0,極點精準線*1.01,2);同向極點精準數:COUNT(ABS(L-極點精準線)<=L0,60)-1,COLOR0077FF,NODRAW;異向極點精準數:COUNT(ABS(H-極點精準線)<=L0,60),COLOR0077FF,NODRAW;XG:=同向極點精準數>0 AND 異向極點精準數>0;}{DIFF:=10*(EMA(CLOSE,12)-EMA(CLOSE,26));DEA:=EMA(DIFF,9);MACD:=2*(DIFF-DEA);量縮價漲:=C<REF(O,1) AND V<REF(V,1) AND MACD>REF(MACD,1) AND C>REF(C,1) AND REF(C<O,1) AND C>O;陰KDAY:=BARSLAST(量縮價漲)+1;STICKLINE(V,REF(O,陰KDAY),REF(O,陰KDAY),3.5,0),COLORMAGENTA;DRAWICON(CROSS(C,REF(O,陰KDAY)),L,1);}DRAWTEXT_FIX(ISLASTBAR,0.5,0.05,0,CODE),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR,0.55,0.05,0,STKNAME)COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR,0.6,0.05,0,HYBLOCK),COLORCYAN;DRAWTEXT_FIX(ISLASTBAR,0.6,0,0,DYBLOCK),COLORCYAN;DRAWTEXT_FIX(ISLASTBAR,0.55,0.85,0,GNBLOCK),COLORMAGENTA;DRAWTEXT_FIX(ISLASTBAR,0.55,0.90,0,FGBLOCK),COLORMAGENTA;DRAWTEXT_FIX(ISLASTBAR,0.55,0.95,0,ZSBLOCK);N:=150;判斷高低:=3;高:=REF(HHV(H,N),判斷高低);近期頂:REFDATE(高,DATE),COLORGREEN,LINETHICK3;低:=REF(LLV(L,N),判斷高低);近期底:REFDATE(低,DATE),COLORRED,LINETHICK3;漲跌:=REF(C,1);漲停:=IF((C-漲跌)*100/漲跌>=(10-0.01*100/漲跌),1,0);DRAWICON(漲停,H*0.97,23);LAST3K:=CURRBARSCOUNT>4;

KU1:=IF(HIGH=HHV(HIGH,3),1,0);KD1:=IF(LOW=LLV(LOW,3),1,0);UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1AND REF(KU1,1)=0 AND KU1=0)));DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1AND REF(KD1,1)=0 AND KD1=0)));HV:=H>UL AND H>REF(H,1) ;LV:=L<DL AND L<REF(L,1) ;GP:=BARSLAST(HV);DP:=BARSLAST(LV);IP:=IF(GP=0,DP,GP)>3;HV1:=HV AND IP AND H>=HHV(H,BARSLAST(LV));LV1:=LV AND IP AND L<=LLV(L,BARSLAST(HV));DRAWLINE(LV1,LOW,HV1, HIGH,0),COLORYELLOW,LINETHICK2;DRAWLINE(HV1,HIGH,LV1, LOW,0),COLORMAGENTA,LINETHICK2;N1:=10;N2:=10;DISP:=2;
?
?來源:程序化99
文華技術人員： ? 參考
DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1);金牛:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+REFX1(MA(REFX1(MA(H,25),25/2),25),25/2),DOT,COLORYELLOW;金鉆趨勢:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK2,COLORRED;金牛2:EMA(金鉆趨勢,25),COLORCYAN,LINETHICK2;CURRBARSCOUNT:=DATACOUNT-BARPOS+1;FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);FILLRGN(金鉆趨勢>金牛,金鉆趨勢,金牛,RGB(55,0,0));FILLRGN(金鉆趨勢<金牛,金鉆趨勢,金牛,RGB(0,91,0));DRAWKLINE1(H,O,L,C);STICKLINE1(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),3,0),COLORYELLOW;STICKLINE1(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),3,0),COLORYELLOW;STICKLINE1(金鉆趨勢>HIGH,OPEN,CLOSE,3,0),COLORYELLOW;STICKLINE1(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;VAR23:=100*REFX1(MA((C-REF(C,1)),6),6/2)/REFX1(MA(ABS((C-REF(C,1))),6),6/2);回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));XG:=金鉆趨勢>HIGH AND 回調買 AND L<=金鉆趨勢;DRAWTEXT(XG,L,'▲買入'),COLORRED;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);CAPITAL:=GETPRICE1('流通股本');JJ:=(HIGH+LOW+CLOSE)/3;QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);V5:=SMA(V2*120/FROMOPEN*5,2,1);V10:=SMA(V5,5,1);V20:=SMA(V10,5,1);DY:=CURRBARSCOUNT=1 AND C<REF(C,1);DY2:=REF(V2,1)-DY;XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;DRAWTEXT(XG2 AND L<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;

GET:ZIGZAG(C,5,1),COLORAAAAAA;PL5:=ZIGZAG(C,5,1);EN1:=ZIGZAG(C,5,1)>REF(ZIGZAG(C,5,1),1) AND REF(ZIGZAG(C,5,1),1)<=REF(ZIGZAG(C,5,1),2) AND REF(ZIGZAG(C,5,1),2)<=REF(ZIGZAG(C,5,1),3);EX1:=ZIGZAG(C,5,1)<REF(ZIGZAG(C,5,1),1) AND REF(ZIGZAG(C,5,1),1)>=REF(ZIGZAG(C,5,1),2) AND REF(ZIGZAG(C,5,1),2)>=REF(ZIGZAG(C,5,1),3);PL10:=ZIGZAG(C,13,1);EN2:=ZIGZAG(C,10,1)>REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)<=REF(ZIGZAG(C,10,1),2) AND REF(ZIGZAG(C,10,1),2)<=REF(ZIGZAG(C,10,1),3);EX2:=ZIGZAG(C,10,1)<REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)>=REF(ZIGZAG(C,10,1),2) AND REF(ZIGZAG(C,10,1),2)>=REF(ZIGZAG(C,10,1),3);PL20:=ZIGZAG(C,26,1);EN3:=ZIGZAG(C,20,1)>REF(ZIGZAG(C,20,1),1) AND REF(ZIGZAG(C,20,1),1)<=REF(ZIGZAG(C,20,1),2) AND REF(ZIGZAG(C,20,1),2)<=REF(ZIGZAG(C,20,1),3);EX3:=ZIGZAG(C,20,1)<REF(ZIGZAG(C,20,1),1) AND REF(ZIGZAG(C,20,1),1)>=REF(ZIGZAG(C,20,1),2) AND REF(ZIGZAG(C,20,1),2)>=REF(ZIGZAG(C,20,1),3);PL40:=ZIGZAG(C,55,1);走強一:=BARSLAST(PL5<REF(PL5,1));走弱一:=BARSLAST(PL5>REF(PL5,1));走強二 :=BARSLAST(PL10<REF(PL10,1));走弱二:=BARSLAST(PL10>REF(PL10,1));走強三:=BARSLAST(PL20<REF(PL20,1));走弱三:=BARSLAST(PL20>REF(PL20,1));ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強二 ),0);ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強二 ),0);DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱二),0);DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱二),0);ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強三),0);ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強三),0);DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱三),0);DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱三),0);DRAWTEXT(EN1 AND DTJZ5=1,LOW*0.97,'(AⅠ多)'),COLORFFFF00;DRAWTEXT(EX1 AND DTJD5=2,HIGH*1.03,'(BⅡ空)'),COLORFFFF00;DRAWTEXT(EN2 AND ZTJZ5=1,LOW*0.97,'(CⅢ起飛)'),COLORFFFF00;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,HIGH*1.02,'⑴'),COLOR0000FF;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,LOW*0.98,'⑵'),COLOR0000FF;DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,HIGH*1.02,'⑶'),COLOR0000FF;DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,LOW*0.98,'⑷'),COLOR0000FF;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.02,'⑸'),COLOR0000FF;DRAWTEXT(EN2 AND DTJZ10=1,LOW*0.94,'【A】'),COLOR00FF00;DRAWTEXT(EX2 AND DTJD10=2,HIGH*1.05,'【B】'),COLOR00FF00;DRAWTEXT(EN3 AND ZTJZ10=1,LOW*0.94,'【C】'),COLOR00FF00;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.04,'①'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,LOW*0.96,'②補'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,HIGH*1.04,'③'),LINETHICK3,COLOR00FFFF;DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,LOW*0.96,'④在補'),LINETHICK3,COLOR00FFFF;

頭部:=PEAKBARS(C,3,1,1)=0;底部:=TROUGHBARS(C,3,1,1)=0;DRAWTEXT(頭部,H,'----有阻力------- '),COLORGREEN;DRAWTEXT(底部,L,'++++有支撐------- '),COLORRED;

頂底開關:=0;點位差:=0;指定點:=0;V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);STICKLINE1(V2V,H,L,0,0),COLORYELLOW;STICKLINE1(V2V,O,C,3.1,0),COLOR0033FF;STICKLINE1(V2V,O,C,2.1,0),COLOR0077FF;STICKLINE1(V2V,O,C,1.1,0),COLOR00BBFF;STICKLINE1(V2V,O,C,0.1,0),COLOR00FFFF;ZT:=C/REF(C,1)>1.097;ZT數:COUNT(ZT,BARSSINCE(ZT)),NODRAW;AMOUNT:=AVPRICE*V;均價:=AMOUNT/VOL/100;假陰真陽:=C<O AND C>=REF(MIN(C,O),1) AND 均價>REF(均價,1);DT:=假陰真陽;STICKLINE1(DT,H,L,0,0),COLORFFAA00;STICKLINE1(DT,O,C,3,0),COLORFF3300;STICKLINE1(DT,O,C,2,0),COLORFF7700;STICKLINE1(DT,O,C,1,0),COLORFFAA00;STICKLINE1(DT,O,C,0.1,0),COLORFFFF00;YX:=REF(O,BARSLAST(假陰真陽));假陰實頂:YX,COLORFF7700,NODRAW;STICKLINE1(V,YX,YX,1,0),COLORFF7700;L0:=點位差/100;前極點精準線:IF(頂底開關=0,REFX1(REF(L,指定點),10000),REFX1(REF(H,指定點),10000)),COLOR178448;DRAWICON(ABS(L-前極點精準線)<=L0,前極點精準線*0.99,38);DRAWICON(ABS(H-前極點精準線)<=L0,前極點精準線*1.01,39);
N:=150;判斷高低:=3;高:=REF(HHV(H,N),判斷高低);近期頂:REFX1(高,10000),COLORGREEN,LINETHICK3;低:=REF(LLV(L,N),判斷高低);近期底:REFX1(低,10000),COLORRED,LINETHICK3;漲跌:=REF(C,1);漲停:=IF((C-漲跌)*100/漲跌>=(10-0.01*100/漲跌),1,0);DRAWICON(漲停,H*0.97,23);LAST3K:=CURRBARSCOUNT>4;

KU1:=IF(HIGH=HHV(HIGH,3),1,0);KD1:=IF(LOW=LLV(LOW,3),1,0);UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1AND REF(KU1,1)=0 AND KU1=0)));DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1AND REF(KD1,1)=0 AND KD1=0)));HVH:=H>UL AND H>REF(H,1) ;LVL:=L<DL AND L<REF(L,1) ;GP:=BARSLAST(HVH);DP:=BARSLAST(LVL);IP:=IF(GP=0,DP,GP)>3;HV1:=HVH AND IP AND H>=HHV(H,BARSLAST(LVL));LV1:=LVL AND IP AND L<=LLV(L,BARSLAST(HVH));DRAWLINE1(LV1,LOW,HV1, HIGH,0),COLORYELLOW,LINETHICK2;DRAWLINE1(HV1,HIGH,LV1, LOW,0),COLORMAGENTA,LINETHICK2;N1:=10;N2:=10;DISP:=2;
?