Return to complex.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Annotation of 43BSD/contrib/icon/src/lib/complex.icn, revision 1.1.1.1

1.1       root        1: #      COMPLEX(2)
                      2: #
                      3: #      Complex arithmetic
                      4: #
                      5: #      Ralph E. Griswold
                      6: #
                      7: #      Last modified 7/27/83
                      8: #
                      9: 
                     10: record complex(rpart,ipart)
                     11: 
                     12: procedure strcpx(s)
                     13:    i := upto('+-',s,2)
                     14:    return complex(+s[1:i],+s[i:-1])
                     15: end
                     16: 
                     17: procedure cpxstr(x)
                     18:    if x.ipart < 0 then return x.rpart || x.ipart || "i"
                     19:    else return x.rpart || "+" || x.ipart || "i"
                     20: end
                     21: 
                     22: procedure cpxadd(x1,x2)
                     23:    return complex(x1.rpart + x2.rpart,x1.ipart + x2.ipart)
                     24: end
                     25: 
                     26: procedure cpxsub(x1,x2)
                     27:    return complex(x1.rpart - x2.rpart,x1.ipart - x2.ipart)
                     28: end
                     29: 
                     30: procedure cpxmul(x1,x2)
                     31:    return complex(x1.rpart * x2.rpart - x1.ipart * x2.ipart,
                     32:       x1.rpart * x2.ipart + x1.ipart * x2.rpart)
                     33: end
                     34: 
                     35: procedure cpxdiv(x1,x2)
                     36:    denom := x2.rpart ^ 2 + x2.ipart ^ 2
                     37:    return complex((x1.rpart * x2.rpart + x1.ipart * x2.ipart) /
                     38:       denom,(x1.ipart * x2.rpart - x1.rpart * x2.ipart) /
                     39:       denom)
                     40: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.