请老师改为金字塔的主图公式
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;