[通达信指标]江恩系列4 甘氏线

NN1:=180;

NN2:=5;

DRAWKLINE(H,O,L,C);

LL:=800;

HH:=800;

SS1:=1;

SS2:=1;

SS3:=1;

PURC:=CONST(FINDHIGH(H,0,HH*10,1));

PLZ:=CONST(BARSLAST(PURC=H))+1;

HHX:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));

QQT:=CONST(FINDLOW(L,0,LL*10,1));

PLL:=CONST(BARSLAST(QQT=L))+1;

LLX:=CONST(IF(PLL=1,L,REF(L,PLL-1)));

ATM:=SS1=2 OR SS1=2;

QTM:=SS1=1 OR SS1=1;

BTM:=SS1=1 OR SS1=1 OR SS1=1;

AAZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.809),DRAWNULL);

ABZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.5),DRAWNULL);

ACZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.618),DRAWNULL);

ADZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.382),DRAWNULL);

AEZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.236),DRAWNULL);

AFZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1),DRAWNULL);

AGZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.809),DRAWNULL);

AHZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.5),DRAWNULL);

AIZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.618),DRAWNULL);

AJZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.382),DRAWNULL);

AKZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.236),DRAWNULL);

ALZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2),DRAWNULL);

AMZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.236),DRAWNULL);

ANZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.382),DRAWNULL);

AOZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.5),DRAWNULL);

APZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.618),DRAWNULL);

AQZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.809),DRAWNULL);

ARZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3),DRAWNULL);

ASZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)),DRAWNULL);

HXCS1:=CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=ADZ

OR CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AFZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AHZ

OR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=ALZ

OR CURRBARSCOUNT=AMZ OR CURRBARSCOUNT=ANZ OR CURRBARSCOUNT=AOZ

OR CURRBARSCOUNT=APZ OR CURRBARSCOUNT=AQZ OR CURRBARSCOUNT=ARZ OR CURRBARSCOUNT=ASZ;

QAZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/8),DRAWNULL);

QBZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/8),DRAWNULL);

QCZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3/8),DRAWNULL);

QDZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*4/3),DRAWNULL);

QEZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/8),DRAWNULL);

QGZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*6/8),DRAWNULL);

QHZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/8),DRAWNULL);

QIZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*9/8),DRAWNULL);

QJZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/3),DRAWNULL);

QKZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/3),DRAWNULL);

QMZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*10/8),DRAWNULL);

QNZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*11/8),DRAWNULL);

QOZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/3),DRAWNULL);

QPZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*13/8),DRAWNULL);

QQZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*14/8),DRAWNULL);

QRZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*15/8),DRAWNULL);

QSZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*17/8),DRAWNULL);

QTZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*18/8),DRAWNULL);

QUZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*19/8),DRAWNULL);

QVZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*21/8),DRAWNULL);

QWZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*22/8),DRAWNULL);

QXZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*23/8),DRAWNULL);

QYZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/3),DRAWNULL);

QZZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*8/3),DRAWNULL);

HXCS2:=CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QCZ

OR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QGZ

OR CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QJZ

OR CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QNZ

OR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QQZ

OR CURRBARSCOUNT=QRZ

OR CURRBARSCOUNT=QSZ OR CURRBARSCOUNT=QTZ OR CURRBARSCOUNT=QUZ

OR CURRBARSCOUNT=QVZ OR CURRBARSCOUNT=QWZ OR CURRBARSCOUNT=QXZ

OR CURRBARSCOUNT=QYZ OR CURRBARSCOUNT=QZZ ;

STICKLINE(HXCS1 OR HXCS2 ,HHX,LLX,0,0),COLORYELLOW;

DRAWKLINE(H,O,L,C);

IF(SS2=5 AND SS1=5,DRAWNULL,HHX),COLORYELLOW;

IF(SS2=5 AND SS1=5,DRAWNULL,LLX),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QSZ,HHX*0.98,’1/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QTZ,HHX*0.98,’2/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QCZ OR CURRBARSCOUNT=QNZ OR CURRBARSCOUNT=QUZ,HHX*0.98,’3/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QVZ,HHX*0.98,’5/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QGZ OR CURRBARSCOUNT=QQZ OR CURRBARSCOUNT=QWZ,HHX*0.98,’6/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QRZ OR CURRBARSCOUNT=QXZ,HHX*0.98,’7/8′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QJZ OR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QYZ,HHX*0.98,’1/3′),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QZZ,HHX*0.98,’2/3′),COLORYELLOW;

HDAY:=600;

LDAY:=600;

TIAODDIAND:=3;

CURR:=CURRBARSCOUNT;

TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));

GTT:=CONST(BARSLAST(TCH=H))+1;

SXKKH:=CONST(IF(GTT=1,H,REF(H,GTT-1)));

BCL:=CONST(FINDLOW(L,0,LDAY*10,1));

DTT:=CONST(BARSLAST(BCL=L))+1;

SXDDL:=CONST(IF(DTT=1,L,REF(L,DTT-1)));

DDDIAND:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SXDDL)+1));

KKDIAND:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SXKKH)+1));

ZUIDI:=IF(TIAODDIAND=1,KKDIAND,IF(TIAODDIAND=2,DDDIAND,IF(TIAODDIAND=3,DDDIAND,KKDIAND)));

LXIELV:=70/IF(C<300,1000,10);

TIAOZHENG:=IF(TIAODDIAND=1,KKDIAND,IF(TIAODDIAND=2,DDDIAND,IF(TIAODDIAND=3,KKDIAND,DDDIAND)));

HXIELV:=70/IF(C<300,1000,10);

K:=(SXKKH-SXDDL)/(IF(KKDIAND>=DDDIAND,KKDIAND,DDDIAND)-IF(KKDIAND>=DDDIAND,DDDIAND,KKDIAND));

XXHH:=IF(SXDDL+CONST(LXIELV*4.00)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*4.00)*ZUIDI,DRAWNULL);

XXHH0:=IF(SXDDL+CONST(LXIELV*2.00)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*2.00)*ZUIDI,DRAWNULL);

XXHH1:=IF(SXDDL+CONST(LXIELV*1.5)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*1.5)*ZUIDI,DRAWNULL);

XXHH2:=IF(SXDDL+CONST(LXIELV*1.00)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*1.000)*ZUIDI,DRAWNULL);

XXHH3:=IF(SXDDL+CONST(LXIELV*0.70)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.70)*ZUIDI,DRAWNULL);

XXHH4:=IF(SXDDL+CONST(LXIELV*0.50)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.50)*ZUIDI,DRAWNULL);

XXHH5:=IF(SXDDL+CONST(LXIELV*0.365)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.365)*ZUIDI,DRAWNULL);

XXHH6:=IF(SXDDL+CONST(LXIELV*0.250)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.250)*ZUIDI,DRAWNULL);

XXHH7:=IF(SXDDL+CONST(LXIELV*0.165)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.165)*ZUIDI,DRAWNULL);

XXHH8:=IF(SXDDL+CONST(LXIELV*0.123)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.123)*ZUIDI,DRAWNULL);

XXHH9:=IF(SXDDL+CONST(LXIELV*0.06)*ZUIDI>=SXDDL,SXDDL+CONST(LXIELV*0.06)*ZUIDI,DRAWNULL);

IF(XXHH9<=SXKKH*1.05,XXHH9,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH8<=SXKKH*1.05,XXHH8,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH7<=SXKKH*1.05,XXHH7,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH6<=SXKKH*1.05,XXHH6,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH5<=SXKKH*1.05,XXHH5,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH4<=SXKKH*1.05,XXHH4,DRAWNULL),COLOR0000FF,COLORYELLOW;

IF(XXHH3<=SXKKH*1.05,XXHH3,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH2<=SXKKH*1.05,XXHH2,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH1<=SXKKH*1.05,XXHH1,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH0<=SXKKH*1.05,XXHH0,DRAWNULL),COLORAA00AA,COLORRED;

IF(XXHH<=SXKKH*1.05,XXHH,DRAWNULL),COLORAA00AA,COLORRED;

XXLL:=IF(SXKKH-CONST(HXIELV*4.00)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*4.00)*TIAOZHENG,DRAWNULL);

XXLL0:=IF(SXKKH-CONST(HXIELV*2.00)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*2.00)*TIAOZHENG,DRAWNULL);

XXLL1:=IF(SXKKH-CONST(HXIELV*1.500)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*1.500)*TIAOZHENG,DRAWNULL);

XXLL2:=IF(SXKKH-CONST(HXIELV*1.000)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*1.000)*TIAOZHENG,DRAWNULL);

XXLL3:=IF(SXKKH-CONST(HXIELV*0.70)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.70)*TIAOZHENG,DRAWNULL);

XXLL4:=IF(SXKKH-CONST(HXIELV*0.50)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.50)*TIAOZHENG,DRAWNULL);

XXLL5:=IF(SXKKH-CONST(HXIELV*0.365)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.365)*TIAOZHENG,DRAWNULL);

XXLL6:=IF(SXKKH-CONST(HXIELV*0.250)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.250)*TIAOZHENG,DRAWNULL);

XXLL7:=IF(SXKKH-CONST(HXIELV*0.165)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.165)*TIAOZHENG,DRAWNULL);

XXLL8:=IF(SXKKH-CONST(HXIELV*0.123)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.123)*TIAOZHENG,DRAWNULL);

XXLL9:=IF(SXKKH-CONST(HXIELV*0.06)*TIAOZHENG<=SXKKH,SXKKH-CONST(HXIELV*0.06)*TIAOZHENG,DRAWNULL);

IF(XXLL9>=SXDDL*0.95,XXLL9,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL8>=SXDDL*0.95,XXLL8,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL7>=SXDDL*0.95,XXLL7,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL6>=SXDDL*0.95,XXLL6,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL5>=SXDDL*0.95,XXLL5,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL4>=SXDDL*0.95,XXLL4,DRAWNULL),COLOR0000FF,COLORYELLOW;

IF(XXLL3>=SXDDL*0.95,XXLL3,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL2>=SXDDL*0.95,XXLL2,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL1>=SXDDL*0.95,XXLL1,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL0>=SXDDL*0.95,XXLL0,DRAWNULL),COLORAAAAAA,COLORGREEN;

IF(XXLL>=SXDDL*0.95,XXLL,DRAWNULL),COLORAAAAAA,COLORGREEN;