/*[[ 
	Name := SilverTrend
	Author := Copyright © 2003, VIAC.RU AlexSilver,OlegVS,GOODMAN
	Link := http://viac.ru/ 
	Separate Window := No 
	First Color := yellow 
	First Draw Type := Variables : Variables : Line 
	Use Second Data := Yes 
	Second Color :=  yellow
	Second Draw Type := Line 
	Second Symbol := 218 
]]*/ 

Inputs : RISK(3),KBars(300); 

Variables : K(0),ssp(0),firstTime(True),shift(0), loopbegin(0); 
Variables : smin(0), smax(0), SsMax(0), SsMin(0) ,val1(0),val2(0);
Variables : smin1(0),smax1(0),SsMax1(0),SsMin1(0);

SetLoopCount(0); 

ssp=3+RISK*2;
K=33-RISK;

loopbegin = KBars;

For shift = loopbegin DownTo 0 Begin
	SsMax = High[Highest(MODE_HIGH,shift+SSP-1,SSP)];
	SsMin = Low[Lowest(MODE_LOW,shift+SSP-1,SSP)];
	smin = SsMin+((SsMax-SsMin)/100*k);
	smax = SsMax-((SsMax-SsMin)/100*k);

	val1=ssmin; val2=ssmax;
	
	SetIndexValue(shift,val1); 
	SetIndexValue2(shift,val2); 
	//if shift<>0 then loopbegin=loopbegin-1;
End;