同样的公式，不同的效果，有请金字塔设计师指正。 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

//以下设置股票信息

DRAWTEXTEX(1,1,1,5,'总股本:'+NUMTOSTR(FINANCE(1)/10000 ,2 )+'亿'+' 流通A股:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+

' 每股收益:'+ NUMTOSTR(FINANCE(33),2)+'元'+' 市盈率:'+NUMTOSTR(DYNAINFO(39),2)+'倍'+' 股东总数:'+NUMTOSTR(FINANCE(50),2)+'户'+' 人均持股:'+NUMTOSTR(FINANCE(7)/FINANCE(50)*10000,2)),ColorFFFFFC;

INPUT:月(1,0,1),周(0,0,1),日(1,0,1),M(97,0,999),N(5,0,20);//调节参数：M=0为周K线，M=1为月K线。

//月K线。

年周期:=YEAR>REF(YEAR,1)or BARPOS=1;

j1:=CROSS(MONTH>=1 and MONTH<=3,0.5);

j2:=CROSS(MONTH>=4 and MONTH<=6,0.5);

j3:=CROSS(MONTH>=7 and MONTH<=9,0.5);

j4:=CROSS(MONTH>=10 and MONTH<=12,0.5);

季度周期:=(j1+j2+j3+j4)or BARPOS=1;

月周期:=MONTH<>REF(MONTH,1)or BARPOS=1;

周周期:=DATEDIFF(REF(DATE,1),DATE)<>WEEKDAY-REF(WEEKDAY,1) or BARPOS=1;

日周期:=DAY<>REF(DAY,1)or BARPOS=1;

p:=SYSPARAM(1);

u:=IF(p<BARPOS,0,1);

ztj1:=DATEDIFF(REF(DATE,1),DATE)<>WEEKDAY-REF(WEEKDAY,1)*u or BARPOS=1;

rtj1:=INTPART(DATE/100)<>REF(INTPART(DATE/100),1)*u or BARPOS=1;

ztj:=REFX(ztj1,1)*u;rtj:=REFX(rtj1,1)*u;

IF {原来为m=0，修改为月=0}月=0 then begin

wtj1:=ztj1; wtj:=ztj;

end;else begin

wtj1:=rtj1; wtj:=rtj;{zrstr:='月K线'};

end;

{DRAWTEXT(DATACOUNT-10=BARPOS,CLOSE,zrstr),ALIGN4};

zq:=SUMBARS(wtj1,1);dzq:=zq;

for i=DATACOUNT-1 downto 1 do begin

IF wtj[i] then

dzq[i]:=dzq[i];

else

dzq[i]:=MAX(dzq[i+1],dzq[i]);

end;

开盘:=REF(OPEN,zq-1),LINETHICK0;

上月高:"wxl-主图-引用.昨日最高#MONTH",LINETHICK0,COLORYELLOW,PRECISION2;

最高:REFX(HHV(HIGH,zq),dzq-zq),LINETHICK0,PRECISION2;

最低:=REFX(LLV(LOW,zq),dzq-zq),LINETHICK0;

收盘:=REFX(CLOSE,dzq-zq),LINETHICK0;

月涨:="wxl-主图-引用.个股涨幅#week",LINETHICK0,COLORWHITE;

月涨幅:=IF(SUM(wtj,0)<=1,收盘/开盘*100-100,收盘/REF(收盘,zq)*100-100),LINETHICK0;

yvv:=SUM(VOL,zq);

月量:=refx(yvv,dzq-zq),LINETHICK0;

月下影:=(MIN(收盘,开盘)-最低)/(最高-最低),COLORYELLOW,LINETHICK0;

月上影:=(最高-MAX(收盘,开盘))/(最高-最低),COLORYELLOW,LINETHICK0;

月振:(HHV(最高,1)-LLV(最低,1))/LLV(最低,1)*100,COLORYELLOW,LINETHICK0;

周振:="wxl-主图-引用.振幅#week",LINETHICK0,COLORYELLOW,PRECISION2;

aa:=IF(BARPOS>1,8,10),LINETHICK0;

tt:=IF(wtj1 and REFX(wtj,1),aa,IF(wtj=1 or wtj1=1,aa,14));

hlk:=INTPART(dzq/2)+1=zq;

bb1:=IF(BARPOS>1,0.1,2),LINETHICK0;

bba:=IF(DATATYPE>7,0.1,10),LINETHICK0;

bb:=IF(BARPOS>1,bb1,bba),LINETHICK0;

STICKLINE(收盘>=开盘 AND 月=1,收盘,开盘,tt*0.92,0),COLOReeaaEE;

STICKLINE(收盘>=开盘 AND 月=1 and hlk ,最高,最低,bb,0),COLOReeaaEE;

STICKLINE(收盘<开盘 AND 月=1,收盘,开盘,tt*0.92,0),Color6AA932;

STICKLINE(收盘<开盘 AND 月=1 and hlk ,最高,最低,bb,0),Color6AA932;

//周K线。

p:=SYSPARAM(1);

u:=IF(p<BARPOS,0,1);

ztj1:=DATEDIFF(REF(DATE,1),DATE)<>WEEKDAY-REF(WEEKDAY,1)*u or BARPOS=1;

rtj1:=INTPART(DATE/100)<>REF(INTPART(DATE/100),1)*u or BARPOS=1;

ztj:=REFX(ztj1,1)*u;rtj:=REFX(rtj1,1)*u;

IF {原来为m=0，修改为周=0}周=1 then begin

wtj1:=ztj1; wtj:=ztj;

end;else begin

wtj1:=rtj1; wtj:=rtj;{zrstr:='月K线'};

end;

{DRAWTEXT(DATACOUNT-10=BARPOS,CLOSE,zrstr),ALIGN4};

zq:=SUMBARS(wtj1,1);dzq:=zq;

for i=DATACOUNT-1 downto 1 do begin

IF wtj[i] then

dzq[i]:=dzq[i];

else

dzq[i]:=MAX(dzq[i+1],dzq[i]);

end;

开盘:=REF(OPEN,zq-1),LINETHICK0;

最高:=REFX(HHV(HIGH,zq),dzq-zq),LINETHICK0;

最低:=REFX(LLV(LOW,zq),dzq-zq),LINETHICK0;

收盘:=REFX(CLOSE,dzq-zq),LINETHICK0;

zvv:=SUM(VOL,zq);

周量:=refx(zvv,dzq-zq),LINETHICK0;

周涨:="wxl-主图-引用.个股涨幅#week",LINETHICK0,COLORWHITE;

周涨幅:=IF(SUM(wtj,0)<=1,收盘/开盘*100-100,收盘/REF(收盘,zq)*100-100),LINETHICK0;

aa1:=IF(BARPOS>p,7,10),LINETHICK0;

tt:=IF(wtj1 and REFX(wtj,1),aa1,IF(wtj=1 or wtj1=1,aa1,14));

hlk:=INTPART(dzq/2)+1=zq;

bb1:=IF(BARPOS>p,1,2),LINETHICK0;

bbb:=IF(DATATYPE=6,2,10) and IF(DATATYPE>6,0.1,10),LINETHICK0;

bbc:=IF(BARPOS>p,bb1,bbb),LINETHICK0;

STICKLINE(周涨幅>=0 AND 周=1,收盘,开盘,tt*0.92,0),Color613076;

STICKLINE(周涨幅>=0 AND 周=1 and hlk,最高,最低,bbc,0),Color613076;

STICKLINE(周涨幅<0 AND 周=1,收盘,开盘,tt*0.92,0),ColorFA7D32;

STICKLINE(周涨幅<0 AND 周=1 and hlk,最高,最低,bbc,0),ColorFA7D32;

{ }

ma5:MA(CLOSE,5),COLORWHITE,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,ma5,ma5[DATACOUNT-0]-ma5[DATACOUNT-1],2,-1),colorwhite,,POINTDOT,Linethick0;

ma20:MA(CLOSE,20),COLORCYAN,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,ma20,ma20[DATACOUNT-0]-ma20[DATACOUNT-1],2,-1),COLORCYAN,POINTDOT,Linethick0;

ma97:MA(CLOSE,97),COLORGRAY,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,ma97,ma97[DATACOUNT-0]-ma97[DATACOUNT-1],2,-1),COLORGRAY,POINTDOT,Linethick0;

//日K线。

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,8,0 ),Color006800;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,7.8,0 ),,Color007F00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,7,5 ),,Color008B00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,7,3 ),,Color008B00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,7,0 ),,Color009000;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,6.8,0 ),,Color009500;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,6.5,0 ),,Color009C00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,6.3,0 ),,Color00A300;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,6,0 ),,Color00AB00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,5.7,0 ),,Color00AF00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,5.5,0 ),,Color00B900;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,5.3,0 ),,Color00C000;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,5,0 ),,Color00C100;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,4.5,0 ),,Color00CA00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,3.5,0 ),,Color00D300;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,3,0 ),,Color00DB00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,2.5,0 ),,Color00EA00;

STICKLINE(OPEN>=CLOSE AND 日=1 ,CLOSE ,OPEN,1.5,0 ),,Color00FF00;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,8 ,0 ),Color0000FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,7.8 ,0),Color0018FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,7.5 ,0 ),Color001BFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,7.3 ,0 ),Color0022FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,7 ,0 ),Color0035FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,6.8 ,0 ),Color0041FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,6.5 ,0 ),Color0050FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,6.3 ,0 ),Color0059FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,6 ,0 ),Color0062FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,5.7 ,0 ),Color006CFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,5.5 ,0 ),Color007AFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,5.3 ,0 ),Color0080FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,5 ,0 ),Color0089FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,4.5 ,0 ),Color0095FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,3.5 ,0 ),Color009CFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,3 ,0 ),Color00ABFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,2.5 ,0 ),Color00C0FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,1.5 ,0 ),Color00D1FF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,1 ,0 ),Color00EAFF;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,OPEN,0.7 ,0 ),Color00FFFF;

STICKLINE(CLOSE>OPEN AND 日=1,OPEN,LOW,1,0 ),COLORred;

STICKLINE(CLOSE>OPEN AND 日=1,OPEN,LOW,0.5,0 ),COLORyellow;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,HIGH,1 ,0 ),COLORred;

STICKLINE(CLOSE>OPEN AND 日=1,CLOSE,HIGH,0.5 ,0 ),COLORyellow;

STICKLINE(OPEN>=CLOSE AND 日=1,CLOSE,LOW,1 ,0 ),Color006300;

STICKLINE(OPEN>=CLOSE AND 日=1,CLOSE,LOW,0.5 ,0 ),COLORgreen;

STICKLINE(OPEN>=CLOSE AND 日=1,OPEN,HIGH,1 ,0 ),Color006300;

STICKLINE(OPEN>=CLOSE AND 日=1,OPEN,HIGH,0.5 ,0 ),COLORgreen;{ }

{ ---- ------- }

IF DATATYPE<>6 then exit;

MID : MA(CLOSE,m),LINETHICK1,COLORGRAY,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,MID,MID[DATACOUNT-0]-MID[DATACOUNT-1],2,-1),COLORGRAY,,POINTDOT,Linethick0;

UPPER: MID +2*STD(CLOSE,M),COLORYELLOW,LINETHICK1,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,UPPER,UPPER[DATACOUNT-0]-UPPER[DATACOUNT-1],2,-1),COLORYELLOW,,POINTDOT,Linethick0;

LOWER: MID - 2*STD(CLOSE,M),COLORGREEN,LINETHICK1,PRECISION2;

DRAWSL(BARPOS=DATACOUNT,LOWER,LOWER[DATACOUNT-0]-LOWER[DATACOUNT-1],2,-1),COLORGREEN,,POINTDOT,Linethick0;

{UPPER1: MID +1.5*STD(close,M),COLORMAGENTA,LINETHICK0;

LOWER1: MID - 1*STD(close,M),COLORCYAN,LINETHICK0;}

[此贴子已经被作者于2015/7/27 9:10:39编辑过]

主题：同样的公式，不同的效果，有请金字塔设计师指正。