comp.lang.idl-pvwave archive: archive » Re: JBIU utilities

Home » Public Forums » archive » Re: JBIU utilities - release 1.0

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: JBIU utilities - release 1.0 [message #60803 is a reply to message #60802]

Fri, 13 June 2008 11:39

Michael Galloy
Messages: 1114
Registered: April 2006

Senior Member

On Jun 13, 10:44 am, Brian Larsen <balar...@gmail.com> wrote:
> Oddly I opened up sign() and in the spirit of Coyote's IDL way I have
> previously written sign() without the nasty for loop. This rewrite
> gained a x12.6 improvement in speed for my test case.
>
> function sign, in
> pos = make_array(n_elements(in), /byte, value = 1)
> zero = in EQ 0
> neg = in LT 0
> pos = pos - zero
> pos = pos - 2 * neg
> return, pos
> END

How about the following?

function mg_sign, x
compile_opt strictarr

return, fix(x gt 0) - fix(x lt 0)
end

Mike
--
www.michaelgalloy.com
Tech-X Corporation
Software Developer II

Report message to a moderator

[Message index]

		Re: JBIU utilities - release 1.0 By: David Fanning on Fri, 13 June 2008 13:58
		Re: JBIU utilities - release 1.0 By: Michael Galloy on Fri, 13 June 2008 13:54
		Re: JBIU utilities - release 1.0 By: Jeremy Bailin on Fri, 13 June 2008 13:07
		Re: JBIU utilities - release 1.0 By: Brian Larsen on Fri, 13 June 2008 13:03
		Re: JBIU utilities - release 1.0 By: David Fanning on Fri, 13 June 2008 11:45
		Re: JBIU utilities - release 1.0 By: Michael Galloy on Fri, 13 June 2008 11:39
		Re: JBIU utilities - release 1.0 By: Brian Larsen on Fri, 13 June 2008 09:44
		Re: JBIU utilities - release 1.0 By: MP on Sun, 15 June 2008 15:30

Previous Topic:	Warping with intensity conservation or drizzle algorithm
Next Topic:	JBIU utilities - release 1.0

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Sat Oct 11 09:38:06 PDT 2025

Total time taken to generate the page: 0.48338 seconds