Changes
Jump to navigation
Jump to search
no edit summary
[[portfolio]]
<syntaxhighlight>
INPUTS: PERIOD(10), PCNT(.15);
VARS: AMAVAL(0), AMAFVAL(0), AMALS(0), AMAHS(0);
AMAVAL = AMA(PERIOD);
AMAFVAL = AMAF(PERIOD, PCNT);
IF CURRENTBAR = 1 THEN BEGIN
AMALS = AMAVAL;
AMAHS = AMAVAL;
END ELSE BEGIN
IF AMAVAL < AMAVAL[1] THEN
AMALS = AMAVAL;
IF AMAVAL > AMAVAL[1] THEN
AMAHS = AMAVAL;
IF AMAVAL - AMALS > AMAFVAL THEN BEGIN
PLOT1(AMAFVAL, "BUY");
IF PLOT1[1] = 0 THEN
ALERT = TRUE;
END ELSE
IF AMAHS - AMAVAL > AMAFVAL THEN BEGIN
PLOT2(AMAFVAL, "SELL");
IF PLOT2[1] = 0 THEN
ALERT = TRUE;
END;
PLOT3(AMAFVAL, "AMAFILTER");
END;
{COPYRIGHT 1997 TECHNICAL ANALYSIS, INC.}
</syntaxhighlight>