← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to contrib/wavelet/proc/wa_grad.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/wavelet/proc/wa_grad.prg
 
1
! @(#)wa_grad.prg       19.1 (ES0-DMD) 02/25/03 13:34:56
 
2
! @(#) @(#)wa_grad.prg 19.1 03/02/25 ESO @(#)
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.IDENTIFICATION: wa_grad.prg
 
5
!.PURPOSE:    deconvolve  an image with a regularization in the wavelet space
 
6
!             by the one-step gradient method
 
7
!.USE:        GRAD/WAVE Image_In Psf Imag_Out [residual]  [Nb_Scales]
 
8
!                [N_Sigma, Noise] [Epsilon] [Max_Iter]
 
9
!.AUTHOR:     Jean-Luc Starck
 
10
!.VERSION:    03/02/25
 
11
! KEYWORDS:   Wavelet transform, Multiresolution analysis, restoration
 
12
! ----------------------------------------------------------------------
 
13
 
 
14
DEFINE/PARAM P1 ? IMAGE "Enter Image:  "
 
15
DEFINE/PARAM P2 ? IMAGE "Enter Psf:  "
 
16
DEFINE/PARAM P3 ? IMAGE "Enter Result:  " 
 
17
DEFINE/PARAM P4 "residual" IMAGE "Enter Residual:  " 
 
18
DEFINE/PARAM P5 4 N "Enter the number of scales, :  " 1,20
 
19
DEFINE/PARAM P6 4.,0 N "Enter N_sigma, Noise  " 
 
20
DEFINE/PARAM P7 0.001 N "Convergence parameter:"
 
21
DEFINE/PARAM P8 100 N "Enter the maximun iteration number :  " 1,10000
 
22
 
 
23
WRITE/KEYW IN_A/C/1/60 {P1}
 
24
WRITE/KEYW IN_B/C/1/60 {P2}
 
25
WRITE/KEYW OUT_A/C/1/60  {P3}
 
26
WRITE/KEYW OUT_B/C/1/60  {P4}
 
27
 
 
28
WRITE/KEYW INPUTI/I/1/1  {P5}
 
29
WRITE/KEYW INPUTI/I/2/1  {P8}
 
30
 
 
31
WRITE/KEYW INPUTR/R/1/2  {P6}
 
32
WRITE/KEYW INPUTR/R/3/1  {P7}
 
33
 
 
34
RUN CON_EXE:wa_grad.exe
 
35
 
 
36
 
 
37
 
 
38
 
 
39
 
 
40
 
 
41
 
 
42
 
 
43
 
 
44
 
 
45
 
 
46
 
 
47