3640/DEPENDENCIES/complexstring.sci


1
2
3
4
5
6
7
8
9
10
11

function s=complexstring(a)
    
    
    if imag(a)>=0 then
        s=sprintf('%g+%gi',real(a),imag(a))
    else
        s=sprintf('%g%gi',real(a),imag(a))
        
    end
    funcprot(0)
endfunction