Ingeniero Civil Industrial

CASOS ECOMET
Instrucciones manejo ECOMET
Abrir ficheros
Para cada caso
a) Abrir el caso en Abrir archivo de sentencias del menú Util.
b) Abrir el mismo caso, si no se especifica otra cosa en el archivo de sentencias, en Abrir archivo
de trabajo del menú Archivo.
Ejecutar sentencias
a) Seleccionar con el ratón las sentencias que se desean ejecutar
b) Activar la opción Procesar en el menúde Proced.
Se debe procurar seguir un orden secuencial, ya que la ejecución de algunas sentencias puede
implicar que se hayan ejecutado algunas sentencias previamente
Visualizar matrices
a) Seleccionar la opción Editor de matrices en el menu Datos
b) Teclear el código de la matriz
c) Pulsar la tecla Intro
d) Activar la opción Mostrar matriz
Para salir del Editor de matrices seleccionar laopción Salir en Miscelánea

; CASO 001
; generacion de una serie
; poblacion normal media 170 y desviacion tipica 10
muest 1 500
ser enum = 170 + rndn*10
hist enum miny 0 maxy 200 minx 140 maxx 200 interx 10 intery 1
esc mediaser= medser(enum)
esc destiser=desser(enum)
visesc mediaser
visesc destiser
; generacion de 100 series
muest 1 100
ser mediam=0
deci 0
muest 1 20
repite jdesde 1 hasta 100
esc mediaser=0
ser enum = 170 + rndn*10
esc mediaser= medser(enum)
obs mediam[j]=mediaser
finrepite
; Calculo de la MEDIA y DESVIACION TIPICA global
; media teorica 170 desviacion tipica 10/raizc(20)=2.24
muest 1 100
hist mediam minx 160 maxx 180 interx 10 intery 1
esc mediaglo =medser(mediam)
esc desviglo =desser(mediam)
visesc mediaglo
visesc desviglo

; CASO 208ser ipci=ipc*100/67.4
ser salmini=salmin*100/750
ser salminv=(salmin-salmin(-1))*100/salmin(-1)
ser salmind=salmin*100/ipc
ser ipcv=(ipc-ipc(-1))*100/ipc(-1)
; graficos de series
graf salmin ipc
graf salmini ipci
graf salminv ipcv
; grafico de dispersion y estimacion MC
graf (ipc) salmin
mc salmin 1 ipc
; calculo de la regresion utilizando algebra ordinaria
serYd=salmin-medser(salmin)
ser Xd=ipc-medser(ipc)
ser YdXd=Yd*Xd
ser Xd2=Xd*Xd
esc beta=sumser(YdXd)/sumser(Xd2)
esc alfa=medser(salmin)-beta*medser(ipc)
visesc beta
visesc alfa

; CASO 301/304
; CASO 301
muest 1 20
deci 0
; grafico dispersion y estimacion MC
graf (valcon) valacc
mc valacc 1 valcon
; calculo de coeficientes
mat x ={ 1 valcon}
mat y= {valacc}
mat xx=x'x
mat xy=x'y
mat xxinv=xx$
matcoef =xxinv*xy
mat coef1=(x'x)$x'y
; calculo del vector de residuos
mat u=y-x*coef1
; calculo del estimador de la varianza de las perturbaciones
mat uu=u'u
esc uu2=escal(uu)
mat uu1=y'y-coef'x'y
esc uu22=escal(uu1)
esc varu=uu2/(nobs-_nreg)
esc desu=rcuad(varu)
; calculo de la matriz var-cov de los estimadores
mat covacoef=varu*(x'x)$

; calculo de la media de la variabledependiente
esc my =medser(valacc)
; calculo del coeficiente de determinación por dos procedimientos
mat yy=y'y
esc y2=escal(yy)
mat yyestim=coef'x'y
esc y2estim=escal(yyestim)
esc rcuad2=1-(uu2 )/ (y2-nobs*pot(my,2))
esc rcuad21= (y2estim-nobs*pot(my,2))/ (y2-nobs*pot(my,2))
visesc rcuad2
visesc rcuad21
;CASO 304
; creacion de variables en logaritmos
ser lvalacc=ln(valacc)
serlvalcon=ln(valcon)
;modelo lineal
mc valacc 1 valcon
esc aic=_aic
; modelo doblemente logaritmico
mc lvalacc 1 lvalcon
; calculo AIC
esc aicl=_aic+2*_mvd
; comparacion ajuste entre el modelo lineal y el modelo doblemente logaritmico
visesc aic
visesc aicl
; comparacion graficos de los dos modelos
graf (valcon) l valacc
graf (lvalcon) l lvalacc

; CASOS 302/404
deci 0
;calculo de rendis yrepresentacion de series a precios corrientes
ser rendis=cprn+anf
graf rendis cprn
; calculo de rendisd y representacion de series a precios constantes
ser rendisd=rendis*cprnd/cprn
graf rendisd cprnd
; grafico de dispersion y estimacion MC
graf (rendisd) cprnd
mc cprnd 1 rendisd
; calculo de coeficientes
mat x ={ 1 rendisd}
mat y= {cprnd}
mat xx=x'x
mat xy=x'y
mat xxinv=xx$
mat coef...