以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  德马克序列大智慧公式，能转成金字塔的吗？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=51285)
--  作者：ccccbbbb
--  发布时间：2013/4/22 8:28:34
--  德马克序列大智慧公式，能转成金字塔的吗？

这是德马克序列大智慧公式，能转成

金字塔的吗？

a:="STSFunc@CALSTSL";
R1:="STSFunc@STS_RISK1";
R2:="STSFunc@STS_RISK2";
S1:="STSFunc@STS_STS1";
S2:="STSFunc@STS_STS2";
TBS:="STSFunc@STS_STSBS";
DN:="STSFunc@STS_STSDN";
UP:="STSFunc@STS_STSUP";

压力位:UP,linethick0,color0000ff,PRECIS2;
支撑位: DN,linethick0,color00ff00,PRECIS2;
警示位:IF(R1<>0,ABS(R1),IF(R2<>0,ABS(R2),0)),linethick0,colorff00ff,PRECIS2;
红轨道:MA(MA(CLOSE,3),1),LINETHICK2,COLOR0000FF;
绿轨道:MA(MA(CLOSE,3),3),LINETHICK2,COLOR00FF00;


DRAWLINE(UP>0,UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;
DRAWLINE(DN>0,DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;
DRAWLINE(UP<0,-UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;
DRAWLINE(DN<0,-DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;
DRAWLINE(R1>0,R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;
DRAWLINE(R2>0,R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;
DRAWLINE(R1<0,-R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;
DRAWLINE(R2<0,-R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;

drawbmp(TBS=1,l*0.96,\'STSbuy1.bmp\'),align1,valign0;
drawbmp(TBS=-1,h*1.07,\'STSsell1.bmp\'),align1,valign0;
drawbmp(S2=14,l*0.94,\'STSbuy.bmp\'),align1,valign0;
drawbmp(S2=-14,h*1.09,\'STSsell.bmp\'),align1,valign0;

drawtext(S1>0,L,STR(S1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S1<0,H*1.03,STR(-S1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S2>0 and S2<13,l*0.97,STR(S2)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2<0 and S2>-13,H*1.06,STR(-S2)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=13,l*0.97,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=14,l*0.97,\'13\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-13,h*1.06,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-14,h*1.06,\'13\'),color0000FF,LINETHICK1,align1,valign0;

 
--  作者：jinzhe
--  发布时间：2013/4/22 9:30:24
--  

a:="STSFunc@CALSTSL";
R1:="STSFunc@STS_RISK1";
R2:="STSFunc@STS_RISK2";
S1:="STSFunc@STS_STS1";
S2:="STSFunc@STS_STS2";
TBS:="STSFunc@STS_STSBS";
DN:="STSFunc@STS_STSDN";
UP:="STSFunc@STS_STSUP";

压力位:UP,linethick0,color0000ff,PRECIS2;
支撑位: DN,linethick0,color00ff00,PRECIS2;
警示位:IF(R1<>0,ABS(R1),IF(R2<>0,ABS(R2),0)),linethick0,colorff00ff,PRECIS2;
红轨道:MA(MA(CLOSE,3),1),LINETHICK2,COLOR0000FF;
绿轨道:MA(MA(CLOSE,3),3),LINETHICK2,COLOR00FF00;


DRAWLINE(UP>0,UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;
DRAWLINE(DN>0,DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;
DRAWLINE(UP<0,-UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;
DRAWLINE(DN<0,-DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;
DRAWLINE(R1>0,R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;
DRAWLINE(R2>0,R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;
DRAWLINE(R1<0,-R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;
DRAWLINE(R2<0,-R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;

drawbmp(TBS=1,l*0.96,\'STSbuy1.bmp\'),align1,valign0;
drawbmp(TBS=-1,h*1.07,\'STSsell1.bmp\'),align1,valign0;
drawbmp(S2=14,l*0.94,\'STSbuy.bmp\'),align1,valign0;
drawbmp(S2=-14,h*1.09,\'STSsell.bmp\'),align1,valign0;

drawtext(S1>0,L,STR(S1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S1<0,H*1.03,STR(-S1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S2>0 and S2<13,l*0.97,STR(S2)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2<0 and S2>-13,H*1.06,STR(-S2)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=13,l*0.97,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=14,l*0.97,\'13\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-13,h*1.06,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-14,h*1.06,\'13\'),color0000FF,LINETHICK1,align1,valign0;

 

如上修改，还需要有对应dll公式
--  作者：ccccbbbb
--  发布时间：2013/4/22 10:35:19
--  
STR没有定义？？？？？
--  作者：jinzhe
--  发布时间：2013/4/22 10:41:48
--  

a:="STSFunc@CALSTSL";
R1:="STSFunc@STS_RISK1";
R2:="STSFunc@STS_RISK2";
S1:="STSFunc@STS_STS1";
S2:="STSFunc@STS_STS2";
TBS:="STSFunc@STS_STSBS";
DN:="STSFunc@STS_STSDN";
UP:="STSFunc@STS_STSUP";

压力位:UP,linethick0,color0000ff,PRECIS2;
支撑位: DN,linethick0,color00ff00,PRECIS2;
警示位:IF(R1<>0,ABS(R1),IF(R2<>0,ABS(R2),0)),linethick0,colorff00ff,PRECIS2;
红轨道:MA(MA(CLOSE,3),1),LINETHICK2,COLOR0000FF;
绿轨道:MA(MA(CLOSE,3),3),LINETHICK2,COLOR00FF00;


DRAWLINE(UP>0,UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;
DRAWLINE(DN>0,DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;
DRAWLINE(UP<0,-UP,UP<>REF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;
DRAWLINE(DN<0,-DN,DN<>REF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;
DRAWLINE(R1>0,R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;
DRAWLINE(R2>0,R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;
DRAWLINE(R1<0,-R1,R1<>REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;
DRAWLINE(R2<0,-R2,R2<>REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;

drawbmp(TBS=1,l*0.96,\'STSbuy1.bmp\'),align1,valign0;
drawbmp(TBS=-1,h*1.07,\'STSsell1.bmp\'),align1,valign0;
drawbmp(S2=14,l*0.94,\'STSbuy.bmp\'),align1,valign0;
drawbmp(S2=-14,h*1.09,\'STSsell.bmp\'),align1,valign0;

drawtext(S1>0,L,numtostr(S1,1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S1<0,H*1.03,numtostr(-S1,1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S2>0 and S2<13,l*0.97,numtoSTR(S2,1)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2<0 and S2>-13,H*1.06,numtoSTR(-S2,1)),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=13,l*0.97,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=14,l*0.97,\'13\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-13,h*1.06,\'+\'),color0000FF,LINETHICK1,align1,valign0;
drawtext(S2=-14,h*1.06,\'13\'),color0000FF,LINETHICK1,align1,valign0;

 

还需要有对应dll公式
 
[此贴子已经被作者于2013-4-22 10:42:10编辑过]
--  作者：RogarZ
--  发布时间：2013/4/22 16:33:57
--  
策略发布区 不是有这个吗？
--  作者：ccccbbbb
--  发布时间：2013/4/22 20:10:13
--  


图片点击可在新窗口打开查看此主题相关图片如下：快照2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：快照3.jpg
图片点击可在新窗口打开查看


策略发布区的太简陋了。

还是出错。

 

[此贴子已经被作者于2013-4-22 20:11:39编辑过]
--  作者：jinzhe
--  发布时间：2013/4/23 9:14:08
--  
找大智慧的人要这个dll文件
--  作者：ccccbbbb
--  发布时间：2013/4/23 21:21:59
--  
曼施坦因元帅，dll倒是解决了，数排列和大智慧不一样？
[此贴子已经被作者于2013-4-23 21:23:49编辑过]
--  作者：ccccbbbb
--  发布时间：2013/4/23 22:33:36
--  

 


图片点击可在新窗口打开查看此主题相关图片如下：快照4.jpg
图片点击可在新窗口打开查看
--  作者：jinzhe
--  发布时间：2013/4/24 9:14:40
--  
那么得要说明公式思路了，光有代码进行改写看来行不通