1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
function tex = pol2root2tex(pol,name,f)
## pol2tex: converts polynomial into LaTeX form as (s-z_1)..(s-z_n)
## tex = pol2root2tex(pol,[name,f])
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 2001/05/10 11:44:40 gawthrop
## Useful conversion functions
##
## Revision 1.1 1999/05/24 22:05:53 peterg
## Initial revision
##
###############################################################
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
function tex = pol2root2tex(pol,name,f)
## pol2tex: converts polynomial into LaTeX form as (s-z_1)..(s-z_n)
## tex = pol2root2tex(pol,[name,f])
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 2001/05/10 19:08:35 gawthrop
## Cosmetic improvements
##
## Revision 1.1 2001/05/10 11:44:40 gawthrop
## Useful conversion functions
##
## Revision 1.1 1999/05/24 22:05:53 peterg
## Initial revision
##
###############################################################
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
if imag(r(i))<0
i_plusminus = '+';
else
i_plusminus = '-';
endif
if complex
complex=0
else
if abs(imag(r(i)))<1e-5
ff = sprintf("%%s (%s %%s %s)",name, f);
tex = sprintf(ff, tex, r_plusminus, abs(r(i)));
else
ff = sprintf("%%s (%s %%s %s \\pm j %s)", name, f, f)
tex = sprintf(ff, tex, r_plusminus, abs(real(r(i))), imag(r(i)));
complex=1;
endif
endif
endfor
endfunction
|
|
|
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
if imag(r(i))<0
i_plusminus = '+';
else
i_plusminus = '-';
endif
if complex
complex=0;
else
if abs(imag(r(i)))<1e-5
ff = sprintf("%%s (%s %%s %s)",name, f);
tex = sprintf(ff, tex, r_plusminus, abs(r(i)));
else
ff = sprintf("%%s (%s %%s %s \\pm j %s)", name, f, f);
tex = sprintf(ff, tex, r_plusminus, abs(real(r(i))), imag(r(i)));
complex=1;
endif
endif
endfor
endfunction
|