← 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_transf.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_transf.prg
 
1
! @(#)wa_transf.prg     19.1 (ES0-DMD) 02/25/03 13:34:58
 
2
! @(#) @(#)wa_transf.prg 19.1 03/02/25 ESO @(#)
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.IDENTIFICATION: wa_transf.prg
 
5
!.PURPOSE:    computes a wavelet transform
 
6
!.USE:        TRANSF/WAVE Image_In Wavelet_Out [Num_Trans] [Nb_plan] [Fc]
 
7
!.AUTHOR:     Jean-Luc Starck
 
8
!.VERSION:    03/02/25
 
9
! KEYWORDS:   Wavelet transform, Multiresolution analysis
 
10
! ----------------------------------------------------------------------
 
11
 
 
12
DEFINE/PARAM P1 ? IMAGE "Enter source frame:  "
 
13
DEFINE/PARAM P2 ? C "Enter destination wavelet:  " 
 
14
DEFINE/PARAM P3 2 N "Enter the algorithm number:  " 1,8
 
15
DEFINE/PARAM P4 3 N "Enter the number of scales:  " 2,10
 
16
DEFINE/PARAM P5 0.5 N "Enter the  cut-off frequency:  " 0.1,0.5
 
17
 
 
18
WRITE/KEYW IN_A/C/1/60 {P1}
 
19
WRITE/KEYW OUT_A/C/1/60  {P2}
 
20
WRITE/KEYW INPUTI/I/1/1  {P3}
 
21
WRITE/KEYW INPUTI/I/2/1  {P4}
 
22
WRITE/KEYW INPUTR/R/1/1  {P5}
 
23
 
 
24
RUN CON_EXE:wa_trans.exe
 
25