设为首页收藏本站

 找回密码
 注册
查看: 733|回复: 0
打印 上一主题 下一主题

麻烦帮我看一下这个是不是有未来函数 [复制链接]

Rank: 1

精华
0
UID
279800
积分
5
帖子
3
主题
2
阅读权限
10
注册时间
2019-6-4
最后登录
2019-10-8
跳转到指定楼层
1#
发表于 2019-6-18 14:21:46 |只看该作者 |倒序浏览
本帖最后由 longzhanyuye 于 2019-6-25 13:23 编辑

// 简称: Weilian
// 名称: 威廉指标日线
// 类别: 公式应用
// 类型: 用户应用
// 输出:
//------------------------------------------------------------------------

Params       
Numeric Length1(10);       
Numeric Length(14) ;       
Numeric TrailingStart1(50); // 跟踪止盈启动设置1//
Numeric TrailingStart2(80); // 跟踪止盈启动设置2//
Numeric TrailingStop1(30); // 跟踪止盈设置1//
Numeric TrailingStop2(20); // 跟踪止盈设置2//
Numeric StopLossSet(30); //固定止损30个点//
Vars       
Numeric HH;       
Numeric Divisor;       
NumericSeries PRValue;       
NumericSeries NetChgAvg( 0 );       
NumericSeries TotChgAvg( 0 );       
Numeric SF( 0 );       
Numeric Change( 0 );       
Numeric ChgRatio( 0 ) ;       
NumericSeries RSIValue;       
NumericSeries HighestAfterEntry;
NumericSeries LowestAfterEntry;
Numeric MinPoint;
Numeric MyEntryPrice;
Numeric myprice;
Numeric myexitprice;
Begin        //计算WR指标//       
HH = Highest(High, Length1);       
Divisor = HH - Lowest(Low, Length1);       
If (Divisor <> 0 )               
PRValue = 100 - ( ( HH - Close ) / Divisor ) * 100;       
else               
PRValue = Divisor;        //计算RSI指标//               
If(CurrentBar <= Length - 1)       
{                NetChgAvg = ( Close - Close[Length] ) / Length ;               
TotChgAvg = Average( Abs( Close - Close[1] ), Length ) ;       
}Else       
{                SF = 1/Length;                Change = Close - Close[1] ;               
NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;               
TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;        }       
If( TotChgAvg <> 0 )       
{                ChgRatio = NetChgAvg / TotChgAvg;       
}else       
{                ChgRatio = 0 ;        }       
RSIValue = 50 * ( ChgRatio + 1 );       
If(!CallAuctionFilter()) Return;// 集合竞价和小节休息过滤       
If(MarketPosition <>1 && PRValue[1] >= 50 And RSIValue[1] >= 50)       
{                Buy(0,Open);        }       
If(MarketPosition <>-1 && PRValue[1] <= 50 And RSIValue[1] <= 50)       
{                SellShort(0,Open);        }       

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-4-20 17:57

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部