wh8的代码 求转为金字塔可用

正在连接

VARIABLE:XTREND:=0,TREND2:=0,XU:=0,XU1:=0,XU2:=0,XU3:=0,CL:=0,OP:=0,LL:=0,HH:=0,SPJ:=0;

IF BARPOS=1 AND CLOSE>=OPEN THEN
BEGIN
  XTREND:=1;
  TREND2:=XTREND;
  XU:=CLOSE;
  XU1:=OPEN;
  XU2:=OPEN;
  XU3:=OPEN;
  CL:=XU;
  OP:=XU1;
  LL:=OP;
  HH:=CL;
END

IF BARPOS=1 AND CLOSE<OPEN THEN
BEGIN
  XTREND:=0;
  TREND2:=XTREND;
  XU:=CLOSE;
  XU1:=OPEN;
  XU2:=OPEN;
  XU3:=OPEN;
  CL:=XU;
  OP:=XU1;
  LL:=CL;
  HH:=OP;
END

IF BARPOS>1 AND XTREND=1 AND CLOSE>XU THEN
BEGIN
   TREND2:=XTREND;
   XU3:=XU2;
   XU2:=XU1;
   XU1:=XU;
   XU:=CLOSE;
   CL:=XU;
   OP:=XU1;
   LL:=OP;
   HH:=CL;
END

IF BARPOS>1 AND XTREND=1 AND CLOSE<XU3 THEN
BEGIN
   XTREND:=0;
   TREND2:=XTREND;
   XU:=CLOSE;
   XU2:=XU1;
   XU3:=XU1;
   CL:=XU;
   OP:=XU1;
   LL:=CL;
   HH:=OP;
END

IF BARPOS>1 AND XTREND=1 AND (CLOSE>XU)=0 AND (CLOSE<XU3)=0 THEN
BEGIN
   TREND2:=XTREND;
   CL:=REF(CL,1);
   OP:=REF(OP,1);
   LL:=REF(LL,1);
   HH:=REF(HH,1);
END

IF BARPOS>1 AND XTREND<>1 AND CLOSE>XU3 THEN
BEGIN
   XTREND:=1;
   TREND2:=XTREND;
   XU:=CLOSE;
   XU2:=XU1;
   XU3:=XU1;
   CL:=XU;
   OP:=XU1;
   LL:=OP;
   HH:=CL;
END

IF BARPOS>1 AND XTREND<>1 AND CLOSE<XU THEN
BEGIN
   TREND2:=XTREND;
   XU3:=XU2;
   XU2:=XU1;
   XU1:=XU;
   XU:=CLOSE;
   CL:=XU;
   OP:=XU1;
   LL:=CL;
   HH:=OP;
END

IF BARPOS>1 AND XTREND<>1 AND (CLOSE>XU3)=0 AND (CLOSE<XU)=0 THEN
BEGIN
   TREND2:=XTREND;
   CL:=REF(CL,1);
   OP:=REF(OP,1);
   LL:=REF(LL,1);
   HH:=REF(HH,1);
END

技术009

[PEL] 复制代码

variable:xtrend:=0,trend2:=0,xu:=0,xu1:=0,xu2:=0,xu3:=0,cl:=0,op:=0,ll:=0,hh:=0,spj:=0;

if barpos=1 and close>=open then
begin
  xtrend:=1;
  trend2:=xtrend;
  xu:=close;
  xu1:=open;
  xu2:=open;
  xu3:=open;
  cl:=xu;
  op:=xu1;
  ll:=op;
  hh:=cl;
end

if barpos=1 and close<open then
begin
  xtrend:=0;
  trend2:=xtrend;
  xu:=close;
  xu1:=open;
  xu2:=open;
  xu3:=open;
  cl:=xu;
  op:=xu1;
  ll:=cl;
  hh:=op;
end

if barpos>1 and xtrend=1 and close>xu then
begin
   trend2:=xtrend;
   xu3:=xu2;
   xu2:=xu1;
   xu1:=xu;
   xu:=close;
   cl:=xu;
   op:=xu1;
   ll:=op;
   hh:=cl;
end

if barpos>1 and xtrend=1 and close<xu3 then
begin
   xtrend:=0;
   trend2:=xtrend;
   xu:=close;
   xu2:=xu1;
   xu3:=xu1;
   cl:=xu;
   op:=xu1;
   ll:=cl;
   hh:=op;
end

last_cl:=ref(cl,1);
last_op:=ref(op,1);
last_ll:=ref(ll,1);
last_hh:=ref(hh,1);


if barpos>1 and xtrend=1 and (close>xu)=0 and (close<xu3)=0 then
begin
   trend2:=xtrend;
   cl:=last_cl;
   op:=last_op;
   ll:=last_ll;
   hh:=last_hh;
end

if barpos>1 and xtrend<>1 and close>xu3 then
begin
   xtrend:=1;
   trend2:=xtrend;
   xu:=close;
   xu2:=xu1;
   xu3:=xu1;
   cl:=xu;
   op:=xu1;
   ll:=op;
   hh:=cl;
end

if barpos>1 and xtrend<>1 and close<xu then
begin
   trend2:=xtrend;
   xu3:=xu2;
   xu2:=xu1;
   xu1:=xu;
   xu:=close;
   cl:=xu;
   op:=xu1;
   ll:=cl;
   hh:=op;
end

last_cl:=ref(cl,1);
last_op:=ref(op,1);
last_ll:=ref(ll,1);
last_hh:=ref(hh,1);


if barpos>1 and xtrend<>1 and (close>xu3)=0 and (close<xu)=0 then
begin
   trend2:=xtrend;
   cl:=last_cl;
   op:=last_op;
   ll:=last_ll;
   hh:=last_hh;
end

需运行在逐K模式下

正在连接

谢谢！