以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://www.weistock.com/bbs/list.asp?boardid=2)
----  [求助]公式全部改成做空  (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=148614)
--  作者：tsh624885646
--  发布时间：2017/3/3 14:43:24
--  [求助]公式全部改成做空

//定义参数
Input:N(81,1,100,10),P1(14,2,40,4),P2(14,2,40,4),P3(36,10,100,2);

//中间变量 
Variable:ls=0,Gl=0,Dl=0;
Num:=2;
Em:Ema(Close,34);//收盘价34期EMA
Sm:Sma(Close,8,1);//收盘价8期SMA
Rsv:=(Close-Llv(Low,N))/(Hhv(High,N)-Llv(Low,N))*100;
K:Sma(RSV,P1,1),NOAXIS;
D:Sma(K,P2,1),noaxis;
Tp:=Valuewhen(Cross(k,d),High);//KD交叉时对应高点
Gj:=Valuewhen(H>=HHV(High,P3),High);//前一轮行情最高价
Cond4:=Barslast(H>=HHV(High,P3));//前一轮行情高点到现在的周期数
Dj:=Llv(Low,Cond4);//前一轮行情最低价

Cond1:=Sm>Em;
Cond2:=Cross(K,D);//K、D交叉
Cond3:=Barslast(COND2)<=4 AND High>Tp;//KD交叉以后四个周期内,价格突破
BuyCond:Cond1 And K>D And Cond3 ;//开仓条件


//下单语句
If BuyCond And Holding=0 Then
   Begin
   Buy(1,Num,Market);
   Gl:=Gj;//开仓时前一轮行情高价
   Dl:=Dj;//开仓时前一轮最低价
   ls:=Gl-Dl;//区间幅度
   End
   
//幅度止损部分  
If Enterprice>=Gl And Close<=Dl+0.618*ls Then Sell(1,Num,Market);
If Enterprice>=Dl+0.786*ls And Enterprice<=Gl And Close<=Dl+0.5*ls Then Sell(1,Num,Market);
If Enterprice>=Dl+0.5*ls And Enterprice<=Dl+0.786*ls And Close<=Dl+0.236*ls Then Sell(1,Num,Market);
If Enterprice>=Dl+0.236*ls And Enterprice<Dl+0.5*ls And Close<=Dl Then Sell(1,Num,Market);

//幅度止盈部分
If Close>=Dl+1.272*ls Then Sell(1,Intpart(Num/2),Market);
If Close>=Dl+1.618*ls Then Sell(1,0,Market);

 

把这个公式全部改成做空的
--  作者：shq
--  发布时间：2017/3/3 14:47:03
--  
楼主，请自己修改。做空语句是buyshort与sellshort，条件部分自己根据思想修改即可。


【必看】隆重推出“论坛VIP身份认证”，更好、更快地为您服务！详情请看置顶帖。
--  作者：tsh624885646
--  发布时间：2017/3/3 15:05:31
--  
我不会改，我才开始学习，麻烦您帮我改一下，可以做多，也可以做空！
--  作者：qq代人发帖
--  发布时间：2017/3/3 15:21:13
--  

只改交易指令是没有用的，建议客户自己学习编写

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=55132

 
--  作者：tsh624885646
--  发布时间：2017/3/3 16:55:02
--  
好的 谢谢
--  作者：tsh624885646
--  发布时间：2017/3/6 18:53:07
--  

我改成这样，但是好像哪里不对呀？麻烦帮我看看

 

//中间变量
Variable:ls=0,Gl=0,Dl=0;
Num:=2;
Em:Ema(Close,34);//收盘价34期EMA
Sm:Sma(Close,8,1);//收盘价8期SMA
Rsv:=(Close-Llv(Low,N))/(Hhv(High,N)-Llv(Low,N))*100;
K:=Sma(RSV,P1,1),NOAXIS;
D:=Sma(K,P2,1),noaxis;
Tp:=Valuewhen(Cross(D,K),LOW);//KD交叉时对应低点
Gj:=Valuewhen(L<=LLV(LOW,P3),LOW);//前一轮行情最低价
Cond4:=Barslast(L<=LLV(LOW,P3));//前一轮行情低点到现在的周期数
Dj:=HHV(high,Cond4);//前一轮行情最高价

Cond1:=Sm<Em;
Cond2:=Cross(D,K);//K、D交叉
Cond3:=Barslast(COND2)<=4 AND LOW<Tp;//KD交叉以后四个周期内,价格突破
BuyCond:=Cond1 And K<D And Cond3 ;//开仓条件


//下单语句
If BuyCond And Holding=0 Then
   Begin
   BUYSHORT(1,Num,Market);
   Gl:=Gj;//开仓时前一轮行情低价
   Dl:=Dj;//开仓时前一轮最高价
   ls:=Dl-GL;//区间幅度
   End
  
//幅度止损部分 
If Enterprice>=Dl And Close<=Dl-0.382*ls Then SELLSHORT(1,Num,Market);
If Enterprice<=Gl-1.786*ls And Enterprice>=Dl And Close>=Gl-1.5*ls Then SELLSHORT(1,Num,Market);
If Enterprice<=Gl-1.5*ls And Enterprice>=Gl-1.786*ls And Close>=Gl-1.236*ls Then SellSHORT(1,Num,Market);
If Enterprice<=Gl-1.236*ls And Enterprice>Gl-1.5*ls And Close>=Gl Then SellSHORT(1,Num,Market);

//幅度止盈部分
If Close<=Gl-0.272*ls Then SellSHORT(1,Intpart(Num/2),Market);
If Close<=Gl-0.618*ls Then SellSHORT(1,0,Market);

 
--  作者：shq
--  发布时间：2017/3/7 8:38:58
--  
请编写完公式后点击“编译公式”按钮，进行初步调试。目前就您6楼提供的代码，反馈的第一个便是 未定义的变量N。

后续代码存在疑问，用户需自行掌握调试技巧，详情：http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=1246
--  作者：tsh624885646
--  发布时间：2017/3/7 18:53:02
--  

Input:N(81,1,100,10),P1(14,2,40,4),P2(14,2,40,4),P3(36,10,100,2);

 

//中间变量
Variable:ls=0,Gl=0,Dl=0;
Num:=2;
Em:Ema(Close,34);//收盘价34期EMA
Sm:Sma(Close,8,1);//收盘价8期SMA
Rsv:=(Close-Llv(Low,N))/(Hhv(High,N)-Llv(Low,N))*100;
K:=Sma(RSV,P1,1),NOAXIS;
D:=Sma(K,P2,1),noaxis;
Tp:=Valuewhen(Cross(D,K),LOW);//KD交叉时对应低点
Gj:=Valuewhen(L<=LLV(LOW,P3),LOW);//前一轮行情最低价
Cond4:=Barslast(L<=LLV(LOW,P3));//前一轮行情低点到现在的周期数
Dj:=HHV(high,Cond4);//前一轮行情最高价

Cond1:=Sm<Em;
Cond2:=Cross(D,K);//K、D交叉
Cond3:=Barslast(COND2)<=4 AND LOW<Tp;//KD交叉以后四个周期内,价格突破
BuyCond:=Cond1 And K<D And Cond3 ;//开仓条件


//下单语句
If BuyCond And Holding=0 Then
   Begin
   BUYSHORT(1,Num,Market);
   Gl:=Gj;//开仓时前一轮行情低价
   Dl:=Dj;//开仓时前一轮最高价
   ls:=Dl-GL;//区间幅度
   End
  
//幅度止损部分 
If Enterprice>=Dl And Close<=Dl-0.382*ls Then SELLSHORT(1,Num,Market);
If Enterprice<=Gl-1.786*ls And Enterprice>=Dl And Close>=Gl-1.5*ls Then SELLSHORT(1,Num,Market);
If Enterprice<=Gl-1.5*ls And Enterprice>=Gl-1.786*ls And Close>=Gl-1.236*ls Then SellSHORT(1,Num,Market);
If Enterprice<=Gl-1.236*ls And Enterprice>Gl-1.5*ls And Close>=Gl Then SellSHORT(1,Num,Market);

//幅度止盈部分
If Close<=Gl-0.272*ls Then SellSHORT(1,Intpart(Num/2),Market);
If Close<=Gl-0.618*ls Then SellSHORT(1,0,Market);

 
--  作者：tsh624885646
--  发布时间：2017/3/7 18:55:13
--  

有变量的，一楼的变量！我编译公式成功的，但是把图表放小后，信号就消失不见了

 
--  作者：wenarm
--  发布时间：2017/3/8 8:32:34
--  

历史信号受K线数量的影响，尤其你其中还使用对数据比较敏感的函数sma.

所以会在成信号的变化