inputs:
   Price(Close),
   DEMASlowLength(9),
   DEMAFastLength(12) 
   ;

vars:
   DEMA_Fast(0),
   DEMA_Slow(0)
;

DEMA_Slow = DEMA(Price, DEMASlowLength) ;
DEMA_Fast = DEMA(Price, DEMAFastLength) ; 

if DEMA_Fast crosses over DEMA_Slow
   and MarketPosition <> 1
   then buy this bar at close ; 
   
If DEMA_Slow crosses over DEMA_Fast
   and MarketPosition <> -1
   then sellshort this bar at close ;

inputs:
   Price( Close ) [
      DisplayName = "Price", 
      ToolTip = "Enter an EasyLanguage expression to use in the exponential moving average calculation."],
   
   Length( 9 ) [
      DisplayName = "Length", 
      ToolTip = "Enter the number of bars used in the calculation of the smoothing factor used in the calculation of the moving average."],
   
   Displace( 0 ) [
      DisplayName = "Displace", 
      ToolTip = "Displacement.  Enter the number of bars by which plots will be displaced.  Displacement may be positive (left) or negative (right)."];

variables:
   AvgDEMA( 0 );

AvgDEMA = DEMA( Price, Length );

if Displace >= 0 or CurrentBar > AbsValue( Displace ) then 
begin
   Plot1[Displace]( AvgDEMA, !( "DEMA" ) );

   { alert criteria }
   if AlertEnabled and Displace <= 0 then 
   begin
      if Price > AvgDEMA and AvgDEMA > AvgDEMA[1] and AvgDEMA[1] <= AvgDEMA[2] then
         Alert( !( "Indicator turning up" ) ) 
      else if Price < AvgDEMA and AvgDEMA < AvgDEMA[1] and AvgDEMA[1] >= AvgDEMA[2] then
         Alert( !( "Indicator turning down" ) );
   end;
end;