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

Notification

Icon
Error

Options
Go to last post Go to first unread
Jose  
#1 Posted : Friday, May 6, 2005 10:55:31 PM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
[code:1:8e62d05ed2] ============= Luscious Lips ============= ---8<------------------------ { Luscious Lips - the markets speak - v1.0 } { Lips/Ellipse bounded by High & Low of selected period.} { Use red, plum or purple plot colors.} { ©Copyright 2005 Jose Silva } { For personal use only } { http://www.metastocktools.com } { User inputs } pds1:=Input("Start periods ago",2,2600,70); pds2:=Input("End periods ago",0,2600,5); plot:=Input("[1]Ellipse, [2]Fill, [3]Both", 1,3,2); { Remove possible errors introduced between keyboard & seat ;) } p1:=LastValue(Max(pds1,pds2)); p2:=LastValue(Min(pds1,pds2)); p1:=If(p1<(p2+2),p2+2,p1); { Define/Restrict plot period } start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); { Upper/Lower lip boundaries } Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; { Ellipse - with thanks to MG Ferreira } midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; { Eye candy } even:=Cum(1)/2=Int(Cum(1)/2); fill1:=If(even,upperE,lowerE); fill2:=If(even,lowerE,upperE); { Plot in price chart } If(plot=2,fill1,upperE); If(plot=2,fill2,lowerE); If(plot=1,upperE,fill1); If(plot=1,lowerE,fill2) ---8<------------------------ [/code:1:8e62d05ed2] jose '-) http://www.metastocktools.com
minnamor  
#2 Posted : Saturday, May 7, 2005 9:28:17 AM(UTC)
minnamor

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 4/27/2005(UTC)
Posts: 126
Location: Italy

This is really a major feat of MS programming! Any suggestion on the use of the pattern or where such information can be found? I could see the application of this in implemeting the PHI-Ellipse described in "The New Fibonacci Trader" by Robert Fisher.
Jose  
#3 Posted : Saturday, May 7, 2005 2:13:48 PM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
This indicator is similar to the Boxed-Ellipse pattern, both of which probably have little use for trading, but may be somewhat useful in detecting patterns. Personally, I just find it entertaining to plot the indicator, and zoom in/out the price chart - perhaps I may need a new hobby. :) jose '-) http://www.metastocktools.com
Jose  
#4 Posted : Sunday, May 8, 2005 7:35:47 AM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
New! New! New! Version 2 - now with lip gloss maximum factor (Max Factor parameter). :D [code:1:e7fc25ce9d] ============= Luscious Lips ============= ---8<------------------------ { Luscious Lips - the chart speaks - v2.0 } { Lips/Ellipse bounded by chart's High & Low of selected period.} { Plot on price chart with Red, Plum or Purple colors. Zoom-in & out for fuller lips.} { ©Copyright 2005 Jose Silva } { For personal use only } { http://www.metastocktools.com } { User inputs } pds1:=Input("Start periods ago",2,2600,70); pds2:=Input("End periods ago",0,2600,5); gloss:=Input("Lip gloss - Max Factor", 1,100,100); plot:=Input("[1]Ellipse, [2]Fill, [3]Both", 1,3,2); { Remove possible errors introduced between keyboard & seat ;) } p1:=LastValue(Max(pds1,pds2)); p2:=LastValue(Min(pds1,pds2)); p1:=If(p1<(p2+2),p2+2,p1); { Define/Restrict plot period } start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); { Upper/Lower lip boundaries } Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; { Ellipse - with thanks to MG Ferreira } midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; { Lipstick } gloss:=Int(200*Power(gloss,-1)); even:=Cum(1)/gloss=Int(Cum(1)/gloss); fill1:=If(even,upperE,lowerE); fill2:=If(even,lowerE,upperE); { Plot in price chart } If(plot=2,fill1,upperE); If(plot=2,fill2,lowerE); If(plot=1,upperE,fill1); If(plot=1,lowerE,fill2) ---8<------------------------ [/code:1:e7fc25ce9d] jose '-) http://www.metastocktools.com
Jose  
#5 Posted : Sunday, May 8, 2005 9:22:30 PM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
The "Luscious Lips" MetaStock indicator is a visual/fun thing - not really suitable for explorations. MetaStock -> Tools -> Indicator Builder -> New -> Copy and paste complete formula between "---8<---" lines. jose '-) http://www.metastocktools.com
Jose  
#6 Posted : Tuesday, May 10, 2005 2:33:31 AM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
And here's another indicator variation: the market's eye: [code:1:b3ae00b463] ============ Market's eye ============ ---8<---------------------------- { Keep an eye on your charts... v1.0 } { Hint: trade in the opposite direction to the market eye's gaze. Outside zone bounded by chart's High & Low of selected period. Plot on price chart with dark colors. Zoom chart in & out for effects.} { ©Copyright 2005 Jose Silva } { For personal use only } { http://www.metastocktools.com } { User inputs } pds1:=Input("Start periods ago",2,2600,70); pds2:=Input("End periods ago",0,2600,5); spread:=Input("Iris size",0,2600,10); spread:= LastValue(Int(Min((pds1-pds2)/4,spread))); { Remove possible errors introduced between keyboard & seat ;) } p1:=LastValue(Max(pds1,pds2)); p2:=LastValue(Min(pds1,pds2)); p1:=If(p1<(p2+2),p2+2,p1); { Eyeball } start:=Cum(1)=LastValue(Cum(1))-p1; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE1:=Lo+midY+ellipse; lowerE1:=Hi-midY-ellipse; { Cornea } p1:=p1-spread; p2:=p2+spread; start:=Cum(1)=LastValue(Cum(1))-p1; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE2:=Lo+midY+ellipse; lowerE2:=Hi-midY-ellipse; { Iris } p1:=p1-spread; p2:=p2+spread; start:=Cum(1)=LastValue(Cum(1))-p1; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE3:=Lo+midY+ellipse; lowerE3:=Hi-midY-ellipse; even:=Cum(1)/2=Int(Cum(1)/2); { Plot on price chart } If(even,upperE3,lowerE3); If(even,lowerE3,upperE3); upperE1;lowerE1; upperE2;lowerE2; upperE3;lowerE3 ---8<---------------------------- [/code:1:b3ae00b463] jose '-) http://www.metastocktools.com
Patrick  
#7 Posted : Tuesday, May 10, 2005 2:34:20 AM(UTC)
Patrick

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers
Joined: 9/8/2004(UTC)
Posts: 2,266

Was thanked: 1 time(s) in 1 post(s)
Jose, Do you want me to move this to the formula collection? Patrick
Jose  
#8 Posted : Tuesday, May 10, 2005 2:46:04 AM(UTC)
Jose

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth

Was thanked: 2 time(s) in 2 post(s)
Patrick, how about a Fun section? :lol: jose '-)
Patrick  
#9 Posted : Tuesday, May 10, 2005 3:28:53 AM(UTC)
Patrick

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers
Joined: 9/8/2004(UTC)
Posts: 2,266

Was thanked: 1 time(s) in 1 post(s)
:lol: :lol: :lol: I decided to plot your indicator after reading your reply ... Damn this is goofy :D I though you were being serious :roll: Good job though Patrick
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.