| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 公式模型编写问题提交 (http://222.73.7.161/bbs/list.asp?boardid=4) ---- 能否把这个文华的公式改为金字塔的？ (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=176046) |
| -- 作者：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\'); |
| -- 作者：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\'); |