通达信几何压力支撑主图源码

几何压力支撑 {主图，源码，贴图}
 说明：昨日打酱油路过看看何耀东童靴的（分享真正的牛图新手。高手都可以用的）帖子，随手改改。
 俺加点味精就变原创啦，发给大家分享，祝大家周末快乐！
 源码：{几何压力支撑，p：2，4，3}
 N:=POW(2,P);
 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);