"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Ops/ops.pd" between
PDL-2.081.tar.gz and PDL-2.082.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

ops.pd  (PDL-2.081)	:	ops.pd  (PDL-2.082)
skipping to change at line 504		skipping to change at line 504
!$backcode ? () : (		!$backcode ? () : (
DefaultFlow => 1,		DefaultFlow => 1,
TwoWay => 1,		TwoWay => 1,
BackCode => pp_line_numbers(__LINE__, qq{		BackCode => pp_line_numbers(__LINE__, qq{
PDL_IF_BAD(if ( \$ISBAD(b()) ) \$SETBAD(complexv()); else {,)		PDL_IF_BAD(if ( \$ISBAD(b()) ) \$SETBAD(complexv()); else {,)
$backcode		$backcode
PDL_IF_BAD(},)		PDL_IF_BAD(},)
}),		}),
),		),
%extra,		%extra,
Doc => $doc);		Doc => $doc . (!$backcode ? '' : ' Flows data back & forth.'),
		);
}		}
cfunc('carg', 'carg', 1, 'Returns the polar angle of a complex number.', undef);		cfunc('carg', 'carg', 1, 'Returns the polar angle of a complex number.', undef);
cfunc('conj', 'conj', 0, 'complex conjugate.', undef);		cfunc('conj', 'conj', 0, 'complex conjugate.', undef);
pp_def('czip',		pp_def('czip',
Pars => 'r(); i(); complex [o]c()',		Pars => 'r(); i(); complex [o]c()',
Doc => <<'EOF',		Doc => <<'EOF',
convert real, imaginary to native complex, (sort of) like LISP zip		convert real, imaginary to native complex, (sort of) like LISP zip
function. Will add the C<r> ndarray to "i" times the C<i> ndarray. Only		function. Will add the C<r> ndarray to "i" times the C<i> ndarray. Only
End of changes. 1 change blocks.
1 lines changed or deleted		2 lines changed or added

---