dwt

Dwt离散db小波 daubechi.c daubtst.c

#!/usr/X11R6/bin/wish8.0
# line above hast to be adited according to the location of your wish

wm title . DaubechiesWaveletTransform

frame .left
pack .left -side left

frame .left.top 
pack .left.top -side top -fill x

label  .left.top.infilename -text {Inputfile   :}
entry .left.top.infile -width 20 -relief sunken -textvariable signal
pack .left.top.infilename .left.top.infile -side left -fill x

frame .left.bottom 
pack .left.bottom -side top -fill x
label .left.bottom.outfilename -text Outputfile:
entry .left.bottom.outfile -width 20 -relief sunken -textvariable spectrum

pack .left.bottom.outfilename   .left.bottom.outfile -side left -fill x

frame .left.butt -borderwidth 20
pack .left.butt -side top
button .left.butt.run -text Run \
   -command {Run $signal $spectrum $direction $ord} 
button .left.butt.exit -text Exit -command  exit
#button .left.butt.plot -text Plot -command {Plot $spectrum}
pack .left.butt.run  .left.butt.exit -side left -padx 10

frame .right
pack .right -side right

label .right.direction -text {direction of transformation}
radiobutton .right.forw -variable direction -text forward -value 1
radiobutton .right.backw -variable direction -text inverse -value -1
pack  .right.direction .right.forw .right.backw -side top
label .right.order -text {wavelet order}
radiobutton .right.one -variable ord -text 1 -value 1
radiobutton .right.two -variable ord -text 2 -value 2
radiobutton .right.three -variable ord -text 3 -value 3
radiobutton .right.four -variable ord -text 4 -value 4
pack .right.order -side top -pady 10
pack  .right.one .right.two .right.three .right.four -side top


proc Run {signal spectrum direction ord} {
exec daub -I$signal -O$spectrum -D$direction -L$ord
toplevel .nachricht
message .nachricht.msg -aspect 1000  -justify left \
-text "computation completed" 
button .nachricht.ok -text OK -command {destroy .nachricht}
pack .nachricht.msg .nachricht.ok -side top -padx 20 -pady 20
}