Creacion de Los Bloque de Acuerdo Al Cutoff
description
Transcript of Creacion de Los Bloque de Acuerdo Al Cutoff
UNIVERSIDAD NACIONAL DE INGENIERIA
FACULTAD DE INGENIERIA GEOLOGICA MINERA METALURGICA
TEMA: CREACION DE BLOQUES DEACUERDO A UN CUT OFF DADO
ALUMNO:
Alex Valdivia Prieto
CODIGO:
20120048E
CURSO:
Procesamiento de Datos
DOCENTE:
Dr. Alfredo Marín Suarez
2015
2
CREACION DE LOS BLOQUE DE ACUERDO AL CUT-OFF
Se modificó el código que nos dio el Dr. Marín con el nombre de “b1” guardado en el disco C. A continuación describiremos los pasos que se realizaron para graficar los bloques de acuerdo al cutoff que queramos:
1. Lectura de la data disponible “FCONFO.txt”
(defun c:blo ()
;(graphscr)
;(setq nombre (getstring " Nombre del archivo "))
(setq nombre "C:\\BSANTAR\\FCONFO.TXT")
(setq archi (open nombre "r"))
2. Ingresamos el cutoff que queramos.
(setq COFF (getreal "\nIngresar CutOff: "))
3. Obteniendo las coordenadas x,y,z de cada BLOQUE
(setq nver 1276)
(setq i 0)
(setq i (+ 1 i))
(while (<= i nver)
(setq m ( read-line archi))
(setq x (substr m 13 11))
(setq xx (atof x))
(setq y (substr m 24 10))
(setq yy (atof y))
(setq z (substr m 34 8))
(setq zz (atof z))
(setq w (substr m 61 9))
(setq ley (atof w))
(setq px2 xx)
3
(setq py2 yy)
(setq pz2 zz)
(setq pb (list px2 py2 pz2))
;(prin1 pb)
(prin1)
4. Asignamos y graficamos los BLOQUES que solo son mayores al CUT OFF
ingresado
(cond
((if (>= ley COFF) (command "color" 3)))
((if (>= ley COFF) (command "BOX" "C" pb "L" 30 30 10)))
)
5. Reiteración del bucle while.
;(prin1 pb)
(prin1)
(setq i (+ 1 i))
(prin1)
)
6. Cerramos el archivo “b1”
(close archi)
(prin1)
)
(prompt "\nBSANTAR2.LSP , escribir BLO para graficar los bloques")
(prompt "\nAutor : Alfredo Marin ")
(princ)
4
CARGANDO LA APLICACIÓN EN AUTOLIPS
1° Debemos de tener los archivos b1 y FCONFO en una carpeta llamada BSANTAR en el disco
C.
2° Ingresamos al AutoCAD y cargamos el archivo b1.
ManageLoas applicationseleccionamos el archivo b1 LoadClose
3° En la barra de comandos del AutoCAD escribimos blo y enter y nos pedirá que ingresemos
el cutoff.
GRAFICOS OBTENIDOS PARA:
COT-OFF=0
5
Cut-off=0.4
Cut-off=0.8
6
Cut-off=1.2
Cut-off=1.8
7
CODIGO COMPLETO
; BSANTAR2.LSP KRIGING DE MATHERON
(defun c:blo ()
;(graphscr)
;(setq nombre (getstring " Nombre del archivo "))
(setq nombre "C:\\BSANTAR\\FCONFO.TXT")
(setq archi (open nombre "r"))
(setq COFF (getreal "\nIngresar CutOff: "))
;
(setq nver 1276)
(setq i 0)
;
;
(setq i (+ 1 i))
;
(while (<= i nver)
(setq m ( read-line archi))
(setq x (substr m 13 11))
(setq xx (atof x))
(setq y (substr m 24 10))
(setq yy (atof y))
(setq z (substr m 34 8))
(setq zz (atof z))
(setq w (substr m 61 9))
(setq ley (atof w))
(setq px2 xx)
(setq py2 yy)
(setq pz2 zz)
(setq pb (list px2 py2 pz2))
;(prin1 pb)
8
(prin1)
(cond
((if (>= ley COFF) (command "color" 3)))
((if (>= ley COFF) (command "BOX" "C" pb "L" 30 30 10)))
)
;(prin1 pb)
(prin1)
(setq i (+ 1 i))
(prin1)
)
(close archi)
(prin1)
)
(prompt "\nBSANTAR2.LSP , escribir BLO para graficar los bloques")
(prompt "\nAutor : Alfredo Marin ")
(princ)