RSI code help

["Thomas J. Festa" <festat@xxxxxxxxxxxxx>]

Working on a modified rsi from Perry Kaufmanns book:

Doesn't verify, needs a numeric value for i ?:
===================================================
inputs: n(numericsimple); 
vars:  sumup(0), sumdn(0);

For i = 1 to n begin
	if close - close[i] > 0 then
		sumup = sumup = close - close[1]
		else sumdn = sumdn = close[1] - close;
	end;
RSI = 100 - (100 / (1 + (sumup/sumdn)));


Any Help please?

Thanks,

Thomas J. Festa, CMT
Technical Analysis Investment Consultant
Proprietary Trader, Equities
Benchmarq Trading, LLC
Cell:   (908) 581-8880

Confidentiality Notice: The information contained in this e-mail and any
attachments may be legally privileged and confidential. If you are not an
intended recipient, you are hereby notified that any dissemination,
distribution, or copying of this e-mail is strictly prohibited. If you have
received this e-mail in error, please notify the sender and permanently
delete the e-mail and any attachments immediately. You should not retain,
copy or use this e-mail or any attachment for any purpose, nor disclose all
or any part of the contents to any other person.