# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=Random Entry System
Name=RandomEntrySystem
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=1
Multiplot_color_0=33587200
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
UpdateByTick=0
TradingSystemUI=1
PrimaryLinkOnly=1
NotifyOnRemoval=0
Param_count=1
Param_name_0=Random Seed
Param_inuse_0=1
Param_type_0=integer.gt.0
Param_default_0=10
Explanation_Lines=0
# NEOTICKER DATA END

' Random Entry System
' Written by Lawrence Chan
' Copyright © 2006 by TickQuest Inc.
' All rights reserved

' random stream initialization should be done only once

randomstreamseed (firstcall, 1, param1);

plot1 := currentequity;

' each call to randomstreaminteger will result in a new random number generated

$go_long := randomstreaminteger (1, 5) < 1;
$go_short := randomstreaminteger (1, 5) < 1;

longatmarket ($go_long > 0 and $go_short <= 0, defaultordersize);
shortatmarket ($go_long <= 0 and $go_short > 0, defaultordersize);