咨詢內容：
麻煩老師通達信改博易版本
{參數-N:1/1000/75????P:1/100/5?????P1:1/100/10?????P10:1/100/30?????P20:1/100/20?????P30:1/100/30..}
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短壓5T:DRAWLINE(D1,H,F1,H,1),COLOR002222,DOTLINE;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支5T:DRAWLINE(D2,L,F2,L,1),COLOR003366,DOTLINE;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
長壓10T:DRAWLINE(DD1,H,FF1,H,1),COLOR003300,DOTLINE;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
長支10T:DRAWLINE(DD2,L,FF2,L,1),COLORFF3366,DOTLINE;
E1P:DRAWLINE(C=LLV(C,30),LOW,C=LLV(C,10) AND C>LLV(C,22),LLV(LOW,3),1),LINETHICK1,COLOR660066,DOTLINE;
E1PP:DRAWLINE(C=LLV(C,10),LOW,C=LLV(C,5) AND C>LLV(C,10),LLV(LOW,3),1),LINETHICK1,COLOR000066,DOTLINE;
日:=181;昨前:=74;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前),COLORBLUE,LINETHICK3;
N1:=20;
N2:=10;
N3:=5;
AA:=REF(H,N1)=HHV(H,2*N1+1);
QY:=BACKSET(AA,N1+1);
CC:=FILTER(QY,N1) AND H=HHV(H,N1+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DD10:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低點支撐:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLOR009999,DOTLINE;
AA60:=REF(L,P10)=LLV(L,2*P10+1);
BB60:=FILTER(AA60,P10);
CC60:=BACKSET(BB60,P10+1);
DD60:=FILTER(CC60,P10);
EE60:=BACKSET(ISLASTBAR,BARSLAST(DD60)+1);
FF60:=EE60>REF(EE60,1);
長支30:DRAWLINE(DD60,L,FF60,L,1),COLOR660033,DOTLINE;
{這一條為下降壓力線，如果放量突破，后期看高一線}
啟動壓力:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),COLOR009900,LINETHICK1,DOTLINE;
{這就是歪歪虎老師推薦的神奇趨勢線，上穿90進入頂部，下穿10進入底部};
STICKLINE(REF(L,1)>H,H,REF(L,1),15,0),COLOR222222;
STICKLINE(REF(H,1)<L,L,REF(H,1),15,0),COLOR222222;
AAAA:=CLOSE/REF(C,1)>=1.09;
STICKLINE(AAAA,L,H,0.1,0),COLORRED;
STICKLINE(AAAA,O,C,0.8,0),COLORYELLOW;
STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,1,0),COLORBLUE;
N:=10;
T1:=CONST(LLVBARS(LOW,N));
T1HIGH:=CONST(REF(HIGH,T1));
CCVV:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST((CURRBARSCOUNT >(CCVV+T1)) AND (HIGH>T1HIGH)));
T2HIGH:=CONST(REF(HIGH,T2));
T3:=CONST(BARSLAST((CURRBARSCOUNT >(CCVV+T2)) AND (HIGH>T2HIGH)));
T3HIGH:=CONST(REF(HIGH,T3));
必殺線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK3,COLORFF0099;
DRAWTEXT(ISLASTBAR, T3HIGH, ' 必殺線')LINETHICK1,COLORFF0099;
{精準線178448-WEN98編寫}
N10:=3;
L0:=0.00;{點位差參數}
{底精準線}
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
精準線首次:=L1 OR L2 OR L3 OR L4 OR L5;
精準左:=FILTER(精準線首次,N10) ;
天數:=BARSLAST(精準左);
LTS:=REF(L,天數);
精準右:=ABS(L-LTS)<=L0;
STICKLINE(精準左,L,L,30,-1),COLORMAGENTA;
{頂精準線178448-WEN98編寫}
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
精準線首次1:=G1 OR G2 OR G3 OR G4 OR G5;
精準左1:=FILTER(精準線首次1,N10) ;
天數1:=BARSLAST(精準左1);
HTS:=REF(H,天數1);
精準右1:=ABS(H-HTS)<=L0;
STICKLINE(精準左1,H,H,30,-1),COLORGREEN;
?
?
?來源:程序化99網（ www.tumamayizhan.com ）
博易技術人員：
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
DRAWLINE(D1,H,F1,H,0),COLOR002222,POINTDOT;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
DRAWLINE(D2,L,F2,L,0),COLOR003366,POINTDOT;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
DRAWLINE(DD1,H,FF1,H,0),COLOR003300,POINTDOT;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
DRAWLINE(DD2,L,FF2,L,0),COLORFF3366,POINTDOT;
DRAWLINE(C=LLV(C,30),LOW,C=LLV(C,10) AND C>LLV(C,22),LLV(LOW,3),0),LINETHICK1,COLOR660066,POINTDOT;
DRAWLINE(C=LLV(C,10),LOW,C=LLV(C,5) AND C>LLV(C,10),LLV(LOW,3),0),LINETHICK1,COLOR000066,POINTDOT;
日:=181;昨前:=74;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前),COLORBLUE,LINETHICK3;
N1:=20;
N2:=10;
N3:=5;
AA:=REF(H,N1)=HHV(H,2*N1+1);
QY:=BACKSET(AA,N1+1);
CC:=FILTER(QY,N1) AND H=HHV(H,N1+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,DATACOUNT-BARPOS,0);
DD10:=BARSLAST(CC1);
DDTS:=IF(CC1,DATACOUNT-BARPOS,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=DDTS1;
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=DDTS2;
DRAWLINE(DATACOUNT-BARPOS=DDCS2,L,DATACOUNT-BARPOS=DDCS1,L,0), COLOR009999,POINTDOT;
AA60:=REF(L,P10)=LLV(L,2*P10+1);
BB60:=FILTER(AA60,P10);
CC60:=BACKSET(BB60,P10+1);
DD60:=FILTER(CC60,P10);
EE60:=BACKSET(ISLASTBAR,BARSLAST(DD60)+1);
FF60:=EE60>REF(EE60,1);
DRAWLINE(DD60,L,FF60,L,0),COLOR660033,POINTDOT;
DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),0),COLOR009900,LINETHICK1,POINTDOT;
STICKLINE(REF(L,1)>H,H,REF(L,1),15,0),COLOR222222;
STICKLINE(REF(H,1)<L,L,REF(H,1),15,0),COLOR222222;
AAAA:=CLOSE/REF(C,1)>=1.09;
STICKLINE(AAAA,L,H,1,0),COLORRED;
STICKLINE(AAAA,O,C,8,0),COLORYELLOW;
STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,1,0),COLORBLUE;
N:=10;
T1:=LLVBARS(LOW,N);
T1HIGH:=REF(HIGH,T1);
CCVV:=DATACOUNT-BARPOS;
T2:=BARSLAST((DATACOUNT-BARPOS >(CCVV+T1) AND (HIGH>T1HIGH)));
T2HIGH:=REF(HIGH,T2);
T3:=BARSLAST((DATACOUNT-BARPOS >(CCVV+T2)) AND (HIGH>T2HIGH));
T3HIGH:=REF(HIGH,T3);
DRAWLINE(DATACOUNT-BARPOS=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK3,COLORFF0099;
DRAWTEXT(ISLASTBAR, T3HIGH, ' 必殺線'),LINETHICK1,COLORFF0099;
{精準線178448-WEN98編寫}
N10:=3;
L0:=0.00;{點位差參數}
{底精準線}
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
精準線首次:=L1 OR L2 OR L3 OR L4 OR L5;
精準左:=FILTER(精準線首次,N10) ;
天數:=BARSLAST(精準左);
LTS:=REF(L,天數);
精準右:=ABS(L-LTS)<=L0;
STICKLINE(精準左,L,L,30,1),COLORMAGENTA;
{頂精準線178448-WEN98編寫}
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
精準線首次1:=G1 OR G2 OR G3 OR G4 OR G5;
精準左1:=FILTER(精準線首次1,N10) ;
天數1:=BARSLAST(精準左1);
HTS:=REF(H,天數1);
精準右1:=ABS(H-HTS)<=L0;
STICKLINE(精準左1,H,H,30,1),COLORGREEN;
?
來源 程序化久久網
打印本文
關閉窗口