九转公式转换

chenshall

下面的通达信公式怎么转换成金字塔公式
https://mp.weixin.qq.com/s/yFx3TJU29TBL6sqsP7WFEg

M:=13;{9或者13}
N:=M-1;
A1:=C>REF(C,4);
A2:=BARSLASTCOUNT(A1);
A3:=REF(A2,1)=N AND A2>REF(A2,1);
A4:=REF(BETWEEN(A2,5,N),1)AND A2<REF(A2,1);
A5:=ISLASTBAR AND BETWEEN(A2,6,N);
A6:=(BACKSET(A3>0,N+1) OR BACKSET(A4>0,A2+1)*0 OR BACKSET(A5>0,A2))*A2;
DRAWTEXT(A6>0,H+H*0.02,VAR2STR(A6,0)),COLORFFOOFF{COLOROOFFFF};
DRAWTEXT(A2=N+1,H+H*0.02,CON2STR(N+1,0)),COLOROOFFOO;
B1:=C<REF(C,4);
B2:=BARSLASTCOUNT(B1);
B3:=REF(B2,1)=N AND B2>REF(B2,1);
B4:=REF(BETWEEN(B2,5,N),1) AND B2<REF(B2,1);
B5:=ISLASTBAR AND BETWEEN(B2,6,N);
B6:=(BACKSET(B3>0,N+1) ORBACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
DRAWTEXT(B6>0,L-L*0.02,VAR2STR(B6,0)),COLOROOFF00;
DRAWTEXT(B2=N+1,L-L*0.02,CON2STR(N+1,0)),COLORFFOOFF;
D1:=STRCAT(CODE,'');
DATA1:=STRCAT(D1,ZSBLOCK);
DRAWTEXT FIX(ISLASTBAR,0,0,0,DATA1),

技术008

M:=13;{9或者13}
N:=M-1;
A1:=C>REF(C,4);
A2:=SUMBARS(A1,1);
A3:=REF(A2,1)=N AND A2>REF(A2,1);
A4:=REF(BETWEEN(A2,5,N),1)AND A2<REF(A2,1);
A5:=ISLASTBAR AND BETWEEN(A2,6,N);
A6:=(BACKSET(A3>0,N+1) OR BACKSET(A4>0,A2+1)*0 OR BACKSET(A5>0,A2))*A2;
DRAWTEXT(A6>0,H+H*0.02,numtostr(A6,0));
DRAWTEXT(A2=N+1,H+H*0.02,numtostr(N+1,0));
B1:=C<REF(C,4);
B2:=SUMBARS(B1,1);
B3:=REF(B2,1)=N AND B2>REF(B2,1);
B4:=REF(BETWEEN(B2,5,N),1) AND B2<REF(B2,1);
B5:=ISLASTBAR AND BETWEEN(B2,6,N);
B6:=(BACKSET(B3>0,N+1) ORBACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
DRAWTEXT(B6>0,L-L*0.02,numtostr(B6,0)),COLOROOFF00;
DRAWTEXT(B2=N+1,L-L*0.02,numtostr(N+1,0)),COLORFFOOFF;
D1:=STRCAT(CODE,'');
DATA1:=STRCAT(D1,ZSBLOCK);
DRAWTEXT FIX(ISLASTBAR,0,0,0,DATA1),



ORBACKSET这个函数不知道是什么无法完全转换，这种直接给代码直接转是没那么容易的

chenshall

技术008 发表于 2025-1-3 09:31
M:=13;{9或者13}
N:=M-1;
A1:=C>REF(C,4);

应该是OR Backset

技术008

其他还有很多不一样的，这个您自己改下吧，这边对通达信也不熟悉的很多函数具体是啥都是猜测的不过这个没法做策略的他都是未来函数获取无法做成量化策略，所以你完全没必要转进来，直接通达信看不一样吗


M:=13;{9或者13}
N:=M-1;
A1:=C>REF(C,4);
A2:=SUMBARS(A1,1);
A3:=REF(A2,1)=N AND A2>REF(A2,1);
A4:=REF(BETWEEN(A2,5,N),1)AND A2<REF(A2,1);
A5:=ISLASTBAR AND BETWEEN(A2,6,N);
A6:=(BACKSET(A3>0,N+1) OR BACKSET(A4>0,A2+1)*0 OR BACKSET(A5>0,A2))*A2;
DRAWTEXT(A6>0,H+H*0.02,numtostr(A6,0));
DRAWTEXT(A2=N+1,H+H*0.02,numtostr(N+1,0));
B1:=C<REF(C,4);
B2:=SUMBARS(B1,1);
B3:=REF(B2,1)=N AND B2>REF(B2,1);
B4:=REF(BETWEEN(B2,5,N),1) AND B2<REF(B2,1);
B5:=ISLASTBAR AND BETWEEN(B2,6,N);
B6:=(BACKSET(B3>0,N+1) or backset(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
DRAWTEXT(B6>0,L-L*0.02,numtostr(B6,0));
DRAWTEXT(B2=N+1,L-L*0.02,numtostr(N+1,0));
D1:=STRCAT(stklabel,'');


DATA1:=STRCAT(D1,ZSBLOCK);
DRAWTEXT(ISLASTBAR,0,0,0,DATA1)

chenshall

技术008 发表于 2025-1-3 09:31
M:=13;{9或者13}
N:=M-1;
A1:=C>REF(C,4);

或者写个类似的实现

代人发帖

N:=CURRBARSCOUNT;
B:=C<REF(C,4);
T1:= BARSLAST(B=0);
A_B1:=(T1>9) AND MOD(T1,9)=1;
A_B2:=(T1>9) AND MOD(T1,9)=2;
A_B3:=(T1>9) AND MOD(T1,9)=3;
A_B4:=(T1>9) AND MOD(T1,9)=4;
A_B5:=(T1>9) AND MOD(T1,9)=5;
A_B6:=(T1>9) AND MOD(T1,9)=6;
A_B7:=(T1>9) AND MOD(T1,9)=7;
A_B8:=(T1>9) AND MOD(T1,9)=8;
A_B9:=(T1>9) AND MOD(T1,9)=0;

B1:=(N=6 AND REFX(COUNT(B,6),5)=6) OR (N=7 AND REFX(COUNT(B,7),6)=7) OR (N=8 AND REFX(COUNT(B,8),7)=8) OR (N>=9 AND REFX(COUNT(B,9),8)=9);
DRAWNUMBER(B1 AND (REF(B,1)=0 OR A_B1),L,1,0,COLORMAGENTA,0),PXDN20;

B2:=(N=5 AND REFX(COUNT(B,6),4)=6) OR (N=6 AND REFX(COUNT(B,7),5)=7) OR (N=7 AND REFX(COUNT(B,8),6)=8) OR (N>=8 AND REFX(COUNT(B,9),7)=9);
DRAWNUMBER(B2 AND(REF(B,2)=0 OR A_B2),L,2,0,COLORMAGENTA,0),PXDN20;

B3:=(N=4 AND REFX(COUNT(B,6),3)=6) OR (N=5 AND REFX(COUNT(B,7),4)=7) OR (N=6 AND REFX(COUNT(B,8),5)=8) OR (N>=7 AND REFX(COUNT(B,9),6)=9);
DRAWNUMBER(B3 AND(REF(B,3)=0 OR A_B3),L,3,0,COLORMAGENTA,0),PXDN20;

B4:=(N=3 AND REFX(COUNT(B,6),2)=6) OR (N=4 AND REFX(COUNT(B,7),3)=7) OR (N=5 AND REFX(COUNT(B,8),4)=8) OR (N>=6 AND REFX(COUNT(B,9),5)=9);
DRAWNUMBER(B4 AND(REF(B,4)=0 OR A_B4),L,4,0,COLORMAGENTA,0),PXDN20;

B5:=(N=2 AND REFX(COUNT(B,6),1)=6) OR (N=3 AND REFX(COUNT(B,7),2)=7) OR (N=4 AND REFX(COUNT(B,8),3)=8) OR (N>=5 AND REFX(COUNT(B,9),4)=9);
DRAWNUMBER(B5 AND(REF(B,5)=0 OR A_B5),L,5,0,COLORMAGENTA,0),PXDN20;

B6:=(N=1 AND COUNT(B,6)=6) OR (N=2 AND REFX(COUNT(B,7),1)=7) OR (N=3 AND REFX(COUNT(B,8),2)=8) OR (N>=4 AND REFX(COUNT(B,9),3)=9);
DRAWNUMBER(B6 AND(REF(B,6)=0 OR A_B6),L,6,0,COLORMAGENTA,0),PXDN20;

B7:=(N=1 AND COUNT(B,7)=7) OR (N=2 AND REFX(COUNT(B,8),1)=8) OR (N>=3 AND REFX(COUNT(B,9),2)=9);
DRAWNUMBER(B7 AND(REF(B,7)=0 OR A_B7),L,7,0,COLORMAGENTA,0),PXDN20;

B8:=(N=1 AND COUNT(B,8)=8) OR (N>=2 AND REFX(COUNT(B,9),1)=9);
DRAWNUMBER(B8 AND (REF(B,8)=0 OR A_B8),L,8,0,COLORMAGENTA,0),PXDN20;

B9:=(N>=1 AND COUNT(B,9)=9);
DRAWTEXT( B9 AND (REF(B,9)=0 OR A_B9),L ,'⑨',COLORRED,0),PXDN20,FONTSZUP2;

S:=C>REF(C,4);
T2:= BARSLAST(S=0);
A_S1:=(T2>9) AND MOD(T2,9)=1;
A_S2:=(T2>9) AND MOD(T2,9)=2;
A_S3:=(T2>9) AND MOD(T2,9)=3;
A_S4:=(T2>9) AND MOD(T2,9)=4;
A_S5:=(T2>9) AND MOD(T2,9)=5;
A_S6:=(T2>9) AND MOD(T2,9)=6;
A_S7:=(T2>9) AND MOD(T2,9)=7;
A_S8:=(T2>9) AND MOD(T2,9)=8;
A_S9:=(T2>9) AND MOD(T2,9)=0;


S1:=(N=6 AND REFX(COUNT(S,6),5)=6) OR (N=7 AND REFX(COUNT(S,7),6)=7) OR (N=8 AND REFX(COUNT(S,8),7)=8) OR (N>=9 AND REFX(COUNT(S,9),8)=9);
DRAWNUMBER(S1 AND (REF(S,1)=0 OR A_S1),H,1,0,COLORMAGENTA,0),PXUP20;

S2:=(N=5 AND REFX(COUNT(S,6),4)=6) OR (N=6 AND REFX(COUNT(S,7),5)=7) OR (N=7 AND REFX(COUNT(S,8),6)=8) OR (N>=8 AND REFX(COUNT(S,9),7)=9);
DRAWNUMBER(S2 AND (REF(S,2)=0 OR A_S2),H,2,0,COLORMAGENTA,0),PXUP20;

S3:=(N=4 AND REFX(COUNT(S,6),3)=6) OR (N=5 AND REFX(COUNT(S,7),4)=7) OR (N=6 AND REFX(COUNT(S,8),5)=8) OR (N>=7 AND REFX(COUNT(S,9),6)=9);
DRAWNUMBER(S3 AND(REF(S,3)=0 OR A_S3),H,3,0,COLORMAGENTA,0),PXUP20;

S4:=(N=3 AND REFX(COUNT(S,6),2)=6) OR (N=4 AND REFX(COUNT(S,7),3)=7) OR (N=5 AND REFX(COUNT(S,8),4)=8) OR (N>=6 AND REFX(COUNT(S,9),5)=9);
DRAWNUMBER(S4 AND(REF(S,4)=0 OR A_S4),H,4,0,COLORMAGENTA,0),PXUP20;

S5:=(N=2 AND REFX(COUNT(S,6),1)=6) OR (N=3 AND REFX(COUNT(S,7),2)=7) OR (N=4 AND REFX(COUNT(S,8),3)=8) OR (N>=5 AND REFX(COUNT(S,9),4)=9);
DRAWNUMBER(S5 AND(REF(S,5)=0 OR A_S5),H,5,0,COLORMAGENTA,0),PXUP20;

S6:=(N=1 AND COUNT(S,6)=6) OR (N=2 AND REFX(COUNT(S,7),1)=7) OR (N=3 AND REFX(COUNT(S,8),2)=8) OR (N>=4 AND REFX(COUNT(S,9),3)=9);
DRAWNUMBER(S6 AND(REF(S,6)=0 OR A_S6),H,6,0,COLORMAGENTA,0),PXUP20;

S7:=(N=1 AND COUNT(S,7)=7) OR (N=1 AND REFX(COUNT(S,8),1)=8) OR (N>=3 AND REFX(COUNT(S,9),2)=9);
DRAWNUMBER(S7 AND(REF(S,7)=0 OR A_S7),H,7,0,COLORMAGENTA,0),PXUP20;

S8:=(N=1 AND COUNT(S,8)=8) OR (N>=2 AND REFX(COUNT(S,9),1)=9);
DRAWNUMBER(S8 AND (REF(S,8)=0 OR A_S8),H,8,0,COLORMAGENTA,0),PXUP20;

S9:=(N>=1 AND COUNT(S,9)=9);
DRAWTEXT( S9 AND (REF(S,9)=0 OR A_S9),H ,'⑨',COLORGREEN,0),PXUP20,FONTSZUP2;