老師幫忙看下指標，非常感謝
作者：文華財經(jīng) 來源：cxh99.com 發(fā)布時間：2021年08月24日
-
咨詢內(nèi)容：
老師幫忙修改下保留所有畫的中樞，謝謝
纏論線開關(guān):=1;//筆中樞;MA8:=1;展F:=10;HH展BDD:=(H>HV(H,展F))*纏論線開關(guān)*MA8;NH展BDD:=(BARSLAST(HH展BDD)+1)*纏論線開關(guān)*MA8;LL展BDD:=(L<LV(L,展F))*纏論線開關(guān)*MA8;NL展BDD:=(BARSLAST(LL展BDD)+1)*纏論線開關(guān)*MA8;
AH展BDD:=(BACKSET(COUNT(LL展BDD,NH展BDD)&&LL展BDD,NH展BDD))*纏論線開關(guān)*MA8;AL展BDD:=(BACKSET(COUNT(HH展BDD,NL展BDD)&&HH展BDD,NL展BDD))*纏論線開關(guān)*MA8;//DRAWLINE1(CROSS(AH展BDD=1,0.5),H,CROSS(AL展BDD=1,0.5),L,0),DASHDOTDOT,LINETHICK1,RGB(146,99,1);//DRAWLINE1(CROSS(AL展BDD=1,0.5),L,CROSS(AH展BDD=1,0.5),H,0),DASHDOTDOT,LINETHICK1,RGB(143,32,255);//DRAWNUMBER(CROSS(AH展BDD=1,0.5),H+0*MINPRICE,H-VALUEWHEN(CROSS(AL展BDD=1,0.5),L),1,COLORYELLOW),ALIGN0,VALIGN2,FONTSIZE16;//DRAWNUMBER(CROSS(AL展BDD=1,0.5),L-0*MINPRICE,L-VALUEWHEN(CROSS(AH展BDD=1,0.5),H),1,COLORGREEN),ALIGN0,VALIGN0,FONTSIZE16;LX:=AL展BDD, NOTEXT;HX:=AH展BDD, NOTEXT;
筆:=1;//1、本級別 (BOLL26)筆：DRAWLINE1(筆*CROSS(LX=1,0.5),L,CROSS(HX=1,0.5),H,0),RGB(168,168,168),DOT;//畫筆，虛線；DRAWLINE1(筆*CROSS(HX=1,0.5),H,CROSS(LX=1,0.5),L,0),RGB(168,168,168),DOT;//畫筆，虛線；//BOLL26最后一筆(未完成)；//HH:=CROSS(HX=1,0.5);//LL:=CROSS(LX=1,0.5);HH:CROSS(AH展BDD=1,0.5), NOTEXT;LL:CROSS(AL展BDD=1,0.5), NOTEXT;DRAWLINE3(筆*ISLASTBAR&&BARSLAST(HH)<BARSLAST(LL),筆*VALUEWHEN(HH,H),筆*BARSLAST(HH),1,LLV(L,BARSLAST(HH)),LLVBARS(L,BARSLAST(HH)),0),RGB(200,200,0);//BOLL26最后一筆(未完成)，向下筆；DRAWLINE3(筆*ISLASTBAR&&BARSLAST(HH)>BARSLAST(LL),筆*VALUEWHEN(LL,L),筆*BARSLAST(LL),1,HHV(H,BARSLAST(LL)),HHVBARS(H,BARSLAST(LL)),0),RGB(200,200,0);//BOLL26最后一筆(未完成)，向上筆；
////////2、畫倒數(shù)1234的筆；//2.1、倒數(shù)第4筆（已完成）；BADS4:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),4));BBDS4:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),5));DRAWLINE1(筆*CROSS(LX=1,0.5)&&BBDS4=1&&BADS4=0,L,CROSS(HX=1,0.5),H,0),RGB(200,200,0);//向上筆（倒數(shù)4），黃色；DRAWLINE1(筆*CROSS(HX=1,0.5)&&BBDS4=1&&BADS4=0,H,CROSS(LX=1,0.5),L,0),RGB(200,200,0);//向下筆（倒數(shù)4），黃色；//2.2、倒數(shù)第2筆（已完成）；BADS2:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),2));BBDS2:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),3));DRAWLINE1(筆*CROSS(LX=1,0.5)&&BBDS2=1&&BADS2=0,L,CROSS(HX=1,0.5),H,0),RGB(128,128,255);//向上筆（倒數(shù)2），紫紅色；DRAWLINE1(筆*CROSS(HX=1,0.5)&&BBDS2=1&&BADS2=0,H,CROSS(LX=1,0.5),L,0),RGB(128,128,255);//向下筆（倒數(shù)2），紫紅色；//2.3、倒數(shù)第3筆（已完成）；BADS3:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),3));BBDS3:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),4));DRAWLINE1(筆*CROSS(LX=1,0.5)&&BBDS3=1&&BADS3=0,L,CROSS(HX=1,0.5),H,0),RGB(128,128,255);//向上筆（倒數(shù)3），紫紅色；DRAWLINE1(筆*CROSS(HX=1,0.5)&&BBDS3=1&&BADS3=0,H,CROSS(LX=1,0.5),L,0),RGB(128,128,255);//向下筆（倒數(shù)3），紫紅色；//2.4、倒數(shù)第1筆（已完成）；BADS1:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),1));BBDS1:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),2));DRAWLINE1(筆*CROSS(LX=1,0.5)&&BBDS1=1&&BADS1=0,L,CROSS(HX=1,0.5),H,0),RGB(128,128,255);//向上筆（倒數(shù)1），紫紅色；DRAWLINE1(筆*CROSS(HX=1,0.5)&&BBDS1=1&&BADS1=0,H,CROSS(LX=1,0.5),L,0),RGB(128,128,255);//向下筆（倒數(shù)1），紫紅色；
////////3、計算筆的長度；//3.1、BOLL26筆（已完成）的每筆長度；DRAWNUMBER1(筆*REFX(CROSS(LX=1,0.5),5),REFX(L,5),REFX((L-VALUEWHEN(CROSS(HX=1,0.5),H)),5),2),ALIGN2,VALIGN0,RGB(0,67,100);//向下筆（已完成）長度，保留2位小數(shù)；DRAWNUMBER1(筆*REFX(CROSS(HX=1,0.5),5),REFX(H,5),REFX((H-VALUEWHEN(CROSS(LX=1,0.5),L)),5),2),ALIGN2,VALIGN2,RGB(0,67,100);//向上筆（已完成）長度，保留2位小數(shù)；//BOLL26最后一筆（未完成）長度；BX1:=CROSS(BACKSET(ISLASTBAR&&BARSLAST(HH)<BARSLAST(LL),LLVBARS(L,BARSLAST(HH))+1),0.5);BX2:=CROSS(BACKSET(ISLASTBAR&&BARSLAST(HH)>BARSLAST(LL),HHVBARS(H,BARSLAST(LL))+1),0.5);DRAWNUMBER1(筆*REFX(BX1,5),REFX(L,5),REFX((L-VALUEWHEN(CROSS(HX=1,0.5),H)),5),2),ALIGN2,VALIGN0,RGB(0,67,100);//向下筆（未完成）長度，保留2位小數(shù)；DRAWNUMBER1(筆*REFX(BX2,5),REFX(H,5),REFX((H-VALUEWHEN(CROSS(LX=1,0.5),L)),5),2),ALIGN2,VALIGN0,RGB(0,67,100);//向上筆（未完成）長度，保留2位小數(shù)；
////////4、筆終點標注文字記號；//4.1、筆（已完成）終點標注文字；BAA:=IF(CROSS(LX=1,0.5),L,H);BBB:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),4));DRAWTEXT(筆*BBB&&CROSS(HX=1,0.5)&&COUNT(CROSS(HX=1,0.5),BARSLASTCOUNT(BBB))=1,H,'2? ? ? ',ALIGN2,FONTSIZE18,RGB(128,128,255);//倒數(shù)第2個高點標注文字；DRAWTEXT(筆*BBB&&CROSS(HX=1,0.5)&&COUNT(CROSS(HX=1,0.5),BARSLASTCOUNT(BBB))=2,H,'1? ? ? ',ALIGN2,FONTSIZE18,RGB(128,128,255);//倒數(shù)第1個高點標注文字；DRAWTEXT(筆*BBB&&CROSS(LX=1,0.5)&&COUNT(CROSS(LX=1,0.5),BARSLASTCOUNT(BBB))=1,L,'2? ? ? ',ALIGN2,VALIGN0,FONTSIZE18,RGB(128,128,255);//倒數(shù)第2個低點標注文字；DRAWTEXT(筆*BBB&&CROSS(LX=1,0.5)&&COUNT(CROSS(LX=1,0.5),BARSLASTCOUNT(BBB))=2,L,'1? ? ? ',ALIGN2,VALIGN0,FONTSIZE18,RGB(128,128,255);//倒數(shù)第1個低點標注文字；
BAA0:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),5));DRAWTEXT(筆*CROSS(BAA0>=1,0.5) && CROSS(LX=1,0.5),L,'3? ? ? ',ALIGN2,VALIGN0,FONTSIZE18,RGB(155,155,155);//倒數(shù)第3個低點標注文字；DRAWTEXT(筆*CROSS(BAA0>=1,0.5) && CROSS(HX=1,0.5),H,'3? ? ? ',ALIGN2,FONTSIZE18,RGB(155,155,155);//倒數(shù)第3個高點標注文字；
BAA1:=BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5)||CROSS(HX=1,0.5),6));DRAWTEXT(筆*CROSS(BAA1>=1,0.5) && CROSS(LX=1,0.5),L,'4? ? ? ',ALIGN2,VALIGN0,FONTSIZE18,RGB(155,155,155);//倒數(shù)第4個低點標注文字；DRAWTEXT(筆*CROSS(BAA1>=1,0.5) && CROSS(HX=1,0.5),H,'4? ? ? ',ALIGN2,FONTSIZE18,RGB(155,155,155);//倒數(shù)第4個高點標注文字；
//4.2、筆（未完成）的最后1筆標注文字；AM26:=BACKSET(ISLASTBAR&&BARSLAST(HH)>BARSLAST(LL),HHVBARS(H,BARSLAST(LL))+1);BM26:=BACKSET(ISLASTBAR&&BARSLAST(HH)<BARSLAST(LL),LLVBARS(L,BARSLAST(HH))+1);DRAWTEXT(筆*CROSS(AM26,0.5),H,'H0? ？? ? ? ',FONTSIZE18,RGB(200,200,0);//最后一筆（未完成）標注文字；DRAWTEXT(筆*CROSS(BM26,0.5),L,'L0 ？? ? ? ',VALIGN0,FONTSIZE18,RGB(200,200,0);//最后一筆（未完成）標注文字；
筆中樞:=1;//////////畫筆中樞框;HH2:=VALUEWHEN(BBB&&CROSS(HX=1,0.5)&&COUNT(CROSS(HX=1,0.5),BARSLASTCOUNT(BBB))=1,H);HH1:=VALUEWHEN(BBB&&CROSS(HX=1,0.5)&&COUNT(CROSS(HX=1,0.5),BARSLASTCOUNT(BBB))=2,H);LL2:=VALUEWHEN(BBB&&CROSS(LX=1,0.5)&&COUNT(CROSS(LX=1,0.5),BARSLASTCOUNT(BBB))=1,L);LL1:=VALUEWHEN(BBB&&CROSS(LX=1,0.5)&&COUNT(CROSS(LX=1,0.5),BARSLASTCOUNT(BBB))=2,L);//畫筆中樞框;
NG:=BARSLASTCOUNT(HH2>0 || HH1>0 || LL2>0 || LL1>0)=1;NGG:=BARSLASTCOUNT(HH2>0 && HH1>0 && LL2>0 && LL1>0)=1;DRAWSL(筆中樞*NGG,MIN(HH2,HH1),0,-SUMBARS(NG,1)+1,0,RGB(128,128,255)),DOT;//中樞上軌；DRAWSL(筆中樞*NGG,MAX(LL2,LL1),0,-SUMBARS(NG,1)+1,0,RGB(128,128,255)),DOT;//中樞下軌；DRAWLINE(筆中樞*NGG,MIN(HH2,HH1),NGG,MAX(LL2,LL1),RGB(128,128,255)),DOT;//中樞右邊垂線；DRAWLINE3(筆中樞*NGG,MIN(HH2,HH1),SUMBARS(NG,1)-1,NGG,MAX(LL2,LL1),SUMBARS(NG,1)-1,0),RGB(128,128,255),DOT;//中樞左邊垂線；//畫筆中樞框延伸部分;L1纏:=CROSS(BACKSET(ISLASTBAR,BARSLAST(CROSS(LX=1,0.5))+1),0.5);L2纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5),2)),0.5);L3纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5),3)),0.5);L4纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(LX=1,0.5),4)),0.5);H1纏:=CROSS(BACKSET(ISLASTBAR,BARSLAST(CROSS(HX=1,0.5))+1),0.5);H2纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(HX=1,0.5),2)),0.5);H3纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(HX=1,0.5),3)),0.5);H4纏:=CROSS(BACKSET(ISLASTBAR,SUMBARS(CROSS(HX=1,0.5),4)),0.5);周期:=BARSLAST(CROSS(BBB,0.5)),RGB(255,0,255);DRAWLINE3(ISLASTBAR&&VALUEWHEN(L1纏,L)>=VALUEWHEN(L2纏,L),VALUEWHEN(L1纏,L),0,1,VALUEWHEN(L1纏,L),BARSLAST(CROSS(BBB,0.5)),0),RGB(128,128,255),LINETHICK1;DRAWLINE3(ISLASTBAR&&VALUEWHEN(L1纏,L)<=VALUEWHEN(L2纏,L),VALUEWHEN(L2纏,L),0,1,VALUEWHEN(L2纏,L),BARSLAST(CROSS(BBB,0.5)),0),RGB(128,128,255),LINETHICK1;DRAWTEXT(ISLASTBAR&&VALUEWHEN(L1纏,L)>=VALUEWHEN(L2纏,L),VALUEWHEN(L1纏,L),'nbsp; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 筆樞下沿',RGB(128,128,255);DRAWTEXT(ISLASTBAR&&VALUEWHEN(L1纏,L)<=VALUEWHEN(L2纏,L),VALUEWHEN(L2纏,L),'nbsp; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 筆樞下沿',RGB(128,128,255);DRAWNUMBER(ISLASTBAR&&VALUEWHEN(L1纏,L)>=VALUEWHEN(L2纏,L),VALUEWHEN(L1纏,L),VALUEWHEN(L1纏,L)*(-1),2,RGB(128,128,255)),ALIGN0;DRAWNUMBER(ISLASTBAR&&VALUEWHEN(L1纏,L)<=VALUEWHEN(L2纏,L),VALUEWHEN(L2纏,L),VALUEWHEN(L2纏,L)*(-1),2,RGB(128,128,255)),ALIGN0;DRAWLINE3(ISLASTBAR&&VALUEWHEN(H1纏,H)>=VALUEWHEN(H2纏,H),VALUEWHEN(H2纏,H),0,1,VALUEWHEN(H2纏,H),BARSLAST(CROSS(BBB,0.5)),0),RGB(128,128,255),DOT;DRAWLINE3(ISLASTBAR&&VALUEWHEN(H1纏,H)<=VALUEWHEN(H2纏,H),VALUEWHEN(H1纏,H),0,1,VALUEWHEN(H1纏,H),BARSLAST(CROSS(BBB,0.5)),0),RGB(128,128,255),DOT;DRAWNUMBER(ISLASTBAR&&VALUEWHEN(H1纏,H)>=VALUEWHEN(H2纏,H),VALUEWHEN(H2纏,H),VALUEWHEN(H2纏,H)*(-1),2,RGB(128,128,255)),ALIGN0;DRAWNUMBER(ISLASTBAR&&VALUEWHEN(H1纏,H)<=VALUEWHEN(H2纏,H),VALUEWHEN(H1纏,H),VALUEWHEN(H1纏,H)*(-1),2,RGB(128,128,255)),ALIGN0;DRAWTEXT(ISLASTBAR&&VALUEWHEN(H1纏,H)>=VALUEWHEN(H2纏,H),VALUEWHEN(H2纏,H),'nbsp; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 筆樞上沿',RGB(128,128,255);DRAWTEXT(ISLASTBAR&&VALUEWHEN(H1纏,H)<=VALUEWHEN(H2纏,H),VALUEWHEN(H1纏,H),'nbsp; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 筆樞上沿',RGB(128,128,255);
M:=5;//M值需要大于等于5G:=MA(C,5);D:=MA(C,10);NNH:=BARSLAST(H=HHV(H,M)) ,NODRAW;NNL:=BARSLAST(L=LLV(L,M)) ,NODRAW;NN:=IF(REF(G,NNH)>REF(D,NNH) AND NNH<=M-3,NNH,IF(REF(G,NNL)<REF(D,NNL) AND NNL<=M-3,NNL,M-2)) ,NODRAW;NNN:=IF(ISLASTBAR AND NN>0,NN,M-2) ,NODRAW;H1:=REF(H,NNN)=HHV(H,M-1);L1:=REF(L,NNN)=LLV(L,M-1);FG01:=BACKSET(H1,NNN+1)>BACKSET(H1,NNN),NODRAW;//只設(shè)置前面第M-1個FD01:=BACKSET(L1,NNN+1)>BACKSET(L1,NNN) ,NODRAW;FG02:=FG01=FD01 AND G>D,NODRAW;FD02:=FG01=FD01 AND G<D,NODRAW;TTTT:=BARSLAST(FD01),NODRAW;FG0:=FG01 AND IF(FG02=1,H=HHV(H,BARSLAST(REF(FD01,1))+1),H=HHV(H,IF(BARSLAST(L=LLV(L,M))>=M-2,M-2,BARSLAST(FD01)))) AND FD02=0 ,NODRAW;FD0:=FD01 AND IF(FD02=1,L=LLV(L,BARSLAST(REF(FG01,1))+1),L=LLV(L,IF(BARSLAST(H=HHV(L,M))>=M-2,M-2,BARSLAST(FG01))))? AND FG02=0 ,NODRAW;//高低點間周期GT:=BARSLAST(FG0),NODRAW;DT:=BARSLAST(FD0),NODRAW;//第一次處理高低點間多余的點LLLL:=DT=0 AND REF(DT,1)<GT AND L>REF(L,REF(DT,1)+1),NODRAW;FG1:=BACKSET(REFX(GT,1)=0 AND GT<DT AND REFX(H,1)>=REF(H,GT),GT+1),NODRAW;FD1:=BACKSET(REFX(DT,1)=0 AND DT<GT AND REFX(L,1)<=REF(L,DT),DT+1),NODRAW;FG11:=IF(GT=0 AND REF(GT,1)<DT AND IF(REF(G,BARSLAST(L=LLV(L,M)))>REF(D,BARSLAST(L=LLV(L,M))),BARSLAST(L=LLV(L,M))<M-2,1) AND? H<REF(H,REF(GT,1)+1),1,0),NODRAW;FD11:=IF(DT=0 AND REF(DT,1)<GT AND IF(REF(G,BARSLAST(H=HHV(H,M)))<REF(D,BARSLAST(H=HHV(H,M))),BARSLAST(H=HHV(H,M))<M-2,1) AND L>REF(L,REF(DT,1)+1),1,0),NODRAW;//再次周期GT1:=BARSLAST(FG11<>1 AND FG1<>1 AND FG0),NODRAW;DT1:=BARSLAST(FD11<>1 AND FD1<>1 AND FD0),NODRAW;FD2:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)>LLV(L,GT1+M-2),DT1+1),NODRAW;FG2A:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)<=LLV(L,GT1+M-2) AND REF(H,GT1)>HHV(H,GT1+M-2),GT1+1),NODRAW;FG2B:=IF(GT1=0 AND DT1<4 AND REF(GT1,1)-DT1<4 AND REF(L,DT1)<=LLV(L,REF(GT1,1)+M-1) AND H>HHV(H,REF(GT1,1)+M-1),1,0),NODRAW;FG2:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)<HHV(H,DT1+M-2),GT1+1),NODRAW;FD2A:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)>=HHV(L,DT1+M-2) AND REF(L,DT1)>LLV(L,DT1+M-2),DT1+1),NODRAW;FD2B:=IF(DT1=0 AND GT1<4 AND REF(DT1,1)-GT1<4 AND REF(H,GT1)>=HHV(H,REF(DT1,1)+6) AND L>LLV(L,REF(DT1,1)+M-1),1,0),NODRAW;TTTTTT:= H<REF(H,REF(GT1,1)+1) AND DT1<4,NODRAW;HHHHHH:=REF(LLV(L,10),DT1),NODRAW;//前長后短;FG21:=IF(GT1=0 AND DT1<4 AND H<=REF(H,REF(GT1,1)+1)? ,1,0),NODRAW;FD21:=IF(DT1=0 AND GT1<4? AND L>=REF(L,REF(DT1,1)+1) ,1,0),NODRAW;//前短后長,前低后高（去低）;FD231:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND REF(L,DT1)>REF(LLV(L,10),DT1),DT1+1),NODRAW;FG23:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND? GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND (REF(H,GT1)<REF(HHV(H,13),GT1) OR REF(FD231,DT1)=0),GT1+1),NODRAW;//前短后長，去2;FG231:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND REF(H,GT1)<REF(HHV(H,10),GT1) ,GT1+1),NODRAW;FD23:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND ( REF(L,DT1)>REF(LLV(L,13),DT1) OR REF(FG231,GT1)=0),DT1+1),NODRAW;//前短后長，去3;FDD23:=REF(H,GT1)<REF(HHV(H,10),GT1) OR REF(FD23,DT1)=0,NODRAW;FD24:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)<HHV(H,GT1+3) AND REF(L,DT1)>LLV(L,DT1+5),DT1+1),NODRAW;FG24:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)>LLV(L,DT1+3) AND REF(H,GT1)<HHV(H,GT1+5),GT1+1),NODRAW;//做兩次高低點間多余的點GT2:=BARSLAST(FG21<>1 AND FG23<>1 AND FG231<>1 AND FG24<>1? ?AND FG2<>1 AND FG2A<>1 AND FG2B<>1 AND GT1=0),NODRAW;DT2:=BARSLAST(FD21<>1 AND FD23<>1 AND FD231<>1 AND FD24<>1? AND FD2<>1 AND FD2A<>1 AND FD2B<>1 AND DT1=0),NODRAW;FG3:=BACKSET(REFX(GT2,1)=0 AND GT2<DT2 AND REFX(H,1)>=REF(H,GT2),GT2+1),NODRAW;FD3:=BACKSET(REFX(DT2,1)=0 AND DT2<GT2 AND REFX(L,1)<=REF(L,DT2),DT2+1),NODRAW;FG31:=IF(GT2=0 AND REF(GT2,1)<DT2 AND H<REF(H,REF(GT2,1)+1),1,0),NODRAW;FD31:=IF(DT2=0 AND REF(DT2,1)<GT2 AND L>REF(L,REF(DT2,1)+1),1,0),NODRAW;GT3:=BARSLAST(GT2=0 AND FG3<>1 AND FG31<>1 ),NODRAW;DT3:=BARSLAST(DT2=0 AND? FD3<>1 AND FD31<>1),NODRAW;FG4:=BACKSET(REFX(GT3,1)=0 AND GT3<DT3 AND REFX(H,1)>=REF(H,GT3),GT3+1),NODRAW;FD4:=BACKSET(REFX(DT3,1)=0 AND DT3<GT3 AND REFX(L,1)<=REF(L,DT3),DT3+1),NODRAW;FG41:=IF(GT3=0 AND REF(GT3,1)<DT3 AND H<REF(H,REF(GT3,1)+1),1,0),NODRAW;FD41:=IF(DT3=0 AND REF(DT3,1)<GT3 AND L>REF(L,REF(DT3,1)+1),1,0),NODRAW;HHH:=GT3=0 AND FG31<>1 AND? FG3<>1,NODRAW;LLL:=DT3=0 AND FD31<>1 AND? FD3<>1,NODRAW;DRAWLINE1(HHH ,H,LLL,L,0),COLORGREEN,LINETHICK3;//綠色DRAWLINE1(LLL,L,HHH ,H,0),COLORRED,LINETHICK3;//紅色//最后一段畫線N1:=BARSLAST(HHH)+1;N2:=BARSLAST(LLL)+1;DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),REF(L,N2-1),N2-1,ISLASTBAR,H,0,0),COLORRED,LINETHICK3;//紅色DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),REF(H,N1-1),N1-1,ISLASTBAR,L,0,0),COLORGREEN,LINETHICK3;//綠色
?
?來源:程序化99
-
文華技術(shù)人員：
?保留不了的，如果要寫歷史的中樞，需要重新編寫。
纏論的編寫十分復雜，論壇不提供復雜思路的編寫，請理解。
打印本文
關(guān)閉窗口