Economia portuguesa quase estagnada desde final do ano passado

[redhot]

Este tópico do Paionense:

http://caldeiraodebolsa.jornaldenegocio ... 29&start=0

Despertou-me a curiosidade para as potencialidades da linguagem de programação do www.prorealtime.com e do seu ProScreener.

Assim lanço um repto ao pessoal: publicarem algorítmos engraçados e úteis feitos em prorealtime.

Começo com dois exemplos muitos simples, sem qualquer indicador "mágico", mas que se aplicarem a um determinado conjunto de títulos obtêm resultados engraçados (se bem que necessitem de mais matemática para serem fiáveis).

REM ************************
REM Objectivo: Obter os títulos que valorizaram uma determinada percentagem num determinado período de dias.
REM
REM Autor: redhot, 28-Jul-2008
REM
REM ************************
REM Inputs:

REM Percentagem de valorização:
inPerPos = 30

REM Período em dias a considerar (desde a data corrente):
inPeriodo = 60

REM ************************
REM Programa:

valorPer = 100*((dclose(0) - dclose(inPeriodo))/dclose(inPeriodo))

c1 = valorPer > inPerPos

REM Homenagem ao paionense:
c2 = volume>1000000
c3 = (close >= 5.0)

criteria = Volume

SCREENER[c1 AND c2 AND c3] (criteria AS "Volume")

REM ************************
REM Objectivo: Obter os títulos que num determinado período em dias tiveram uma percentagem
REM de fechos positivos (em relação ao dia anterior) superior a um dado valor.
REM
REM Autor: redhot, 28-Jul-2008
REM
REM ************************
REM Inputs:

REM Percentagem de barras positivas em relação ao dia anterior:
inPerPos = 60

REM Período em dias a considerar (desde a data corrente):
inPeriodo = 30

REM ************************
REM Programa:

countPos = 0

FOR i = 0 TO inPeriodo-1
if dclose(i) > dclose(i+1) then
countPos = countPos + 1
endif
next

c1 = (100*countPos/inPeriodo) > inPerPos

REM Homenagem ao paionense:
c2 = volume>1000000
c3 = (close >= 5.0)

criteria = Volume

SCREENER[c1 AND c2 AND c3] (criteria AS "Volume")