===============½Ã½ºÅÛ 1===========================

ÀԷº¯¼ö
ups(0.1)
dns(0.1)
gapup(0.3)
gapfill(0.3)
s2(3.0)


If opend>highd(1) Then	'½Ã°¡°¡ ÀüÀÏ°í°¡º¸´Ù Å©¸é
 Var1=100*((opend-highd(1))/highd(1))	'ÀüÀÏ°í°¡´ëºñ ½Ã°¡ÀÇ À§Ä¡
End If

If opend<lowd(1) Then	'½Ã°¡°¡ ÀüÀÏÀú°¡º¸´Ù ÀÛÀ¸¸é
 Var1=100*((lowd(1)-opend)/lowd(1))	'ÀüÀÏÀú°¡´ëºñ ½Ã°¡ÀÇ À§Ä¡
End If

If tdate<>tdate(1) Then
   Var50=currententrynum
End If    

Cond1=exitdate(1)=tdate And position(1)=1 'ÃÖ±Ùû»ê³¯Â¥°¡ ±ÝÀÏÀÌ°í Á÷ÀüÀÌ ¸Å¼ö
Cond2=exitdate(1)=tdate And position(1)=-1 'ÃÖ±Ùû»ê³¯Â¥°¡ ±ÝÀÏÀÌ°í Á÷ÀüÀÌ ¸Åµµ

'ÇÏ·ç¿¡ 3¹ø¸¸ ÁøÀÔ
If currententrynum-var50<=2 Then
 If ttime <1500 Then
  If opend>highd(1) And Var1>ups Then	'½Ã°¡°¡ ÀüÀÏ°í°¡º¸´Ù Å©°í Var1ÀÌ upsº¸´Ù Å©¸é
   If Cond1=False Then 'ÁöÁ¤°¡ »óÇâµ¹ÆĽà ¸Å¼ö  
   Call buy("GapUp¸Å¼ö",Atstop,Def,opend+(highd(1)-lowd(1))*gapup)
   End If
   If Cond2=False Then  
   Call sell("GapFill¸Åµµ",Atstop,Def, _
   max(highd(1),opend-(highd(1)-lowd(1))*gapfill))	'ÁöÁ¤°¡ ÇÏÇâµ¹ÆĽà ¸Åµµ
   End If
  End If
  If opend<lowd(1) And Var1>dns Then	'½Ã°¡°¡ ÀüÀÏÀú°¡º¸´Ù ÀÛ°í Var1ÀÌ dnsº¸´Ù Å©¸é
   If Cond2=False Then    'ÁöÁ¤°¡ ÇÏÇâµ¹ÆĽà ¸Åµµ
   Call sell("GapDown¸Åµµ",Atstop,Def,opend-(highd(1)-lowd(1))*gapup)
   End If
   If Cond1=False Then    
   Call buy("GapFill¸Å¼ö",Atstop,Def,_
   min(lowd(1),opend+(highd(1)-lowd(1))*gapfill))	'ÁöÁ¤°¡ »óÇâµ¹ÆĽà ¸Å¼ö
   End If
  End If
 End If
End If 

'û»ê
If position<>0 Then
  Call exitlong("¸Å¼öÃßÀû",Atstop,hhv(1,high,barnumsinceentry+1)-atr(20)*S2)
  Call exitshort("¸ÅµµÃßÀû",Atstop,llv(1,low,barnumsinceentry+1)+atr(20)*S2)
End If


===============½Ã½ºÅÛ 2===========================
ÀԷº¯¼ö
len1(10)
len2(20)
ob1(90)
os1(10)
ob2(70)
os2(30)
level(0.01)
s2(3.0)


Var1=fastk(len1)
Var2=fastk(len2)

Cond1=var1>ob1 And Var2>ob2 '°ú¸Å¼ö
Cond2=var1<os1 And Var2<os2 '°ú¸Åµµ

Cond50= tdate=exitdate(1) And position(1)=1 'ÃÖ±Ùû»ê³¯Â¥°¡ ±ÝÀÏÀÌ°í Á÷ÀüÀÌ ¸Å¼ö
Cond49= tdate=exitdate(1) And position(1)=-1'ÃÖ±Ùû»ê³¯Â¥°¡ ±ÝÀÏÀÌ°í Á÷ÀüÀÌ ¸Åµµ

'ÁøÀÔ
If ttime<1500 Then
  If Cond50=False Then 
   If Cond1 Then
    If opend<close Then 'Á¾°¡°¡ ½Ã°¡º¸´Ù Å©¸é
      Call buy("¸Å¼ö",Atstop,Def,high+Atr(20)*level)'ÁöÁ¤°¡ »óÇâµ¹ÆĽà ¸Å¼ö
    End If 
   End If
  End If 
  If Cond49=False Then 
   If Cond2 Then
    If opend>close Then 'Á¾°¡°¡ ½Ã°¡º¸´Ù ÀÛÀ¸¸é
      'Call sell("¸Åµµ",Atstop,Def,low-Atr(20)*level)'ÁöÁ¤°¡ ÇÏÇâµ¹ÆĽà ¸Åµµ
    End If 
   End If
  End If 
End If

'û»ê
If position<>0 Then
   Call exitlong("ÃßÀû½ºÅ¾",Atstop,hhv(1,high,barnumsinceentry+1)-atr(20)*s2)  
   Call exitshort("ÃßÀû½ºÅ¾",Atstop,llv(1,low,barnumsinceentry+1)+atr(20)*S2) 
End If