PureBytes Links
Trading Reference Links
|
<x-html><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Attached is the source code for the
VerticalHorizontal Filter from this months edition of S&C
Magazine.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial
size=2>{*********************************************************************************}<BR>{
VerticalHorizontal Indicator
}<BR>{ Author: Copyright 2000.
TechTrading Corp. All Rights Reserved.
}<BR>{
}<BR>{ Algorithm Source: Stocks &
Commodities Magazine, July 2000
}<BR>{-----------------------------------------------------------------------------------------------------}<BR>{
<A
href="http://www.TechTrading.com">www.TechTrading.com</A>
}<BR>{ (now at <A
href="http://www.advsoftware.com">www.advsoftware.com</A>) }<BR>{*********************************************************************************}<BR>Inputs:
n(28);<BR>Vars: i(0), VH(0), SumChanges(0),
OneDayChange(0);<BR> <BR>OneDayChange = AbsValue(Close -
Close[1]);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>SumChanges = 0;<BR>For i = 0 to (n - 1)
Begin<BR> SumChanges = SumChanges +
OneDayChange[i];<BR>End;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>If SumChanges > 0 then
Begin<BR> VH = (Highest(Close, n) - Lowest(Close, n)) /
SumChanges;<BR> Plot1(VH, "VH");<BR>End;</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV></BODY></HTML>
</x-html>
Attachment Converted: "f:\eudora\attach\VERTHORZ.ELA"
|