论坛全局菜单下方 - TICKMILL 285X70论坛全局菜单下方 - ThinkMarkets285X70论坛全局菜单下方 - 荔枝返现285X70论坛全局菜单下方 -  icmarkets285X70
查看:812回复:2
bluse
注册时间2004-06-05
求教编程高手~~
楼主发表于:2005-07-12 03:52只看该作者倒序浏览
1楼 电梯直达
电梯直达
我有个在mt3.83上的自编指标,在mt4.0上调不出来了,哪位高手能帮我一下吗?先谢过了 指标如下: /*[[ Name := RSI MA Author := Copyright ?2003, Fostar Link := [email protected] Separate Window := Yes First Color := Lime First Draw Type := Line First Symbol := 217 Use Second Data := Yes Second Color := Red Second Draw Type := Line Second Symbol := 218 ]]*/ Inputs: RsiPeriod(14), Price_C_O_H_L_M_T_W(0), //0..6 /* PRICE_CLOSE - 0 PRICE_OPEN - 1 PRICE_HIGH - 2 PRICE_LOW - 3 PRICE_MEDIAN - 4 PRICE_TYPICAL - 5 PRICE_WEIGHTED - 6 */ MAPeriod(8), MAType_Simp_E_Smo_W(0), //0..3 /* MODE_SMA - 0 MODE_EMA - 2 MODE_SMMA - 2 MODE_WMA - 3 */ MAShift(0), BarsCount(300); Variable : shift(0), value(0), sum(0), n(0), MA(0), bars_(0), smconst(0), prev(0); Variable: weight(0), linear(0); SetLoopCount(0); if BarsCount > 0 then { if BarsCount > Bars then {bars_ = Bars;} else {bars_ = BarsCount;} } else {bars_ = Bars;}; smconst = 2 / (1 + MAPeriod); For shift = bars_-1 Downto 0 Begin value = iRSIEx(RsiPeriod, 1, Price_C_O_H_L_M_T_W, MODE_FIRST, shift); SetIndexValue(shift, value); if (shift < bars_ - (RsiPeriod + MAPeriod + MAShift)) and (MAPeriod > 1) then begin Switch MAType_Simp_E_Smo_W Begin case 0://Simple sum = 0; for n = 0 to MAPeriod -1 begin sum = sum + GetIndexValue(shift + n + MAShift); end; MA = sum/MAPeriod; SetIndexValue2(shift, MA); case 1://Exponential prev = GetIndexValue2(shift + 1 - MAShift); MA = smconst * (value - prev) + prev; SetIndexValue2(shift - MAShift, MA); case 2://Smoothed If shift = bars_ - MAPeriod Then Begin sum = 0; For n = 0 To MAPeriod-1 Begin sum = sum + GetIndexValue(shift+n + MAShift); End; End Else Begin prev = GetIndexValue2(shift + 1); sum = prev*MAPeriod - prev + GetIndexValue(shift + MAShift); End; MA = sum/MAPeriod; SetIndexValue2(shift, MA); case 3: //Linear weighted sum = 0; weight = 0; linear = MAPeriod; For n = 0 To MAPeriod-1 Begin sum = sum + GetIndexValue(shift + n + MAShift) * linear; weight = weight + linear; linear = linear - 1; End; MA = sum/weight; SetIndexValue2(shift, MA); default://Simple sum = 0; for n = 0 to MAPeriod -1 begin sum = sum + GetIndexValue(shift + n + MAShift); end; MA = sum/MAPeriod; SetIndexValue2(shift, MA); end; end; End;
TK29帖子1楼右侧xm竖版广告90-240
个性签名

广告
TK30+TK31帖子一樓廣告
TK30+TK31帖子一樓廣告
mix
注册时间2005-05-14
365
发表于:2005-07-12 04:13只看该作者
2楼
你太强了 指标有用吗?
vega
注册时间2005-04-12
发表于:2005-07-12 04:22只看该作者
3楼
mt3和mt4的编程本来就不一样嘛。 楼主聪明一世糊涂一时了。

本站免责声明:

1、本站所有广告及宣传信息均与韬客无关,如需投资请依法自行决定是否投资、斟酌资金安全及交易亏损风险;

2、韬客是独立的、仅为投资者提供交流的平台,网友发布信息不代表韬客的观点与意思表示,所有因网友发布的信息而造成的任何法律后果、风险与责任,均与韬客无关;

3、金融交易存在极高法律风险,未必适合所有投资者,请不要轻信任何高额投资收益的诱导而贸然投资;投资保证金交易导致的损失可能超过您投入的资金和预期。请您考虑自身的投资经验及风险承担能力,进行合法、理性投资;

4、所有投资者的交易帐户应仅限本人使用,不应交由第三方操作,对于任何接受第三方喊单、操盘、理财等操作的投资和交易,由此导致的任何风险、亏损及责任由投资者个人自行承担;

5、韬客不隶属于任何券商平台,亦不受任何第三方控制,韬客不邀约客户投资任何保证金交易,不接触亦不涉及投资者的任何资金及账户信息,不代理任何交易操盘行为,不向客户推荐任何券商平台,亦不存在其他任何推荐行为。投资者应自行选择券商平台,券商平台的任何行为均与韬客无关。投资者注册及使用韬客即表示其接受和认可上述声明,并自行承担法律风险。

版权所有:韬客外汇论坛 www.talkfx.com 联络我们:[email protected]