# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=Moving Average Crossover with Position Sizing System
Name=sys_2ma_ps
Language=Formula
Links=1
MinBars=0
TimerInterval=100
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=1
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
UpdateByTick=0
TradingSystemUI=1
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=4
Param_name_0=Fast Period
Param_inuse_0=1
Param_type_0=integer.gt.1
Param_default_0=5
Param_name_1=Slow Period
Param_inuse_1=1
Param_type_1=integer.gt.1
Param_default_1=50
Param_name_2=Contract Risk
Param_inuse_2=1
Param_type_2=real
Param_default_2=10000
Param_name_3=Margin Requirement
Param_inuse_3=1
Param_type_3=real
Param_default_3=3000
Explanation_Lines=0
# NEOTICKER DATA END

' Moving Average Crossover with Position Sizing System
' Written by Lawrence Chan
' Copyright (c) 2005 by TickQuest Inc.
' All rights reserved

plot1 := currentequity;

ma1 := average (data1, param1);
ma2 := average (data1, param2);

$riskpossize := int (currentequity / param3);
$accountmaxsize := int (currentequity / param4);

longatmarket (xabove (ma1, ma2) > 0, $riskpossize);

longexitatmarket (
   openpositionlong > 0
   and openpositionabssize > $accountmaxsize,
   openpositionabssize - $accountmaxsize);

shortatmarket (xbelow (ma1, ma2) > 0, $riskpossize);

shortexitatmarket (
   openpositionshort > 0
   and openpositionabssize > $accountmaxsize,
   openpositionabssize - $accountmaxsize);