| Gram-Schmidt transformation [message #52051] |
Thu, 04 January 2007 07:26  |
skymaxwell@gmail.com
Messages: 127
Registered: January 2007
|
Senior Member |
|
|
how to use ENVI_GS_SHARPEN_DOIT procedure ?
my IDL code not make any result file. But there no mistakes in
compilation and during running
...
ENVI_OPEN_FILE,file_Src_Mul,R_FID=fid_Src_Mul
ENVI_OPEN_FILE,file_Src_Pan,R_FID=fid_Src_Pan
...
ENVI_FILE_QUERY,fid_Src_Pan,NS=f_ns_pan,NL=f_nl_pan,DIMS=pan _dims
ENVI_FILE_QUERY,fid_Src_Mul,NS=f_ns_mul,NL=f_nl_mul,DIMS=mul _dims,POS=pos_mul
hi_res_dims=[-1L,0,f_ns_pan-1,0,f_nl_pan-1]
ENVI_DOIT,'ENVI_GS_SHARPEN_DOIT',fid=fid_Src_Mul,HIRES_FID=f id_Src_Pan,$
INTERP=0,LORES_FID=fid_Src_Mul,fid_Src_Mul,fid_Src_Mul],METH OD=0,$
OUT_NAME='C:\test.img'
Thanks
|
|
|
|
| Re: Gram-Schmidt transformation [message #52135 is a reply to message #52051] |
Fri, 05 January 2007 12:01  |
David Fanning
Messages: 11724
Registered: August 2001
|
Senior Member |
|
|
skymaxwell@gmail.com writes:
> Thanks i find another mistake in my code by your code
> seems keyword POS not supported by ENVI_FILE_QUERY
> now it's work
Si, ese es el significado de las palabras "check your keywords". :-)
Saludo,
David
--
David Fanning, Ph.D.
Fanning Software Consulting, Inc.
Coyote's Guide to IDL Programming: http://www.dfanning.com/
Sepore ma de ni thui. ("Perhaps thou speakest truth.")
|
|
|
|
|
|
| Re: Gram-Schmidt transformation [message #52137 is a reply to message #52051] |
Fri, 05 January 2007 10:06 |
Mort Canty
Messages: 134
Registered: March 2003
|
Senior Member |
|
|
skymaxwell@gmail.com schrieb:
> Hello
> Here is all my GS transformation code.
>
> ENVI_OPEN_FILE,file_Src_Mul,R_FID=fid_Src_Mul
> IF (fid_Src_Mul eq -1) THEN BEGIN
> PRINT,"Error1"
> RETURN
> ENDIF
> ENVI_OPEN_FILE,file_Src_Pan,R_FID=fid_Src_Pan
> IF (fid_Src_Pan eq -1) THEN BEGIN
> PRINT,"Error2"
> RETURN
> ENDIF
>
> outputDir=FILE_DIRNAME(mulDir)+'\GS_Pan'
> FILE_MKDIR,outputDir
>
> ENVI_FILE_QUERY,fid_Src_Pan,NS=f_ns_pan,NL=f_nl_pan,DIMS=pan _dims
> ENVI_FILE_QUERY,fid_Src_Mul,NS=f_ns_mul,NL=f_nl_mul,DIMS=mul _dims,POS=pos_mul
> ; now i try use method=1
> ENVI_DOIT,'ENVI_GS_SHARPEN_DOIT',DIMS=mul_dims,METHOD=1,OUT_ NAME='D:\test.img',INTERP=0,$
> HIRES_FID=fid_Src_Pan,$
> LORES_FID=fid_Src_Mul,LORES_POS=pos_mul,LORES_DIMS=mul_dims
>
You are missing some essential keywords. Here is a modified version of
your code which works OK for me (uses METHOD=0). I used ENVI_SELECT
because my pan images are too large to be read in in one chunk. You can
modify the code to get back to what you want. But watch the keywords!!
-Mort
; get MS image
envi_select, title='Select MS input bands', $
fid=fid_src_mul,dims=mul_dims,pos=pos_mul
; get PAN image
envi_select, title='Select panchromatic image', $
fid=fid_src_pan,dims=pan_dims
ENVI_DOIT,'ENVI_GS_SHARPEN_DOIT',FID=fid_src_mul, $
DIMS=mul_dims, $
POS=pos_mul, $
METHOD=0, $
OUT_NAME='D:\temp\test.img', $
INTERP=0,$
HIRES_FID=fid_Src_Pan, $
HIRES_DIMS=pan_dims
end
|
|
|
|
| Re: Gram-Schmidt transformation [message #52140 is a reply to message #52051] |
Fri, 05 January 2007 06:47 |
skymaxwell@gmail.com
Messages: 127
Registered: January 2007
|
Senior Member |
|
|
Hello
Here is all my GS transformation code.
ENVI_OPEN_FILE,file_Src_Mul,R_FID=fid_Src_Mul
IF (fid_Src_Mul eq -1) THEN BEGIN
PRINT,"Error1"
RETURN
ENDIF
ENVI_OPEN_FILE,file_Src_Pan,R_FID=fid_Src_Pan
IF (fid_Src_Pan eq -1) THEN BEGIN
PRINT,"Error2"
RETURN
ENDIF
outputDir=FILE_DIRNAME(mulDir)+'\GS_Pan'
FILE_MKDIR,outputDir
ENVI_FILE_QUERY,fid_Src_Pan,NS=f_ns_pan,NL=f_nl_pan,DIMS=pan _dims
ENVI_FILE_QUERY,fid_Src_Mul,NS=f_ns_mul,NL=f_nl_mul,DIMS=mul _dims,POS=pos_mul
; now i try use method=1
ENVI_DOIT,'ENVI_GS_SHARPEN_DOIT',DIMS=mul_dims,METHOD=1,OUT_ NAME='D:\test.img',INTERP=0,$
HIRES_FID=fid_Src_Pan,$
LORES_FID=fid_Src_Mul,LORES_POS=pos_mul,LORES_DIMS=mul_dims
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
