主题：麻烦哪位高手老大给改成金字塔的

P:=SYSPARAM(1);

NA:=IF((P = DATACOUNT),IF((DATACOUNT > P1),210,DATACOUNT),((DATACOUNT - P) + 1));

HH:=HHV(HIGH,NA);

LL:=LLV(LOW,NA);

VN:=NA;

for I=DATACOUNT downto ((DATACOUNT - VN) + 1) do

begin

HH[I]:=HH[DATACOUNT];

LL[I]:=LL[DATACOUNT];

End;

高:=SETLBOUND(hh,((DATACOUNT - VN) + 1));

低:=SETLBOUND(ll,((DATACOUNT - VN) + 1));

KKH:=BARSSINCE((HIGH = HH));

KKL:=BARSSINCE((LOW = LL));

上角:=FILTER((COUNT((KKH + 1),BARSLAST((KKH = 0))) = 1),1);

下角:=FILTER((COUNT((KKL + 1),BARSLAST((KKL = 0))) = 1),1);

K:=((SYSPARAM(4) - SYSPARAM(5)))/((SYSPARAM(3) - SYSPARAM(2)));

DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((20)*(K))/(60)),0,0),POINTDOT,colorCyan;

DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((30)*(K))/(60)),0,0),POINTDOT,colorCyan;

DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((50)*(K))/(60)),0,0),colorCyan;

DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((70)*(K))/(60)),0,0),POINTDOT,colorCyan;

DRAWSL((下角 and (显示 = 2)),LOW,((20)*(K))/(60),0,0),POINTDOT,colorMagenta;

DRAWSL((下角 and (显示 = 2)),LOW,((50)*(K))/(60),0,0),POINTDOT,colorMagenta;

DRAWSL((下角 and (显示 = 2)),LOW,((70)*(K))/(60),0,0),POINTDOT,colorMagenta;

DRAWSL((下角 and (显示 = 2)),LOW,((100)*(K))/(60),0,0),colorMagenta;

A2:=SYSPARAM(2);

A3:=SYSPARAM(3);

A4:=SYSPARAM(4);

A5:=SYSPARAM(5);

H1:=((A4 - A5))/(8);

H2:=(H1)/(4);

L1:=LLV(LOW,(A3 - A2));

LL2:=L1[A3];

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (20)*(H2)))),(A4 - (20)*(H2)),(A4 - (20)*(H2)),SYSPARAM(1),0),Color002288;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (20)*(H2)))),(A4 - (20)*(H2)),(A4 - (20)*(H2)),SYSPARAM(1),0),ColorFF0000;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (24)*(H2)))),(A4 - (24)*(H2)),(A4 - (24)*(H2)),SYSPARAM(1),0),Color002288;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (24)*(H2)))),(A4 - (24)*(H2)),(A4 - (24)*(H2)),SYSPARAM(1),0),Color996633;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (16)*(H2)))),(A4 - (16)*(H2)),(A4 - (16)*(H2)),SYSPARAM(1),0),colorRed;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (16)*(H2)))),(A4 - (16)*(H2)),(A4 - (16)*(H2)),SYSPARAM(1),0),ColorFF0000;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (12)*(H2)))),(A4 - (12)*(H2)),(A4 - (12)*(H2)),SYSPARAM(1),0),Color002288;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (12)*(H2)))),(A4 - (12)*(H2)),(A4 - (12)*(H2)),SYSPARAM(1),0),colorGreen;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - ((2.7)*(3))*(H2)))),(A4 - ((2.7)*(3))*(H2)),(A4 - ((2.7)*(3))*(H2)),SYSPARAM(1),0),Color002288;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - ((2.7)*(3))*(H2)))),(A4 - ((2.7)*(3))*(H2)),(A4 - ((2.7)*(3))*(H2)),SYSPARAM(1),0),ColorFF0000;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(1),0),Color002288;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(3),SYSPARAM(1)),colorWhite;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(1),0),colorWhite;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > A4)),A4,A5,SYSPARAM(4),1),colorYellow;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < A4)),A4,A4,SYSPARAM(3),SYSPARAM(1)),colorGreen;

STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (LL2 + ((1)*(4))*(H2)))),(LL2 + ((1)*(4))*(H2)),(LL2 + ((1)*(4))*(H2)),SYSPARAM(1),0),align0,ColorAA0088;