Return to complex.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / f

Annotation of 43BSD/contrib/icon/book/f/complex.icn, revision 1.1.1.1

1.1       root        1: record complex(rpart,ipart)
                      2: 
                      3: procedure strcpx(s)
                      4:    i := upto('+-',s,2)
                      5:    return complex(+s[1:i],+s[i:-1])
                      6: end
                      7: 
                      8: procedure cpxstr(x)
                      9:    if x.ipart < 0 then return x.rpart || x.ipart || "i"
                     10:    else return x.rpart || "+" || x.ipart || "i"
                     11: end
                     12: 
                     13: procedure cpxadd(x1,x2)
                     14:    return complex(x1.rpart + x2.rpart,x1.ipart + x2.ipart)
                     15: end
                     16: 
                     17: procedure cpxsub(x1,x2)
                     18:    return complex(x1.rpart - x2.rpart,x1.ipart - x2.ipart)
                     19: end
                     20: 
                     21: procedure cpxmul(x1,x2)
                     22:    return complex(x1.rpart * x2.rpart - x1.ipart * x2.ipart,
                     23:       x1.rpart * x2.ipart + x1.ipart * x2.rpart)
                     24: end
                     25: 
                     26: procedure cpxdiv(x1,x2)
                     27:    denom := x2.rpart ^ 2 + x2.ipart ^ 2
                     28:    return complex((x1.rpart * x2.rpart + x1.ipart * x2.ipart) /
                     29:       denom,(x1.ipart * x2.rpart - x1.rpart * x2.ipart) /
                     30:       denom)
                     31: end

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