☜	$%CDIV Draft MDC Standard					☞

2 MATH Library
2.15 CDIV

CDIV(X,Y) ;
	New D,IM,RE,XIM,XRE,YIM,YRE
	Set XRE=+X,XIM=+$Piece(X,"%",2)
	Set YRE=+Y,YIM=+$Piece(Y,"%",2)
	Set D=YRE*YRE+(YIM*YIM)
	Set RE=XRE*YRE+(XIM*YIM)/D
	Set IM=XIM*YRE-(XRE*YIM)/D
	Quit RE_"%"_IM

Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 30-Nov-2011, 20:00:59.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)