File: %25r_string.sci

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (20 lines) | stat: -rw-r--r-- 411 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function txt=%r_string(r)
N=string(r.num)
D=string(r.den)
ln=length(N)
ld=length(D)
l=max(ln,ld)
[m,n]=size(r.num);
S=emptystr(m,n)
for i=1:m*n
  s=2*i-1:2*i
  N(s)=part(' ',1:(l(i)-ln(i))/2)+N(s)
  D(s)=part(' ',1:(l(i)-ld(i))/2)+D(s)
  S(i) =part('-',ones(1,l(i))) 
end
txt=emptystr(5*m,n);
txt(1:5:$,:)=N(1:2:$,:)
txt(2:5:$,:)=N(2:2:$,:)
txt(3:5:$,:)=S(1:$,:)
txt(4:5:$,:)=D(1:2:$,:)
txt(5:5:$,:)=D(2:2:$,:)