1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
function [stk,txt,top]=sci_hanning()
// Copyright INRIA
txt=[]
if rhs==1 then
stk=list('window(''hn'','+stk(top)(1)+')''','0',stk(top)(1),'1','1')
else
sflag=stk(top)(1)
top=top-1
if sflag=='symmetric' then
stk=list('window(''hn'','+stk(top)(1)+')''','0',stk(top)(1),'1','1')
elseif sflag=='periodic' then
if lst(ilst+1)(1)=='1' then //affected result
w=lhsvarsname()
else
w=gettempvar()
end
txt=[w+' = window(''hn'','+stk(top)(1)+'+1)''';
w+' = '+w+'(1:$-1)']
stk=list(' ','-2',stk(top)(1),'1','1')
else
if lst(ilst+1)(1)=='1' then //affected result
w=lhsvarsname()
else
w=gettempvar()
end
txt=['if '+sflag+'==''periodic'' then'
' '+w+' = window(''hn'','+stk(top)(1)+'+1)'''
' '+w+' = '+w+'(1:$-1)'
'else'
' '+w+' = window(''hn'','+stk(top)(1)+')'''
'end']
stk=list(' ','-2',stk(top)(1),'1','1')
end
end
|
