软件名称：[B]点石成金主图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2010-10-11 14:11:22
软件简介:

input: y(5,1,60),M(8,1,100),N(13,1,100);
DRAWGBK(C,COLORRGB(36,68,36),COLORRGB(100,100,100),1);

{-----------------------☆功能开关------------------------}
jQCB:=EMA(C,3);
DScj1:=PEAKBARS(3,y,1);
DScj2:=TROUGHBARS(3,y,1);
DScj3:=PEAKBARS(2,y,1);
峰号:=DATACOUNT-DScj1[DATACOUNT];
谷号:=DATACOUNT-DScj2[DATACOUNT];
点石0:=MA(LLV(jQCB,3),DScj2+1);
成金0:=MA(HHV(jQCB,1),DScj3+1);
压力0:=MA(WMA(h,2),DScj1+1);
{未来参考K线}
F:=100*(C-REF(C,1))/REF(C,1);
p1:=IF(C<REF(O,1) AND f<0,1,0);
p3:=IF(C>REF(O,1) AND f>0,1,0);
p2:=IF(C<REF(O,2) AND f<0,1,0);
p4:=IF(C>REF(O,2) AND f>0,1,0);
买D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
卖D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1;
AS:=ZIG(3,3); 
涨AL:=CROSS(AS,REF(AS,1));
跌AG:=CROSS(REF(AS,1),AS);
买点:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);//提前一天
卖点:=FILTER((PEAKBARS(3,15,1)<4)=1,3);  //提前一天

{-----------------【图解模板】---------------------}

{K线}
STICKLINE(O>=C,H,L,1,0),ColorFFBE5E;
STICKLINE(O>=C,C,O,7,0),ColorFFBE5E;
STICKLINE(C>=O,H,L,1,0),Color5050FF;
STICKLINE(C>=O,C,O,7,1),Color5050FF;
{未来K线}
STICKLINE(买点,L,(O+C)/2,0,0),COLORWHITE; {未来买点}
STICKLINE(买点,C,(O+C)/2,7,0),COLORWHITE; {未来买点}
STICKLINE(卖点,H,(O+C)/2,0,0),COLORYELLOW;{未来卖点}
STICKLINE(卖点,C,(O+C)/2,7,0),COLORYELLOW;{未来卖点}
STICKLINE(买D5 and 涨AL,L,(O+C)/2,0,0),COLORWHITE; {未来买}
STICKLINE(买D5 and 涨AL,O,(O+C)/2,7,0),COLORWHITE; {未来买}
STICKLINE(卖D6 and 跌AG,L,(O+C)/2,0,0),Color3EA63E;{未来卖}
STICKLINE(卖D6 and 跌AG,O,(O+C)/2,7,0),Color3EA63E;{未来卖}
{压撑轨道}
Gh:=h;
Ghh:=hhv(h,N);
GL:=L;
GLL:=llv(L,N);
if   Gh[datacount]=Ghh[datacount]  then  begin
if   GL[datacount]=GLL[datacount]  then  begin
end;
end;
Hu_1:=(o+3*c+l+h)/6;
Dh:=Hu_1;
止损:hhv(Hu_1,M),LINEDASH,PRECISION2,COLORWHITE;
DL:=Hu_1;
低位:llv(Hu_1,M),LINEDASH,PRECISION2,COLORGREEN;
if   Dh[datacount]=止损[datacount]  then  begin
if   DL[datacount]=低位[datacount]  then  begin
end;
end;
X_L1:=reverse((3*C+2*O+L+H)/7)+2*wma(wma((3*C+2*O+L+H)/7,1),5);
激进线: 3*X_L1-2*sma(X_L1,2,1),LINETHICK,PRECISION2,COLORYELLOW;
{}
压力:PARTLINE(DScj1>0,压力0),LINETHICK,ColorFF7D00; //压力--暗蓝
PARTLINE(DScj1>0,压力0),LINETHICK2,COLORBLUE;
点石:PARTLINE(DScj2>0,点石0),COLORRED; //点石--暗粉
成金:PARTLINE(DScj3>0 and 成金0>ref(成金0,1),成金0),LINETHICK1,Color0089FF;//成金--金黄
PARTLINE(1,激进线),LINEDOT,COLORYELLOW;
{}
DRAWICON(BARPOS=峰号,H*1.02,12);//预警信号
DRAWICON(BARPOS=谷号,L*0.98,10);//预警信号
DRAWNUMBER(BARPOS=峰号,H*1.02,jQCB,2),PXUP26,ALIGN,COLORWHITE,SHIFT1;
DRAWNUMBER(BARPOS=谷号,L*0.98,jQCB,2),PXUP26,ALIGN,COLORBROWN,SHIFT1;
DRAWTEXT(BARPOS=峰号,H*1.02,'▼'),ALIGN,ColorFF9700,SHIFT1;
DRAWTEXT(BARPOS=谷号,L*0.98,'▲'),ALIGN,COLORRED,SHIFT1;
//DRAWTEXT(BARPOS=SYSPARAM(2),C,'■预警信号 -- 信号灯(不可操作！)'),align4,PXDN6,COLORWHITE;
asv:=DScj3>0 and CROSS(成金0,ref(成金0,1));
asw:=BARSLAST(BARPOS=谷号)>0;
DRAWNUMBER(asv and asw,L*0.98,jQCB,2),ALIGN,Color0089FF;
DRAWTEXT(asv and asw,L*0.98,'▲'),PXUP26,ALIGN,Color0089FF;

[url=http://www.70822.com/soft/sort013/sort02/down-26028.html]点石成金主图[/url]