标题：能否把这个文华的公式改为金字塔的？

1楼

tonyzhu 发表于：2020/5/14 22:57:16

//3分钟

#IMPORT[MIN,3,XDIK1]AS VAR6

A3:=VAR6.A;

STICKLINE(A3>=0 , 8.5, 9.5, COLORRED,0 );

STICKLINE(A3<0 , 8.5, 9.5, COLORGREEN,0 );

//10分钟

#IMPORT[MIN,10,XDIK1]AS VAR5

A10:=VAR5.A;

STICKLINE(A10>=0 , 7, 8, COLORRED,0 );

STICKLINE(A10<0 , 7, 8, COLORGREEN,0 );

//30分钟

#IMPORT[MIN,30,XDIK1]AS VAR4

A30:=VAR4.A;

STICKLINE(A30>=0 , 5.5, 6.5, COLORRED,0 );

STICKLINE(A30<0 , 5.5, 6.5, COLORGREEN,0 );

//1小时

#IMPORT[MIN,60,XDIK1]AS VAR3

AHOUR:=VAR3.A;

STICKLINE(AHOUR>=0 , 4, 5, COLORMAGENTA,0 );

STICKLINE(AHOUR<0 , 4, 5, COLORLIGHTGREEN,0 );

//2小时

#IMPORT[MIN,120,XDIK1]AS VAR2

A240:=VAR2.A;

STICKLINE(A240>0,2.5,3.5,COLORRED,0);

STICKLINE(A240<0,2.5,3.5,COLORGREEN,0);

//日

#IMPORT[DAY,1,XDIK1]AS VAR1

ADAY:=VAR1.A;

STICKLINE(ADAY>0,1,2,COLORRED,0);

STICKLINE(ADAY<0,1,2,COLORGREEN,0);

//日线颜色

D1:=IFELSE(ADAY>=0 , 1,0);

//2小时颜色

D2:=IFELSE(A240>=0 , 1,0);

//1小时

D3:=IFELSE(AHOUR>=0 , 1,0);

//30分钟

D4:=IFELSE(A30>=0 , 1,0);

//10分钟

D5:=IFELSE(A10>=0 , 1,0);

//3分钟

D6:=IFELSE(A3>=0 , 1,0);

DK:=D1+D2+D3+D4+D5+D6;

DRAWICON(DK>=5 ,14,'ICO149');

DRAWICON(DK<=1 ,14,'ICO148');

2楼

FireScript 发表于：2020/5/15 9:48:55

跨周期的改下就行了。

//3分钟

A3:=STKINDI('','XDIK1.A',0,17,0);

STICKLINE(A3>=0 , 8.5, 9.5, COLORRED,0 );
STICKLINE(A3<0 , 8.5, 9.5, COLORGREEN,0 );
//10分钟
A10:=STKINDI('','XDIK1.A',0,18,0);;

STICKLINE(A10>=0 , 7, 8, COLORRED,0 );
STICKLINE(A10<0 , 7, 8, COLORGREEN,0 );

//30分钟
A30:=STKINDI('','XDIK1.A',0,4,0);;

STICKLINE(A30>=0 , 5.5, 6.5, COLORRED,0 );
STICKLINE(A30<0 , 5.5, 6.5, COLORGREEN,0 );

//1小时
AHOUR:=STKINDI('','XDIK1.A',0,5,0);;

STICKLINE(AHOUR>=0 , 4, 5, COLORMAGENTA,0 );
STICKLINE(AHOUR<0 , 4, 5, COLORGREEN,0 );

//2小时
A240:=STKINDI('','XDIK1.A',0,24,2);;

STICKLINE(A240>0,2.5,3.5,COLORRED,0);
STICKLINE(A240<0,2.5,3.5,COLORGREEN,0);

//日

ADAY:=STKINDI('','XDIK1.A',0,6,0);;

STICKLINE(ADAY>0,1,2,COLORRED,0);
STICKLINE(ADAY<0,1,2,COLORGREEN,0);

//日线颜色
D1:=IFELSE(ADAY>=0 , 1,0);
//2小时颜色
D2:=IFELSE(A240>=0 , 1,0);
//1小时
D3:=IFELSE(AHOUR>=0 , 1,0);
//30分钟
D4:=IFELSE(A30>=0 , 1,0);
//10分钟
D5:=IFELSE(A10>=0 , 1,0);
//3分钟
D6:=IFELSE(A3>=0 , 1,0);
DK:=D1+D2+D3+D4+D5+D6;
DRAWICON(DK>=5 ,14,'ICO149');
DRAWICON(DK<=1 ,14,'ICO148');

共2 条记录, 每页显示 10 条, 页签: [1]