← 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_filtr.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_filtr.prg
 
1
! @(#)wa_filtr.prg      19.1 (ES0-DMD) 02/25/03 13:34:56
 
2
! @(#) @(#)wa_filtr.prg 19.1 03/02/25 ESO @(#)
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.IDENTIFICATION: wa_filtr.prg
 
5
!.PURPOSE:    filter an image in the wavelet space
 
6
!.USE:        FILTER/WAVE Image_In Imag_Out [Num_Trans] [Filtr_Num] 
 
7
!                 {Iter_Number] [Nb_Scales] [N_Sigma] [Fc] [Noise]
 
8
!.AUTHOR:     Jean-Luc Starck
 
9
!.VERSION:    03/02/25
 
10
! KEYWORDS:   Wavelet transform, Multiresolution analysis, restoration
 
11
! ----------------------------------------------------------------------
 
12
 
 
13
DEFINE/PARAM P1 ? IMAGE "Enter source frame:  "
 
14
DEFINE/PARAM P2 ? IMAGE "Enter destination frame:  " 
 
15
DEFINE/PARAM P3 2 N "Enter the algorithm number:  " 1,8
 
16
DEFINE/PARAM P4 1 N "Enter the filtering number:  " 1,4
 
17
DEFINE/PARAM P5 1 N "Enter the number of iterations:  " 1,20
 
18
DEFINE/PARAM P6 4 N "Enter the number of scales:  " 1,20
 
19
DEFINE/PARAM P7 3. N "Statistical parameter (n_sigma):  " 1,20
 
20
DEFINE/PARAM P8 0. N "Enter the standard deviation of the noise:  " 
 
21
 
 
22
WRITE/KEYW IN_A/C/1/60 {P1}
 
23
WRITE/KEYW OUT_A/C/1/60  {P2}
 
24
WRITE/KEYW INPUTI/I/1/1  {P3}
 
25
WRITE/KEYW INPUTI/I/2/1  {P4}
 
26
WRITE/KEYW INPUTI/I/3/1  {P5}
 
27
WRITE/KEYW INPUTI/I/4/1  {P6}
 
28
 
 
29
WRITE/KEYW INPUTR/R/1/1  {P7}
 
30
WRITE/KEYW INPUTR/R/2/1  {P8}
 
31
 
 
32
RUN CON_EXE:wa_filt.exe
 
33
 
 
34