同花顺胡立阳地心引力公式-同花顺指标公式

以下是同花顺胡立阳地心引力公式源码

同花顺胡立阳地心引力公式源码：

   N:=5;

   EMA13:=EMA(C,13);

   MA30:=MA(C,30);

   MA72:=MA(C,72);

   地心引力:(MA30+MA72)/2,POINTDOT,COLORYELLOW,LINETHICK5;

   上引力:(MA30+MA72)/2*0.9,POINTDOT,COLORGREEN,LINETHICK5;

   下引力:(MA30+MA72)/2*1.1,POINTDOT,COLORRED,LINETHICK5;

   DRAWBAND(EMA13,RGB(95,95,95),MA30,RGB(0,0,0));

   EMA17:=EMA(C,17);

   主筹估算:=EMA(WINNER(C)*70,3);

   散筹估算:=EMA((WINNER((C)*1.1)-WINNER((C)*0.9))*70,3);

   筹码锁定:=散筹估算-主筹估算;

   动态底部:=EMA(IF(L<=LLV(L,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(L,1),0),99,1),0)*5,3);

   涨:=CROSS(主筹估算,筹码锁定);

   强:=CROSS(主筹估算,散筹估算);

   STICKLINE(涨,O,C,8,0),COLORYELLOW;

   STICKLINE(涨,O,H,0,0),COLORYELLOW;

   STICKLINE(涨,L,C,0,0),COLORYELLOW;

   STICKLINE(强,O,C,8,0),COLORMAGENTA;

   STICKLINE(强,O,H,0,0),COLORMAGENTA;

   STICKLINE(强,L,C,0,0),COLORMAGENTA;

   {黄金分割线}

   LHNH:=BARSLAST(REFX(CLOSE,1))+1;

   NNL:=BARSLAST(REFX(CLOSE,1))=2;

   AL:=BACKSET(NNL,HHVBARS(H,LHNH)+1);

   BL:=AL>REF(AL,1);

   AL2:=BACKSET(NNL,LLVBARS(L,LHNH)+1);

   BL2:=AL2>REF(AL2,1);

   前高:REF(H,BARSLAST(BL)),POINTDOT,COLORFF00FF,LINETHICK3;

   DRAWTEXT(NNL,前高,'前高：'+前高),COLORGREEN;

   前低:REF(L,BARSLAST(BL2)),POINTDOT,COLORGREEN,LINETHICK3;

   DRAWTEXT(NNL,前低*1.009,'前低：'+前低),COLORGREEN;

   FL1:((前高-前低)*0.191)+前低,POINTDOT,COLORFF7F93,LINETHICK3;

   DRAWTEXT(BARSLAST(BL)>BARSLAST(BL2)ANDNNL,FL1,'0.236：'+FL1),COLOR938C93;

   FL2:((前高-前低)*0.382)+前低,POINTDOT,COLOR5E8C93,LINETHICK3;

   DRAWTEXT(BARSLAST(BL)>BARSLAST(BL2)ANDNNL,FL2,'0.382：'+FL2),COLORGREEN;

   FL3:((前高-前低)*0.5)+前低,POINTDOT,COLOR00FFFF,LINETHICK4;

   DRAWTEXT(NNL,FL3,'0.5：'+FL3),COLOR918C93;

   FL4:((前高-前低)*0.618)+前低,POINTDOT,COLOR918C93,LINETHICK3;

   DRAWTEXT(BARSLAST(BL)>BARSLAST(BL2)ANDNNL,FL4,'0.618：'+FL4),COLORGREEN;

   FL5:((前高-前低)*0.809)+前低,POINTDOT,COLOR918C67,LINETHICK3;

   DRAWTEXT(BARSLAST(BL)>BARSLAST(BL2)ANDNNL,FL5,'0.764：'+FL5),COLORGREEN;

   PP:=MAX(BARSLAST(BL),BARSLAST(BL2))+1;

   K1:=PP-1;

   K2:=PP-3;

   K3:=PP-5;

   K4:=PP-8;

   K5:=PP-13;

   K6:=PP-21;

   K7:=PP-34;

   K8:=PP-55;

   K9:=PP-89;

   K10:=PP-144;

   K11:=PP-233;

   K12:=PP-377;

   STICKLINE(FILTER(C=REF(C,K1),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K2),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K3),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K4),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K5),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K6),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K7),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K8),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K9),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K10),1),1,0,1,0);

   STICKLINE(FILTER(C=REF(C,K11),1),1,0,1,0);

   DRAWTEXT(FILTER(C=REF(C,K1),0),(HHV(H,80)+LLV(L,80))/2,'1'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K2),0),(HHV(H,80)+LLV(L,80))/2,'3'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K3),0),(HHV(H,80)+LLV(L,80))/2,'5'),COLORGREEN,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K4),0),(HHV(H,80)+LLV(L,80))/2,'8'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K5),0),(HHV(H,80)+LLV(L,80))/2,'13'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K6),0),(HHV(H,80)+LLV(L,80))/2,'21转'),COLORGREEN,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K7),0),(HHV(H,80)+LLV(L,80))/2,'34'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K8),0),(HHV(H,80)+LLV(L,80))/2,'55'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K9),0),(HHV(H,80)+LLV(L,80))/2,'89'),COLORGREEN,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K10),0),(HHV(H,80)+LLV(L,80))/2,'144'),COLORRED,LINETHICK1;

   DRAWTEXT(FILTER(C=REF(C,K11),0),(HHV(H,80)+LLV(L,80))/2,'233'),COLORGREEN,LINETHICK1;

   A1:=REF(H,N)=HHV(H,2*N+1);

   B1:=FILTER(A1,N);

   C1:=BACKSET(B1,N+1);

   D1:=FILTER(C1,N)ORBARSTATUS=2;{高点}

   A2:=REF(L,N)=LLV(L,2*N+1);

   B2:=FILTER(A2,N);

   C2:=BACKSET(B2,N+1);

   D2:=FILTER(C2,N);{低点}

   E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}

   H1:=(D1ANDNOT(D2ANDE1>=E2))ORBARSTATUS=2ORBARSCOUNT(C)=1;

   L1:=(D2ANDNOT(D1ANDE1<E2));H2:=D1ANDNOT(D2ANDE1>=E2);

   X1:=REF(BARSLAST(H1),1)+1;F1:=BACKSET(H1ANDCOUNT(L1,X1)>0,LLVBARS

   (IF(L1,L,10000),X1));

   G1:=F1>REF(F1,1);I1:=BACKSET(G1,2);LD:=I1>REF(I1,1);{过滤后低点}

   L2:=LDORBARSTATUS=2ORBARSCOUNT(C)=1;

   X2:=REF(BARSLAST(L2),1)+1;F2:=BACKSET(L2ANDCOUNT(H2,X2)>0,HHVBARS

   (IF(H2,H,0),X2));

   G2:=F2>REF(F2,1);I2:=BACKSET(G2,2);HD:=I2>REF(I2,1);{过滤后高点}

   R1:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);S1:=R1>REF(R1,1);{前一高}

   T1:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);U1:=T1>REF(T1,1);{前一低}

   R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2);S2:=R2>REF(R2,1);{前二高}

   T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);U2:=T2>REF(T2,1);{前二低}

   T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2);U3:=T3>REF(T3,1);{前三低}

   T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2);U4:=T4>REF(T4,1);{前四低}

   R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2);S3:=R3>REF(R3,1);{前三高}

   R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2);S4:=R4>REF(R4,1);{前四高}

   短期压力:DRAWLINE(S2,H,S1,H,1),COLORRED,LINETHICK2;

   短期支撑:DRAWLINE(U2,L,U1,L,1),COLORGREEN,LINETHICK2;

   中期压力:DRAWLINE(S3,H,S2,H,1),COLORYELLOW,LINETHICK2;

   中期支撑:DRAWLINE(U3,L,U2,L,0),COLORGREEN,LINETHICK2;

   长期压力:DRAWLINE(S4,H,S3,H,1),COLORWHITE,LINETHICK2;

   长期支撑:DRAWLINE(U4,L,U3,L,0),COLORGREEN,LINETHICK2;

   DRAWICON(S1,H,10);

   DRAWICON(S2,H,10);

   DRAWICON(S3,H,10);

   DRAWICON(S4,H,10);

   地心引力线:(MA(C,30)+MA(C,72))/2;

   地心引力区1:地心引力线*1.1;

   地心引力区2:地心引力线*0.9;

   大盘指数:C;

   P1:=5;

   A1:=C>REF(C,4);

   NT:=BARSLASTCOUNT(A1);

   TJ11:=NT=9;

   TJ13:=ISLASTBARANDBETWEEN(NT,5,8);

   AY:=(BACKSET(TJ11>0,9)OR BACKSET(TJ13>0,NT))*NT;

   DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;

   DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN;

   B1:=C<REF(C,4);

   NT0:=BARSLASTCOUNT(B1);

   TJ21:=NT0=9;

   TJ23:=ISLASTBARANDBETWEEN(NT0,5,8);

   AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;

   DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF;

   DRAWTEXT(NT0=9,L*0.98,'9'),COLORGREEN;

   地心引力线:(MA(CLOSE,30)+MA(CLOSE,72))/2;

   D1:地心引力线*1.1;

   D2:地心引力线*0.9;

   PH:=TROUGHBARS(2,P1,1);

   LL:=HHV(H,PH);

   TS:=SUMBARS(TJ1,2);

   TJ:=PEAKBARS(2,P1,1)=1ANDTS>=PH;

   警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORYELLOW;

   PL:=BARSLAST(TJ);

   支持:IF(BARSLAST(TJ1),

   REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;

   压力:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;

同花顺胡立阳地心引力公式截图