/*[[
	Name := DynamicSAR
	Author := Copyright © 2003, Company
	Link := http://www.company.com/
	Separate Window := No
	First Color := Blue
	First Draw Type := Symbol
	First Symbol := 158
	Use Second Data :=No
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
]]*/

var: nLastBar(0),nLoopBegin(0),shift(0);
var: HBand(0),LBand(0),MBand(0),IBolGap(0);
var: PSar(0),SARStep(0);

SetLoopCount(0);

if nLastBar=0 then
	{
	if Bars>1000 Then
		nLoopBegin=1000
	Else	
		nLoopBegin=Bars;
	}
Else
	nLoopBegin=3;

For shift=nLoopBegin Downto 0 Begin
	SetIndexValue(shift, 0);
	HBand=iBands(20,2,MODE_HIGH,shift);
	MBand=iBands(20,2,MODE_MAIN,shift);
	LBand=iBands(20,2,MODE_LOW,shift);
	iBolGap=(HBand-LBand)/Point;

	if iBolgap<75 Then
		SARStep=0.02;
	if iBolgap<150 Then
		SARStep=0.03;
	if iBolgap<225 Then
		SARStep=0.04;
	if iBolGap>=225 Then
		SARStep=0.05;			

	PSar=iSAR(SARStep,0.2,shift);
  
	SetIndexValue(shift, PSar);
//	SetIndexValue(shift, iBolGap);
End;