StDay:=
Input
(
"start Day"
,1,31,1);
StMnth:=
Input
(
"start Month"
,1,12,1);
StYear:=
Input
(
"start Year"
,1800,2200,2006);
EnDay:=
Input
(
"end Day"
,1,31,1);
EnMnth:=
Input
(
"end Month"
,1,12,6);
EnYear:=
Input
(
"end Year"
,1800,2200,2006);
start:=
Year
()>StYear
OR
(
Year
()=StYear
AND
(
Month
()>StMnth
OR
Month
()=StMnth
AND
DayOfMonth
()>=StDay));
end:=
Year
()<EnYear
OR
(
Year
()=EnYear
AND
(
Month
()<EnMnth
OR
Month
()=EnMnth
AND
DayOfMonth
()<=EnDay));
date1:=start
AND
Alert
(start=0,2);
date2:=end=0
AND
Alert
(end,2);
date2:=
Zig
(end
AND
Cum
(1)>1,1,$)=1;
date1:=
If
(
LastValue
(
Cum
(date1))>0,date1,
Cum
(1)=1);
date2:=
If
(
LastValue
(
Cum
(date2))>0,date2,
LastValue
(
Cum
(1))=
Cum
(1));
dateOk:=
LastValue
(
BarsSince
(date1))
>
LastValue
(
BarsSince
(date2));
day1:=
If
(dateOk,date1,date2);
day2:=
If
(dateOk,date2,date1);
dataArray:=
C
;
price1:=
ValueWhen
(1,day1,dataArray);
price2:=
LastValue
(
ValueWhen
(1,day2,dataArray));
x1:=
LastValue
(
BarsSince
(day1));
x2:=
LastValue
(
BarsSince
(day2));
trendline:=price1
+
BarsSince
(day1)*(price2-price1)
/Max(x1-x2,.000001);
trendline:=
Ref
(
Ref
(trendline,-x2),x2);
trendline