咨詢內容：

請老師幫忙修改

N:=120;//參數N需自行定義
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
KT:=BARSLAST(CURRBARSCOUNT=N);
GD:=REFX1(IF(ISLASTBAR=1,HHV(H,KT),0),10000);//{高點}
DD:=REFX1(IF(ISLASTBAR=1,LLV(L,KT),0),10000);//{低點}
KJ:=GD-DD;//{高低點差值=分區高度}
GD4:=IF(CURRBARSCOUNT<=N/30+16,GD,NULL);
高:=IF(CURRBARSCOUNT<=N/30+16,GD,NULL),COLORWHITE,COLOR00FFFF,PRECIS0;
低:=IF(CURRBARSCOUNT<=N/30+16,DD,NULL),COLORWHITE,COLORFFFF00,PRECIS0;

高區:IF(CURRBARSCOUNT<=N+16,GD,NULL),COLORWHITE,DASH,COLOR004080,PRECIS0;
低區:IF(CURRBARSCOUNT<=N+16,DD,NULL),COLORWHITE,DASH,COLOR004080,PRECIS0;

壓力:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.809,NULL),COLORGREEN,COLOR00FF00,PRECIS0;
警示:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.618,NULL),COLOR00FFFF,PRECIS0;
突破:IF(CURRBARSCOUNT<=N/40+16,DD+KJ/2,NULL),COLORYELLOW,COLOR0000FF,PRECIS0;
強勢: IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.382,NULL),COLORFF00FF,PRECIS0;
支撐:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.191,NULL),COLORRED,COLOR00FFFF,PRECIS0;
低漲:IF(CURRBARSCOUNT<=N/40+16,(C/LLV(LOW,KT)-1)*100,NULL),RGB(0,128,255),COLOR0000FF,NODRAW,PRECIS0;
天數:BARSLAST(L=DD),COLORWHITE,NODRAW,PRECIS0;

FILLRGN(高>=壓力&&CURRBARSCOUNT>=16,高,壓力,RGB(200,200,0));
FILLRGN(高<壓力&&CURRBARSCOUNT>=16,高,壓力,RGB(0,0,0));
FILLRGN(壓力>=警示&&CURRBARSCOUNT>=16,壓力,警示,RGB(0,190,0));
FILLRGN(壓力<警示&&CURRBARSCOUNT>=16,壓力,警示,RGB(0,0,0));
FILLRGN(警示>=突破&&CURRBARSCOUNT>=16,警示,突破,RGB(220,120,0));
FILLRGN(警示<突破&&CURRBARSCOUNT>=16,警示,突破,RGB(0,0,0));
FILLRGN(突破>=強勢&&CURRBARSCOUNT>=16,突破,強勢,RGB(120,0,120));
FILLRGN(突破<強勢&&CURRBARSCOUNT>=16,突破,強勢,RGB(0,0,0));
FILLRGN(強勢>=支撐&&CURRBARSCOUNT>=16,強勢,支撐,RGB(120, 0,0));
FILLRGN(強勢<支撐&&CURRBARSCOUNT>=16,強勢,支撐,RGB(0,0,0));
FILLRGN(支撐>=低&&CURRBARSCOUNT>=16,支撐,低,RGB(80,80,80));
FILLRGN(支撐<低&&CURRBARSCOUNT>=16,支撐,低,RGB(0,0,0));

//{STICKLINE1(CURRBARSCOUNT=N/30,GD,DD,0,0),COLORGREEN;
//STICKLINE1(CURRBARSCOUNT=1,GD,DD,0,0),COLORGREEN;}
STICKLINE1(CURRBARSCOUNT<=N/30,支撐,支撐,14,0),COLORFF00FF;
STICKLINE1(CURRBARSCOUNT<=N/30,強勢,強勢,14,0),COLORFF00FF;
STICKLINE1(CURRBARSCOUNT<=N/30,突破,突破,14,0),COLORABABAB;
STICKLINE1(CURRBARSCOUNT<=N/30,警示,警示,14,0),COLOR00FFFF;
STICKLINE1(CURRBARSCOUNT<=N/30,壓力,壓力,14,0),COLOR00FFFF;

DRAWTEXT(CURRBARSCOUNT=N/40+16,高,'高位:809'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,壓力,'壓力:681'),COLORMAGENTA,FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,警示,'警示:500'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,強勢,'強勢:382'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,支撐,'支撐:191'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,低,'低位:000'),FONTSIZE20,ALIGN2,VALIGN1;
M:=BARSLAST(CURRBARSCOUNT=N);
平衡:=IF(CURRBARSCOUNT<=N,DD+KJ/2,NULL),COLORWHITE,DOT,COLOR004080,PRECIS0;
CD:=CURRBARSCOUNT,NODRAW;
STICKLINE1(CD=46,HHV(高區,60),LLV(低區,60),1,0),COLORBLACK,COLOR004080;
STICKLINE1(CD=120,HHV(高區,60),LLV(低區,60),1,0),COLORBLUE,COLOR004080;
STICKLINE1(CD=1,HHV(高區,60),LLV(低區,60),0.1,0),RGB(0,0,0),COLOR004080;

?

?來源:程序化99網（ m.weiqiv.net.cn ）

博易技術人員： N:=120;//參數N需自行定義
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
CURRBARSCOUNT1:=DATACOUNT-BARPOS-1;
KT:=BARSLAST(CURRBARSCOUNT=N);
GD:=REFX(IF(ISLASTBAR=1,HHV(H,KT),0),CURRBARSCOUNT1);//{高點}
DD:=REFX(IF(ISLASTBAR=1,LLV(L,KT),0),CURRBARSCOUNT1);//{低點}
KJ:=GD-DD;//{高低點差值=分區高度}
GD4:=IF(CURRBARSCOUNT<=N/30+16,GD,DRAWNULL);
高:=IF(CURRBARSCOUNT<=N/30+16,GD,DRAWNULL),COLORWHITE,COLOR00FFFF,PRECIS0;
低:=IF(CURRBARSCOUNT<=N/30+16,DD,DRAWNULL),COLORWHITE,COLORFFFF00,PRECIS0;

高區:IF(CURRBARSCOUNT<=N+16,GD,DRAWNULL),COLORWHITE,DASH,COLOR004080,PRECIS0;
低區:IF(CURRBARSCOUNT<=N+16,DD,DRAWNULL),COLORWHITE,DASH,COLOR004080,PRECIS0;

壓力:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.809,DRAWNULL),COLORGREEN,COLOR00FF00,PRECIS0;
警示:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.618,DRAWNULL),COLOR00FFFF,PRECIS0;
突破:IF(CURRBARSCOUNT<=N/40+16,DD+KJ/2,DRAWNULL),COLORYELLOW,COLOR0000FF,PRECIS0;
強勢: IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.382,DRAWNULL),COLORFF00FF,PRECIS0;
支撐:IF(CURRBARSCOUNT<=N/40+16,DD+KJ*0.191,DRAWNULL),COLORRED,COLOR00FFFF,PRECIS0;
低漲:IF(CURRBARSCOUNT<=N/40+16,(C/LLV(LOW,KT)-1)*100,DRAWNULL),COLORFF8000,COLOR0000FF,NODRAW,PRECIS0;
天數:BARSLAST(L=DD),COLORWHITE,NODRAW,PRECIS0;

FILLRGN(高>=壓力&&CURRBARSCOUNT>=16,高,壓力),COLOR00C8C8;
FILLRGN(高<壓力&&CURRBARSCOUNT>=16,高,壓力),COLOR000000;
FILLRGN(壓力>=警示&&CURRBARSCOUNT>=16,壓力,警示),COLOR00BE00;
FILLRGN(壓力<警示&&CURRBARSCOUNT>=16,壓力,警示),COLOR000000;
FILLRGN(警示>=突破&&CURRBARSCOUNT>=16,警示,突破),COLOR0078DC;
FILLRGN(警示<突破&&CURRBARSCOUNT>=16,警示,突破),COLOR000000;
FILLRGN(突破>=強勢&&CURRBARSCOUNT>=16,突破,強勢),COLOR780078;
FILLRGN(突破<強勢&&CURRBARSCOUNT>=16,突破,強勢),COLOR000000;
FILLRGN(強勢>=支撐&&CURRBARSCOUNT>=16,強勢,支撐),COLOR000078;
FILLRGN(強勢<支撐&&CURRBARSCOUNT>=16,強勢,支撐),COLOR000000;
FILLRGN(支撐>=低&&CURRBARSCOUNT>=16,支撐,低),COLOR505050;
FILLRGN(支撐<低&&CURRBARSCOUNT>=16,支撐,低),COLOR000000;

//{STICKLINE1(CURRBARSCOUNT=N/30,GD,DD,0,0),COLORGREEN;
//STICKLINE1(CURRBARSCOUNT=1,GD,DD,0,0),COLORGREEN;}
STICKLINE(CURRBARSCOUNT<=N/30,支撐,支撐,14,0),COLORFF00FF;
STICKLINE(CURRBARSCOUNT<=N/30,強勢,強勢,14,0),COLORFF00FF;
STICKLINE(CURRBARSCOUNT<=N/30,突破,突破,14,0),COLORABABAB;
STICKLINE(CURRBARSCOUNT<=N/30,警示,警示,14,0),COLOR00FFFF;
STICKLINE(CURRBARSCOUNT<=N/30,壓力,壓力,14,0),COLOR00FFFF;

DRAWTEXT(CURRBARSCOUNT=N/40+16,高,'高位:809'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,壓力,'壓力:681'),COLORMAGENTA,FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,警示,'警示:500'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,強勢,'強勢:382'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,支撐,'支撐:191'),FONTSIZE20,ALIGN2,VALIGN1;
DRAWTEXT(CURRBARSCOUNT=N/40+16,低,'低位:000'),FONTSIZE20,ALIGN2,VALIGN1;
M:=BARSLAST(CURRBARSCOUNT=N);
平衡:=IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLORWHITE,COLOR004080,PRECIS0;
CD:=CURRBARSCOUNT,NODRAW;
STICKLINE(CD=46,HHV(高區,60),LLV(低區,60),1,0),COLORBLACK,COLOR004080;
STICKLINE(CD=120,HHV(高區,60),LLV(低區,60),1,0),COLORBLUE,COLOR004080;
STICKLINE(CD=1,HHV(高區,60),LLV(低區,60),1,0),COLOR000000,COLOR004080; 來源 程序化久久網