123456789101112131415161718192021222324252627282930313233343536373839(** Floating point operations for simulation. *)open!ImportmoduletypeReal=sigvaldatabase:Combinational_ops_database.tval(+:):Signal.t->Signal.t->Signal.tval(-:):Signal.t->Signal.t->Signal.tval(*:):Signal.t->Signal.t->Signal.tval(/:):Signal.t->Signal.t->Signal.tval(%:):Signal.t->Signal.t->Signal.tval(**:):Signal.t->Signal.t->Signal.tvalexp:Signal.t->Signal.tvallog:Signal.t->Signal.tvallog10:Signal.t->Signal.tvalcos:Signal.t->Signal.tvalsin:Signal.t->Signal.tvaltan:Signal.t->Signal.tvalacos:Signal.t->Signal.tvalasin:Signal.t->Signal.tvalatan:Signal.t->Signal.tvalatan2:Signal.t->Signal.t->Signal.tvalcosh:Signal.t->Signal.tvalsinh:Signal.t->Signal.tvaltanh:Signal.t->Signal.tvalceil:Signal.t->Signal.tvalfloor:Signal.t->Signal.tvalabs:Signal.t->Signal.tendmoduletypeCyclesim_float_ops=sigmoduletypeReal=Real(** 32 bit floats *)moduleFloat:Real(** 64 bit doubles *)moduleDouble:Realend