软件名称：[B]几何压力支撑 {主图，源码，贴图}[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2012-03-12 04:36:01
软件简介:

源码：{几何压力支撑，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);
 

[url=http://www.70822.com/soft/sort013/sort05/down-45157.html]几何压力支撑 {主图，源码，贴图}[/url]