size : 427 uploaded_on : Tue Apr 6 00:00:00 1999 modified_on : Wed Dec 8 14:03:37 1999 title : CoTangens org_filename : CoTangens.txt author : Ulli Conrad authoremail : uconrad@gmx.net description : How to get cotangens of an angle keywords : tested : not tested yet submitted_by : The CKB Crew submitted_by_email : ckb@netalive.org uploaded_by : nobody modified_by : nobody owner : nobody lang : pas file-type : text/plain category : pascal-alg-maths __END_OF_HEADER__ function CoTangens(Angle : real) : real; function ReadMod(value,divider : real) : real; begin if Value=Divider then RealMod:=0 else RealMod:=Value-(trunc(Value/divider)*Divider); end; function CircularMeasure(Angle : real) : real; begin Angle:=RealMod(Angle,360); CircularMeasure:=(Angle*2*pi)/360; end; begin CoTangens:=cos(CicularMeasure(Angle))/sin(CicularMeasure(Angle)); end;