格式不對，幫我改一下
作者：文華財經 來源：cxh99.com 發布時間：2023年10月21日
-
咨詢內容：
?EM:=20;
EMM:=40;
N1:=20;
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,?#39,0);
{箱體主圖}
{一、箱體部分--支撐到波浪頂畫箱體}
{1、波浪高低點}
TY:=H;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(H,BARSLAST(HD));
B:=REF(H,BARSLAST(LD));
T1:=BARSLAST(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪頂:IF(T1,A,A),COLORGREEN,POINTDOT,LINETHICK1;
DRAWNUMBER(波浪頂!=REF(波浪頂,1),H,波浪頂),COLORF00FF0;
STICKLINE(T1,A,A,9,0){,POINTDOT},COLORF00FF0,LINETHICK1;
波浪底:=IF(T2,B,B),COLORGREEN{,POINTDOT},LINETHICK1;
STICKLINE(T2,B,B,9,0){,POINTDOT},COLORCYAN,LINETHICK1;
{2、支撐部分1}
QA12:=REF(CLOSE,6)=LLV(CLOSE,2*6+1);
QB12:=BACKSET(QA12,6+1);
QC12:=FILTER(QB12,6) AND CLOSE=LLV(CLOSE,6+1);
QD12:=BARSLAST(QC12);
QE12:=IF(QC12,CURRBARSCOUNT,0);
QF12:=IF(QD12,REF(QE12,QD12),QE12);
QG12:=CONST(QF12);
支撐1:=DRAWLINE(CURRBARSCOUNT=QG12,CLOSE,ISLASTBAR,REF(CLOSE,QG12-1),1),COLOR00FF00,LINETHICK1;?
DRAWNUMBER(支撐1!=REF(支撐1,1),C,支撐1),COLOR00FF00;
DRAWNUMBER(ISLASTBAR,支撐1,支撐1),COLOR00FF00;
{3、支撐部分2}
QA14:=REF(CLOSE,3)=LLV(CLOSE,2*3+1);
QB14:=BACKSET(QA14,3+1);
QC14:=FILTER(QB14,3) AND CLOSE=LLV(CLOSE,3+1);
QD14:=BARSLAST(QC14);
QE14:=IF(QC14,CURRBARSCOUNT,0);
QF14:=IF(QD14,REF(QE14,QD14),QE14);
QG14:=CONST(QF14);
支撐2:=DRAWLINE(CURRBARSCOUNT=QG14,CLOSE,ISLASTBAR,REF(CLOSE,QG14-1),1),COLOR00FF00,LINETHICK1;?
{DRAWNUMBER(支撐2!=REF(支撐2,1),L,支撐2),COLOR00FF00;};
STICKLINE(C>支撐1,支撐1,波浪頂,15,1),COLOR005599,LINETHICK2;{箱體畫框}
STICKLINE(C>支撐2,支撐2,波浪頂,5,1),COLOR005599,LINETHICK2;{箱體畫框}
STICKLINE(C>支撐1,支撐1,(波浪頂+支撐1)/2,15,1),COLOR005599,LINETHICK2;{箱體畫框}
{二、箱體部分--支撐到頸線畫箱體}
QA11:=REF(CLOSE,6)=HHV(CLOSE,2*6+1);
QB11:=BACKSET(QA11,6+1);
QC11:=FILTER(QB11,6) AND CLOSE=HHV(CLOSE,6+1);
QD11:=BARSLAST(QC11);
QE11:=IF(QC11,CURRBARSCOUNT,0);
QF11:=IF(QD11,REF(QE11,QD11),QE11);
QG11:=CONST(QF11);
頸線2:DRAWLINE(CURRBARSCOUNT=QG11,CLOSE,ISLASTBAR,REF(C,QG11-1),1),COLORFFDD00,LINETHICK1;?
STICKLINE(C>支撐1,支撐1,頸線2,5,1),COLORFFAA33;{箱體畫框}
STICKLINE(C>支撐1,支撐1,(頸線2+支撐1)/2,5,1),COLORFFAA33;{箱體畫框}
DRAWKLINE(H,O,L,C);?
DRAWNUMBER(頸線2!=REF(頸線2,1),C,頸線2),COLOR00FF00;
DRAWNUMBER(ISLASTBAR,波浪頂,波浪頂),COLOR005599;
DRAWNUMBER(ISLASTBAR,(波浪頂+支撐1)/2,(波浪頂+支撐1)/2),COLOR005599;
DRAWNUMBER(ISLASTBAR,頸線2,頸線2),COLORFFAA33;
DRAWNUMBER(ISLASTBAR,(頸線2+支撐1)/2,(頸線2+支撐1)/2),COLORFFAA33;
{三、箱體部分--過線放量買到支撐1畫箱體}
T1B:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T1B));
CCC:=CONST(CURRBARSCOUNT);
T2B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T1B AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T2B));
T3B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T2B AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T3B));
搶錢10:DRAWLINE(CURRBARSCOUNT=T3B+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORYELLOW,LINETHICK1;{,LINETHICK2,COLOR0000FF;}
DRAWTEXT(ISLASTBAR, T3HIGH, '線'LINETHICK1,COLORYELLOW;
DRAWNUMBER(搶錢10!=REF(搶錢10,1),H,搶錢10),COLORYELLOW;
STICKLINE(C>支撐1,(搶錢10+支撐1)/2,(搶錢10+支撐1)/2,5,1),COLORYELLOW;{箱體畫框};
?
DRAWGBK(C>0,RGB(0,0,0),RGB(00,0,0),0,'M'0);DRAWKLINE(H,O,L,C);{ 原文鏈接：HTTP://WWW.70822.COM/SOFT/SORT013/SORT05/DOWN-159483.HTML };
?
?來源:程序化99
-
文華技術人員：
?參考：
?EM:=20;
EMM:=40;
N1:=20;
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
{箱體主圖}
{一、箱體部分--支撐到波浪頂畫箱體}
{1、波浪高低點}
TY:=H;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(H,BARSLAST(HD));
B:=REF(H,BARSLAST(LD));
T1:=BARSLAST(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪頂:IF(T1,A,A),COLORGREEN,POINTDOT,LINETHICK1;
DRAWNUMBER1(波浪頂=REF(波浪頂,1),H,波浪頂,2),COLORF00FF0;
STICKLINE(T1,A,A,9,0){,POINTDOT},COLORF00FF0,LINETHICK1;
波浪底:=IF(T2,B,B),COLORGREEN{,POINTDOT},LINETHICK1;
STICKLINE(T2,B,B,9,0){,POINTDOT},COLORCYAN,LINETHICK1;
{2、支撐部分1}
QA12:=REF(CLOSE,6)=LLV(CLOSE,2*6+1);
QB12:=BACKSET(QA12,6+1);
QC12:=FILTER(QB12,6) AND CLOSE=LLV(CLOSE,6+1);
QD12:=BARSLAST(QC12);
QE12:=IF(QC12,CURRBARSCOUNT,0);
QF12:=IF(QD12,REF(QE12,QD12),QE12);
QG12:=REFX1(QF12,10000);
支撐1:=TRENDLINES(CURRBARSCOUNT=QG12,CLOSE,ISLASTBAR,REF(CLOSE,QG12-1)),COLOR00FF00,LINETHICK1;?
DRAWNUMBER1(支撐1=REF(支撐1,1),C,支撐1,2),COLOR00FF00;
DRAWNUMBER1(ISLASTBAR,支撐1,支撐1,2),COLOR00FF00;
{3、支撐部分2}
QA14:=REF(CLOSE,3)=LLV(CLOSE,2*3+1);
QB14:=BACKSET(QA14,3+1);
QC14:=FILTER(QB14,3) AND CLOSE=LLV(CLOSE,3+1);
QD14:=BARSLAST(QC14);
QE14:=IF(QC14,CURRBARSCOUNT,0);
QF14:=IF(QD14,REF(QE14,QD14),QE14);
QG14:=REFX1(QF14,10000);
支撐2:=TRENDLINES(CURRBARSCOUNT=QG14,CLOSE,ISLASTBAR,REF(CLOSE,QG14-1)),COLOR00FF00,LINETHICK1;?
STICKLINE1(C>支撐1,支撐1,波浪頂,15,1),COLOR005599,LINETHICK2;
STICKLINE1(C>支撐2,支撐2,波浪頂,5,1),COLOR005599;
STICKLINE1(C>支撐1,支撐1,(波浪頂+支撐1)/2,15,1),COLOR005599,LINETHICK2;
QA11:=REF(CLOSE,6)=HHV(CLOSE,2*6+1);
QB11:=BACKSET(QA11,6+1);
QC11:=FILTER(QB11,6) AND CLOSE=HHV(CLOSE,6+1);
QD11:=BARSLAST(QC11);
QE11:=IF(QC11,CURRBARSCOUNT,0);
QF11:=IF(QD11,REF(QE11,QD11),QE11);
QG11:=REFX1(QF11,10000);
頸線2:TRENDLINES(CURRBARSCOUNT=QG11,CLOSE,ISLASTBAR,REF(C,QG11-1)),COLORFFDD00,LINETHICK1;?
STICKLINE(C>支撐1,支撐1,頸線2,5,1),COLORFFAA33;
STICKLINE(C>支撐1,支撐1,(頸線2+支撐1)/2,5,1),COLORFFAA33;
DRAWKLINE1(H,O,L,C);?
DRAWNUMBER1(頸線2=REF(頸線2,1),C,頸線2,2),COLOR00FF00;
DRAWNUMBER1(ISLASTBAR,波浪頂,波浪頂,2),COLOR005599;
DRAWNUMBER1(ISLASTBAR,(波浪頂+支撐1)/2,(波浪頂+支撐1)/2,2),COLOR005599;
DRAWNUMBER1(ISLASTBAR,頸線2,頸線2,2),COLORFFAA33;
DRAWNUMBER1(ISLASTBAR,(頸線2+支撐1)/2,(頸線2+支撐1)/2,2),COLORFFAA33;
{三、箱體部分--過線放量買到支撐1畫箱體}
T1B:=REFX1(LLVBARS(LOW,10),10000);
T1HIGH:=REFX1(REF(HIGH,T1B),10000);
CCC:=REFX1(CURRBARSCOUNT,10000);
T2B:=REFX1(BARSLAST(CURRBARSCOUNT>CCC+T1B AND H>T1HIGH),10000);
T2HIGH:=REFX1(REF(HIGH,T2B),10000);
T3B:=REFX1(BARSLAST(CURRBARSCOUNT>CCC+T2B AND HIGH>T2HIGH),10000);
T3HIGH:=REFX1(REF(HIGH,T3B),10000);
搶錢10:TRENDLINES(CURRBARSCOUNT=T3B+1, T3HIGH, ISLASTBAR, T3HIGH),COLORYELLOW,LINETHICK1;
DRAWTEXT(ISLASTBAR, T3HIGH, '線',COLORYELLOW;
DRAWNUMBER1(搶錢10=REF(搶錢10,1),H,搶錢10,2),COLORYELLOW;
STICKLINE(C>支撐1,(搶錢10+支撐1)/2,(搶錢10+支撐1)/2,5,1),COLORYELLOW;
DRAWGBK(C>0,RGB(0,0,0),RGB(00,0,0),0);
DRAWKLINE1(H,O,L,C);
打印本文
關閉窗口