conj_harmonic1.cas 72 Bytes Edit Raw Blame History 1 2 3 4 5 (A,B,C)-> { local D; D:=A+(B-A)*(C-A)/(C-B+C-A); return(D); }
