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

[RT] PaintBar Study for Range

PureBytes Links

Trading Reference Links

 
<x-html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.3825.1300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face="Courier New" size=2>The following was coded for&nbsp; TS2000i 
and not TS4</FONT></DIV>
<DIV><FONT face="Courier New" size=2>so I am only including the text of the 
code.&nbsp; TS4 users</FONT></DIV>
<DIV><FONT face="Courier New" size=2>may be able to convert.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>I found this interesting to look for zones 
of below</FONT></DIV>
<DIV><FONT face="Courier New" size=2>average range values and also to look for 
range values</FONT></DIV>
<DIV><FONT face="Courier New" size=2>much greater than average.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Look at this with MinPerc values from as 
low as 70 to</FONT></DIV>
<DIV><FONT face="Courier New" size=2>as high as 140 and see what you 
find.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Clyde</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>= = = = = = = = = = = Begin of Code = = = = 
= = = = = = = = = = =</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" 
size=2>{*******************************************************************<BR>Description&nbsp;: 
This type paints bars where (H-L)/ATR*100 is 
greater<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
than some min% value. 
<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
On a bar when this is true and not true on 
prior&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bar 
then the current bar is painted BLUE.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" 
size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
On any bar following Blue bar (or Red bar), if range 
<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
on this bar exceeds min% then color is set to RED.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Provided By&nbsp;: Clyde Lee (c) Copyright 
2000<BR>********************************************************************}</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Inputs: 
MinPerc(130),ATRBars(21);</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Vars:&nbsp;&nbsp; 
DeltaHL((H-L)/AvgTrueRange(AtrBars)*100);</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><BR><FONT face="Courier New" 
size=2>DeltaHL=(H-L)/AvgTrueRange(AtrBars)*100;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>If DeltaHL&gt;=MinPerc Then 
Begin<BR>&nbsp;PlotPaintBar(High, Low, "hl&gt;mn%");<BR>&nbsp;If 
DeltaHL[1]&lt;MinPerc then begin<BR>&nbsp;&nbsp;{Alert("Range greater than 
MinRange");}<BR>&nbsp;&nbsp;SetPlotColor(1, 
Blue);<BR>&nbsp;&nbsp;SetPlotColor(2, Blue);<BR>&nbsp;End<BR>&nbsp;Else 
begin<BR>&nbsp;&nbsp;SetPlotColor(1,Red);<BR>&nbsp;&nbsp;SetPlotColor(2,Red);<BR>&nbsp;End;<BR>End<BR>Else 
Begin<BR>&nbsp;{Both NoPlot statements must be 
included}<BR>&nbsp;NoPlot(1);<BR>&nbsp;NoPlot(2);<BR>End;<BR></FONT><FONT 
face="Courier New" size=2></FONT></DIV>
<DIV><FONT face="Courier New" size=2>
<DIV><FONT face="Courier New" size=2>= = = = = = = = = = =&nbsp;End of Code = = 
= = = = = = = = = = = = =</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV></FONT></DIV>
<DIV><FONT face="Courier New" size=2>- - - - - - - - - - - - - - - - - - - - - - 
- - - - - - - -<BR>Clyde Lee&nbsp;&nbsp; 
Chairman/CEO&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Home of 
SwingMachine)<BR>SYTECH 
Corporation&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
email:&nbsp;&nbsp; &lt;</FONT><A href="mailto:clydelee@xxxxxxx";><FONT 
face="Courier New" size=2>clydelee@xxxxxxx</FONT></A><FONT face="Courier New" 
size=2>&gt; <BR>7910 Westglen, Suite 105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Work:&nbsp;&nbsp;&nbsp; (713) 783-9540<BR>Houston,&nbsp; TX&nbsp; 
77063&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Fax:&nbsp;&nbsp;&nbsp;&nbsp; (713) 783-1092&nbsp;&nbsp;&nbsp; <BR>- - - - - - - 
- - - - - - - - - - - - - - - - - - - - - - -<BR>- - - - - - - - - - - - - - - - 
- - - - - - - - - - - - - -<BR>To subscribe / unsubscribe from SwingMachine 
list<BR></FONT><A href="http://www.egroups.com/list/swingmachine/";><FONT 
face="Courier New" 
size=2>http://www.egroups.com/list/swingmachine/</FONT></A></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>After joining list the freeware 
SwingMachine program <BR>(DOS Version) is available in the&nbsp; VAULT&nbsp; 
at:<BR></FONT><A href="http://www.egroups.com/list/swingmachine/";><FONT 
face="Courier New" 
size=2>http://www.egroups.com/list/swingmachine/</FONT></A><BR><FONT 
face="Courier New" size=2>- - - - - - - - - - - - - - - - - - - - - - - - - - - 
- - -<BR></FONT></DIV></BODY></HTML>

</x-html>