可以分几个豆腐块给我试试
email:nk_wwang@sina.com.cn 我也要加入,行不 我也要加入,我现在大四,时间和精力都有,E文也经常读.shmilya999@sohu.com
"新来"签到,请派任务!!
"新来"签到,请派任务!! HYLT朋友回来了没有？WLD的翻译要开始啦！！ 斑竹你好！给我发个邮件告诉我翻译什么呀
请教班主和高手,下面的一段程序能否帮忙解释一下,谢谢!!!
请教班主和高手,下面的一段程序是TS的资金管理程序,和分析家的很相似,能否帮忙解释一下,另外不知能否做为一个子程序,在飞弧中调用.谢谢!!!The Simplest System #3 with Money Management.
Copyright2002 DT
****************************************************}
Input: Price((H+L)*.5),
PtUp(4.), PtDn(4.), {Max correction to change trend}
MM_Model(2), {1 = % Risk Model; 2 = % Volatility Model;
3 = Drawdown Model; 4 = Kelly Model; 5 = Williams' Model;
6 = Fixed Ratio Model; 7= Market Money Model}
MM(1), {% Risk parameter}
MM_add(0), {% Risk for playing market money; 0 to disactivate}
MaxVolat(100), {% Risk for playing market money; 100 to disactivate}
MaxDD(20), {% Drawdown}
InitCapital(100000); {Initial capital to trade}
Vars: LL(99999), HH(0), Trend(0), Volat(TrueRange);
Vars: MP(0), Risk(Range), Num(1), add_num(0), red_num(0), FRDelta(0), DD(0),
Equity(InitCapital), TotalEquity(InitCapital), EqTop(InitCapital),
AssuredProfit(0), HPositionProfit(0), Kelly(0);
MP = MarketPosition;
Volat = .5 * TrueRange + .5*Volat;
if MP <= 0 then begin
if Price < LL then LL = Price;
if Price cross above LL*(1 + PtUp*.01) then begin
Trend = 1;
HH = Price;
end;
end;
if MP >= 0 then begin
if Price > HH then HH = Price;
if Price cross below HH*(1 - PtDn*.01) then begin
Trend = -1;
LL = Price;
end;
end;
If trend = 1 then Risk = PtDn * .01 * close {+ Slippage};
If trend = -1 then Risk = PtUp * .01 * close {+ Slippage};
HPositionProfit = maxlist( OpenPositionProfit, HPositionProfit);
AssuredProfit = HPositionProfit - Risk;
Equity = InitCapital + NetProfit;
TotalEquity = Equity + OpenPositionProfit;
EqTop = MaxList(EqTop, TotalEquity);
if MM_Model = 1 then { % Risk Model }
Num = floor(MM * Equity *.01/Risk);
if MM_Model = 2 then { % Volatility Model }
Num = floor(MM * Equity *.01/ Volat / BigPointValue );
if MM_Model = 3 then begin { Drawdown Model }
Num = floor(MM * (Equity - (1 - MaxDD*.01) * EqTop) * .01 / Volat / BigPointValue);
end;
if MM_Model = 4 then begin { Kelly Model }
If TotalTrades > 20 and GrossProfit > 0 then
Kelly = NumWinTrades/TotalTrades * (1 - GrossLoss/GrossProfit)
else
Kelly = 0.1;
if Kelly > .9 then Kelly = .9;
Num = floor(MM * Kelly * Equity * .01 / Risk);
{Print(Kelly);}
end;
if MM_Model = 5 then begin { Larry Williams' Model }
value11 = MaxList(-LargestLosTrade / MaxList(CurrentContracts, 1) , Risk);
Num = floor(MM * Equity *.01 / value11);
end;
if MM_Model = 6 then begin { Fixed Ratio Model }
{ DD = MaxList(DD, (EqTop - TotalEquity)/MaxList(CurrentContracts, 1)) ; {Max Drawdown}
if TotalTrades > 20 and DD > 0 then FRDelta = MM * DD *.01
else }
FRDelta = MM * volat * BigPointValue * .01; {Delta}
value12 = MaxList(Equity - .5*close*(close + FRDelta)/FRDelta, 0.25);
Num = floor(SquareRoot(2*value12/FRDelta + .25) + .5);
end;
if MM_Model = 7 then { Playing the market money }
num = floor((MM * (InitCapital + MinList(NetProfit, 0)) + MM_add * MaxList(NetProfit, 0)) * .01 / Volat / BigPointValue);
{ Entries}
if trend = 1 and trend <> 1 then buy("Trend.LE") num contracts at market;
if trend = -1 and trend <> -1 then sell("Trend.SE") num contracts at market;
add_num = floor( MM_add * AssuredProfit * .01/ Volat / BigPointValue); { Assured Profit Pyramiding }
if add_num > 0 and OpenPositionProfit > Volat * BigPointValue then begin
if Trend = 1 and MP = 1 then buy("Add.LE") add_num contracts at market;
if Trend = -1 and MP = -1 then sell("Add.SE") add_num contracts at market;
end;
red_num = floor((CurrentContracts * Volat * BigPointValue - MaxVolat * TotalEquity * .01)/ close);
if red_num > 0 then begin
if Trend = 1 and MP = 1 then exitlong("Red.LX") red_num contracts at market;
if Trend = -1 and MP = -1 then exitshort("Red.SX") red_num contracts at market;
end;
if Num < 1 then Num = 1; 谢谢 我参加一个行吗？ 请问书的英文名是什么？ Originally posted by 刘诗悦 at 2004-10-24 23:42
我参加一个行吗？
欢迎朋友加入！请等待新工作！！ 欢迎楼上各位朋友加入翻译小组，等新工作开始了，一定请大家帮忙！谢谢大家！！！！！！ Originally posted by Stanwell at 2004-11-10 18:36
请问书的英文名是什么？
《交易策略百科全书》 Originally posted by 六月河 at 2004-8-30 08:11
关注中。
[ Last edited by xja on 2004-11-15 at 08:04 ] okkkk 心有余而力不足,只好为大家打气了:加油啊~ armor killer,i finished my part,available in .doc format including pictures from the origianl book to upload.how to deal with it?ur command works.hope ur next order.
需要帮忙吗
页:
1
[2]