以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]改为金字塔的主图公式  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=30487)
--  作者：mzy139
--  发布时间：2012/11/8 11:54:47
--  [求助]改为金字塔的主图公式
请老师改为金字塔的主图公式

MAL:=MA(C,13);
Q:=C*C;
A:=Sum(Q,13);
B:=Sqrt(A/13-(MA(C,13)*MA(C,13)));
cc:=MA(C,13),pointdot,COLORyellow;

D:MA(C,13);
PARTLINE(D>=REF(D,1),D),COLORMAGENTA,LINETHICK2;
PARTLINE(D<REF(D,1),D),COLORGREEN,LINETHICK2;

天SA:MAL+2*B,COLORred;
罗SB:MAL+B,COLORblue;
地SC:MAL-B,COLORred;
网SD:MAL-2*B,COLOR007799;

fo:=o; 
fh:=h; 
fl:=l; 
fc:=c; 
<% 
vo=ffl.vardata("fo") 
vh=ffl.vardata("fh") 
vl=ffl.vardata("fl") 
vc=ffl.vardata("fc") 
last=ubound(vc) 

vc(0)=(vh(0)+vl(0)+2*vc(0))/4 
for i=1 to last 
  vo(i)=(vo(i-1)+vc(i-1))/2 
  if vo(i)>vh(i) then vh(i)=vo(i) else vh(i)=vh(i)
  if vo(i)<vl(i) then vl(i)=vo(i) else vl(i)=vl(i) 
  vc(i)=(2*vc(i)+vh(i)+vl(i))/4 
next 

ffl.vardata("fo")=vo 
ffl.vardata("fh")=vh 
ffl.vardata("fl")=vl 
ffl.vardata("fc")=vc 

%> 

KK:=IF(fc>=fo AND (fc>=REF(fc,1) or ref(fc,1)>=ref(fo,1)),1,IF(fc<fo AND (fc<REF(fo,1)  or ref(fc,1)<ref(fo,1)),-1,0));

T:(fo+fc)/2,COLORgreen,shift1;
trans:IF(KK=1,MIN(fc,fo),IF(KK=-1,MAX(fc,fo),IF(REF(KK,1)=1,MIN(fc,fo),IF(REF(KK,1)=-1,MAX(fc,fo),(fc+fo)/2)))),POINTDOT,COLORgreen;
DRAWNUMBER(ISLASTbar,T,T,2),shift1;

STICKLINE(KK=1 AND fc>=fo,fo,fc,8,1),COLORRED;
STICKLINE(fc>fo,fh,fc,0.4,0),COLORRED;
STICKLINE(fc>fo,fo,fl,0.4,0),COLORRED;
STICKLINE(KK=1 AND fc<fo,fo,fc,8,0),COLORRED;

STICKLINE(KK=-1 AND fc>=fo,fo,fc,8,1),COLORBLUE;
STICKLINE(fo>fc,fh,fo,0.4,0),COLORBLUE;
STICKLINE(fo>fc,fc,fl,0.4,0),COLORBLUE;
STICKLINE(KK=-1 AND fc<fo,fo,fc,8,0),COLORBLUE;

STICKLINE(KK=0 AND fc>=fo,fo,fc,8,1),COLORBLUE;
STICKLINE(KK=0 AND fc<fo,fo,fc,8,0),COLORBLUE;
--  作者：guotx2010
--  发布时间：2012/11/8 11:59:07
--  
直接复制到金字塔公式就可以呀
--  作者：mzy139
--  发布时间：2012/11/8 13:17:41
--  
可是K棒颜色有些混乱
--  作者：jinzhe
--  发布时间：2012/11/8 14:05:28
--  
可以把颜色代码都写成统一的一个颜色