[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: [Metastockusers] Re: Code for MAMA



PureBytes Links

Trading Reference Links




<FONT face=Arial 
size=2>Keith:
<FONT face=Arial 
size=2> 
I never tried to 
exploit it as it didn't seem any better than other things I 
use.
<FONT face=Arial 
size=2> 
<FONT face=Arial 
size=2>Lionel
<FONT face=Tahoma 
size=2>-----Original Message-----From: Keith Newhouse 
[mailto:knewhous@xxxxxxxxxxxxxxx]Sent: Friday, September 27, 2002 
4:00 PMTo: Metastockusers@xxxxxxxxxxxxxxxSubject: 
[Metastockusers] Re: Code for MAMALionel & 
JB,Thank you for your help with the ".dll".It loads seperate 
indicators for MAMA and FAMA.  However when I load them onto a chart, 
individually, the FAMA is displaced upwards by some considerable 
amount.  When I combined the two into one indicator the results 
appeared to be more realistic.  Have either of you resolved this 
apparent inconsistancy?Regards,Keith--- In 
Metastockusers@xxxx, "JB" <jbois@xxxx> wrote:> If this doesn't work 
try this one:> >   -----Original 
Message----->   From: Lionel Issen 
[mailto:lissen@xxxx]>   Sent: Friday, September 27, 2002 8:26 
AM>   To: Metastockusers@xxxx>   Subject: RE: 
[Metastockusers] Code for MAMA> > >   There was a 
*.dll published in TASC and available for download at the> Equis web 
site. I think that Equis must have been annoyed that their> programmer 
was "giving away" DLLs that they could sell separately and fired> her 
(this is a guess as she no longer writes the Metastock versions of> 
indicators at TASC, Traders Tips). This was followed by removing her 
DLLs> from the Equis site.> >   I am attaching 
the DLL to this message.  Put it in your external formulas> 
file. I think that there may be some additional pieces necessary to run 
it.> I'm not sure if I have them.  I'll take a look over the next 
few days.> >   Lionel>   
-----Original Message----->   From: Keith Newhouse 
[mailto:knewhous@xxxx]>   Sent: Friday, September 27, 2002 7:36 
AM>   To: Metastockusers@xxxx>   Subject: 
[Metastockusers] Code for MAMA> > >   Hi 
Group,> >   This is the EasyLanguage code for Ehlers 
MAMA.  Does anyone have the>   Metastock code for this 
which they would be prepared to share.>   Alternatively couls 
someone convert this code to MS?> >   Regards,> 
>   Keith> >   MAMA EasyLanguage 
Code>   Inputs:      
Price((H+L)/2),>               
FastLimit(.5),>               
SlowLimit(.05);> >   Vars:      
Smooth(0),>         
Detrender(0),>         
I1(0),>         
Q1(0),>         
jI(0),>         
jQ(0),>         
I2(0),>         
Q2(0),>         
Re(0),>         
Im(0),>         
Period(0),>         
SmoothPeriod(0),>         
Phase(0),>         
DeltaPhase(0),>         
alpha(0),>         
MAMA(0),>         
FAMA(0);> >   If CurrentBar > 5 then 
begin>         Smooth = (4*Price 
+ 3*Price[1] + 2*Price[2] + Price[3]) / 10;> 
>         Detrender = 
(.0962*Smooth + .5769*Smooth[2] - .5769*Smooth>   [4] - 
.0962*Smooth[6])*(.075*Period[1] + .54);> 
>         {Compute InPhase and 
Quadrature components}>         
Q1 = (.0962*Detrender + .5769*Detrender[2] - .5769*Detrender>   
[4] - .0962*Detrender[6])*(.075*Period[1] + 
.54);>         I1 = 
Detrender[3];> >         
{Advance the phase of I1 and Q1 by 90 
degrees}>         jI = (.0962*I1 
+ .5769*I1[2] - .5769*I1[4] - .0962*I1[6])*>   (.075*Period[1] 
+ .54);>         jQ = (.0962*Q1 + 
.5769*Q1[2] - .5769*Q1[4] - .0962*Q1[6])*>   (.075*Period[1] + 
.54);> >         {Phasor 
addition for 3 bar 
averaging)}>         I2 = I1 - 
jQ;>         Q2 = Q1 + 
jI;> >         {Smooth the 
I and Q components before applying the>   
discriminator}>         I2 = 
.2*I2 + .8*I2[1];>         Q2 = 
.2*Q2 + .8*Q2[1];> 
>         {Homodyne 
Discriminator}>         Re = 
I2*I2[1] + Q2*Q2[1];>         Im 
= I2*Q2[1] - Q2*I2[1];>         
Re = .2*Re + .8*Re[1];>         
Im = .2*Im + .8*Im[1];>         
If Im <> 0 and Re <> 0 then Period = 
360/ArcTangent(Im/Re);>         
If Period > 1.5*Period[1] then Period = 
1.5*Period[1];>         If Period 
< .67*Period[1] then Period = 
.67*Period[1];>         If Period 
< 6 then Period = 6;>         
If Period > 50 then Period = 
50;>         Period = .2*Period + 
.8*Period[1];>         
SmoothPeriod = .33*Period + .67*SmoothPeriod[1];> 
>         If I1 <> 0 then 
Phase = (ArcTangent(Q1 / 
I1));>         DeltaPhase = 
Phase[1] - Phase;>         If 
DeltaPhase < 1 then DeltaPhase = 
1;>         alpha = FastLimit / 
DeltaPhase;>         If alpha 
< SlowLimit then alpha = 
SlowLimit;>         MAMA = 
alpha*Price + (1 - 
alpha)*MAMA[1];>         FAMA = 
.5*alpha*MAMA + (1 - .5*alpha)*FAMA[1];> 
>         Plot1(MAMA, 
"MAMA");>         Plot2(FAMA, 
"FAMA");> >   End;> > > > 
>   To unsubscribe from this group, send an email 
to:>   Metastockusers-unsubscribe@xxxx> > 
> >   Your use of Yahoo! Groups is subject to the Yahoo! 
Terms of Service.> 
>         Yahoo! Groups 
Sponsor>               
ADVERTISEMENT> > > > >   To 
unsubscribe from this group, send an email to:>   
Metastockusers-unsubscribe@xxxx> > > >   
Your use of Yahoo! Groups is subject to the Yahoo! Terms of 
Service.To 
unsubscribe from this group, send an email 
to:Metastockusers-unsubscribe@xxxxxxxxxxxYour use 
of Yahoo! Groups is subject to the <A 
href="http://docs.yahoo.com/info/terms/";>Yahoo! Terms of Service. 







Yahoo! Groups Sponsor


ADVERTISEMENT









To unsubscribe from this group, send an email to:
Metastockusers-unsubscribe@xxxxxxxxxxx





Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.