幾何壓力支撐 {主圖指標 公式、源碼 演示圖}[通達信公式]

相關標簽: 博弈大師壓力支撐源碼 、 壓力支撐指標源碼 、 支撐壓力源碼 、 主圖支撐壓力指標 、 支撐壓力 彩k主圖 、 幾何貼圖 、 支撐位壓力位指標源碼 、 丁丁五線主圖指標源碼 、 通天心主圖指標源碼 、

幾何壓力支撐 {主圖，源碼，貼圖}
 

說明：昨日打醬油路過看看何耀東童靴的（分享真正的牛圖新手。高手都可以用的）帖子，隨手改改。
通達信公式指標 CXH99.COM 俺加點味精就變原創啦，發給大家分享，祝大家周末快樂！

源碼：{幾何壓力支撐，p：2，4，3}
 

N:=POW(2,P);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
FF:=CONST(REF(C,1));
AA:=IF((FF < 100),FF,(FF / 100));
A:=INTPART(((N * (LOG(AA) / LOG(2))) + 1));
Y1:=(A/N);
Y2:=((A+1 ) / N);
Y3:=((A+2 ) / N);
Z1:=((A-1) / N);{第一個支撐}
Z2:=((A-2) / N);
Z3:=((A-3) / N);
ZC1:=IF((FF > 100),(POW(2,Z1) * 100),POW(2,Z1));
ZC2:=IF((FF > 100),(POW(2,Z2) * 100),POW(2,Z2));
ZC3:=IF((FF > 100),(POW(2,Z3) * 100),POW(2,Z3));
YL1:=IF((FF > 100),(POW(2,Y1) * 100),POW(2,Y1));
YL2:=IF((FF > 100),(POW(2,Y2) * 100),POW(2,Y2));
YL3:=IF((FF > 100),(POW(2,Y3) * 100),POW(2,Y3));
支撐一:IF(CURRBARSCOUNT<=50,ZC1,DRAWNULL),COLOR00F24F;
支撐二:IF(CURRBARSCOUNT<=50,ZC2,DRAWNULL),COLORWHITE,POINTDOT;
{支撐三:IF(CURRBARSCOUNT<=50,ZC3,DRAWNULL),COLORWHITE,POINTDOT;}
壓力一:IF(CURRBARSCOUNT<=50,YL1,DRAWNULL),COLOR05DDFC;
壓力二:IF(CURRBARSCOUNT<=50,YL2,DRAWNULL),COLORWHITE,POINTDOT;
{壓力三:IF(CURRBARSCOUNT<=50,YL3,DRAWNULL),COLORWHITE,POINTDOT;}
均價線:=AMOUNT/V/100;
C2:=REF(C,1);
漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(漲停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(漲停,H,L,0,0),COLORYELLOW;
支撐線:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
LC:=REF(CLOSE,1);
操作線:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
趨勢線:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
震倉線:=45;
震倉線2:=50;
逃命線:=80;
抄底線:=20;
絕底線:=5;
PP2:=操作線<震倉線2 AND REF(操作線,1)>震倉線2 ;
PP:=操作線<震倉線 AND REF(操作線,1)>震倉線 ;
PP3:=操作線<抄底線 AND REF(操作線,1)>抄底線;
HH:=COUNT(漲停,13)>=1;
STICKLINE(PP2 AND HH,OPEN,CLOSE,0.8,0),COLORBLUE;
STICKLINE(PP AND HH,OPEN,CLOSE,0.8,0),COLORBLUE;
STICKLINE(PP3 AND HH,OPEN,CLOSE,0.8,0),COLORBLUE;
A8:=SMA(L,4,3) ;
STICKLINE(A8 AND REF(PP,1) AND HH ,A8*0.9999,A8*0.9979,5,0);
DRAWICON(A8 AND REF(PP,1) AND HH,L*0.98,1);
STICKLINE(A8 AND REF(PP3,1) AND HH ,A8*0.9999,A8*0.9979,5,0);
DRAWICON(A8 AND REF(PP3,1) AND HH,L*0.98,1);
HD:=COUNT(漲停,21)>=1;
A1:=SMA(H,4,3);
STICKLINE(A1 AND HD ,A1,A1*1.001,0.3,0);
ZT:=C/REF(C,1)>1.097;
DRAWTEXT(ZT,L*0.98,'漲停'),COLORGRAY;
VARZT:=BARSLAST(C/REF(C,1)>1.097);
STICKLINE(VARZT=2,L*0.97,L*0.98,3.5,0),COLOR0000FF;
DRAWTEXT(VARZT=2,L*0.95,'3'),COLORYELLOW;
STICKLINE(VARZT=4,H*1.03,H*1.02,3.5,0),COLOR9966FF;
DRAWTEXT(VARZT=4,H*1.06,'5'),COLORYELLOW;
STICKLINE(VARZT=7,L*0.97,L*0.98,3.5,0),COLOR00FFFF;
DRAWTEXT(VARZT=7,L*0.95,'8'),COLORYELLOW;
STICKLINE(VARZT=12,H*1.03,H*1.02,3.5,0),COLORFF33FF;
DRAWTEXT(VARZT=12,H*1.06,'13'),COLORYELLOW;
西:=EMA(HHV(HIGH,1),8);
電:=EMA(CLOSE,8);
進:=((電 < REF(電,1)) AND (CLOSE < 電));
出:=IF(((西 < REF(西,1)) OR 進),1,0);
出擊:=((((COUNT((出 = 1),4) = 3) AND (出 = 0)) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) > 0.085)) * 89);
DRAWICON((出擊 >=89),L*0.97,1);
DRAWTEXT((出擊 >=89),L*0.97,'出擊'),COLORYELLOW;
STICKLINE((出擊 >=89),H,L,4,0),LINETHICK1,COLORRED;
STICKLINE((出擊 >=89),H,L,0.2,0),COLORYELLOW;
STICKLINE((出擊 >=89),O,C,2,0),LINETHICK1,COLORYELLOW;
DRAWICON((出擊 >=89),(H+L)/2,7);