| T O P I C R E V I E W |
| jsamu |
Posted - 26 October 2003 : 18:28:56
Vorrei costruire un indicatore simile al RSI ma che invece di utilizzare la media chiusure positive o negative consideri la somma in un determinato periodo di tempo. Ma non vedo proprio nulla…
Dove sbaglio questa volta?
Function Main()
dim i as Numeric
dim ChiusuraSu as Numeric
dim ChiusuraGiu as Numeric
i = 0
ChiusuraSu = 0
ChiusuraGiu = 0
Do until (i <= periodo)
If close > open Then
ChiusuraSu = ChiusuraSu + 1
Endif
If close < open Then
ChiusuraGiu = ChiusuraGiu + 1
Endif
i = i + 1
Loop
'Return ChiusuraSu
Return 100 - (100 / (1 + (ChiusuraSu / ChiusuraGiu)))
Endfunction
Property periodo as Numeric
Default (14)
EndProperty
|
| 1 L A T E S T R E P L I E S (Newest First) |
| SupportoTecnico |
Posted - 27 October 2003 : 11:18:04
C'erano diverse imprecisioni. Prova questo:
Function Main()
dim i as Numeric
dim ChiusuraSu as Numeric
dim ChiusuraGiu as Numeric
i = 0
ChiusuraSu = 0
ChiusuraGiu = 0
for i = 0 to periodo - 1
If close( - i) > open( - i) Then
ChiusuraSu = ChiusuraSu + 1
Endif
If close( - i) < open( - i) Then
ChiusuraGiu = ChiusuraGiu + 1
Endif
next i
if (ChiusuraGiu <> 0) then
Return 100 - (100 / (1 + (ChiusuraSu / ChiusuraGiu)))
else
Return 0
endif
Endfunction
Property periodo as Numeric
Default (14)
EndProperty
|
