Kase Filter Expert - MetaStock.com Forum

Welcome Guest! To enable all features please Login or Register.

Notification

Error

Kase Filter Expert - Kase Filter Expert

Options

Previous Topic Next Topic

henry1224		#1 Posted : Tuesday, April 19, 2005 7:24:41 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		You will need to have the PowerPivots Plus Add-on installed to have this expert work Highlights Long Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Symbol Long Entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short Entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0


User Profile View All Posts by User View Thanks


	Wanna join the discussion?! Login to your Discussions forum account or Register a new forum account.

henry1224		#2 Posted : Tuesday, April 19, 2005 7:41:42 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		you will need the PowerPivots Plus Add-on for this Expert to work Highlights Long Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long Entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short Entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short Exit


User Profile View All Posts by User View Thanks

henry1224		#3 Posted : Tuesday, April 19, 2005 7:42:44 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0


User Profile View All Posts by User View Thanks

henry1224		#4 Posted : Tuesday, April 19, 2005 7:46:58 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		Darn those smileys Here is the Expert again Highlights Long Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long Entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short Exit Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-1.92,MN-(1.33SD),-1.92); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=Cross(LN1,0) and TD=1; SE:=Cross(0,LN1) and TD=-1; LX:=Cross(0,LN1) and TD>=0; SX:=Cross(LN1,0) and TD<=0; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0


User Profile View All Posts by User View Thanks

henry1224		#5 Posted : Sunday, July 31, 2005 12:43:06 AM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		Highlights LONG : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = 1 SHORT : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = -1 out : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = 0 Symbols tab ENTER LONG : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = 1 AND Ref(B,-1) <> 1 ENTER SHORT : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = -1 AND Ref(B,-1) <> -1 EXIT LONG : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = 0 AND Ref(B,-1) = 1 EXIT SHORT : Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); MN:=Mov(Pk,30,S); SD:=Stdev(Pk,30); Val1:=If(MN+(1.33SD)>2.08,MN+(1.33SD),2.08); Val2:=If(MN-(1.33SD)<-2.08,MN-(1.33SD),-2.08); LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); LE:=Cross(LN1,0); SE:=Cross(0,LN1); LX:=0; SX:=0; B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); B = 0 AND Ref(B,-1) = -1


User Profile View All Posts by User View Thanks

Users browsing this topic
Guest (Hidden)

Forum Jump

You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.