No subject

  x->new_coord[0]=sqrtf(X*X+Y*Y+Z*Z);       /* R     */
  x->new_coord[1]=atan2f(Y, X);             /* PHI   */
  x->new_coord[2]=atan2f(Z, sqrt(X*X+Y*Y)); /* THETA */

Close, but not quite?! sorry my trig is not the
best. Can anyone give me a hand with whats going on?

Thanks!
Ben

PS: I attached my own expr version for comparison




--Boundary_(ID_4lAs1tsnX+1b2c+hTIJrow)
Content-type: application/octet-stream; NAME=rect2sphere.pd
Content-transfer-encoding: base64
Content-disposition: attachment; filename=rect2sphere.pd

I04gY2FudmFzIDEzOCAzNDQgMjc2IDEyNSAxMDsKI04gY2FudmFzIDY2IDU1OCA0NTAgMzAw
IFJlY3QtU3BoZXJlIDA7CiNYIG9iaiAxOCA1OSBpbmxldDsKI1ggb2JqIDE3NiA1OSBpbmxl
dDsKI1ggb2JqIDMzNSA2MSBpbmxldDsKI1ggb2JqIDE5IDI3MSBvdXRsZXQ7CiNYIG9iaiAx
ODEgMjcwIG91dGxldDsKI1ggb2JqIDM2MSAyNzIgb3V0bGV0OwojWCB0ZXh0IDIzIDEzIFJl
Y3QgdG8gU3BoZXJpY2FsIENvb3JkczsKI1ggdGV4dCA3NiAyNjkgcjsKI1ggdGV4dCAyMzYg
MjcwIGExOwojWCB0ZXh0IDQxNCAyNzIgYTI7CiNYIG9iaiAxOCAxMDkgZXhwciBwb3coJGYx
IFwsIDIpK3BvdygkZjIgXCwgMikrcG93KCRmMyBcLCAyKTsKI1ggb2JqIDE4IDEzNCBzcXJ0
OwojWCBvYmogMjA2IDIxMyBleHByIGF0YW4oJGYyLyRmMSk7CiNYIG9iaiAxMDggMTU4IGV4
cHIgYWNvcygkZjIvJGYxKTsKI1ggY29ubmVjdCAwIDAgMTAgMDsKI1ggY29ubmVjdCAwIDAg
MTIgMDsKI1ggY29ubmVjdCAxIDAgMTAgMTsKI1ggY29ubmVjdCAxIDAgMTIgMTsKI1ggY29u
bmVjdCAyIDAgMTAgMjsKI1ggY29ubmVjdCAyIDAgMTMgMTsKI1ggY29ubmVjdCAxMCAwIDEx
IDA7CiNYIGNvbm5lY3QgMTEgMCAzIDA7CiNYIGNvbm5lY3QgMTEgMCAxMyAwOwojWCBjb25u
ZWN0IDEyIDAgNSAwOwojWCBjb25uZWN0IDEzIDAgNCAwOwojWCByZXN0b3JlIDU3IDUzIHBk
IFJlY3QtU3BoZXJlOwojWCBmbG9hdGF0b20gMTM0IDI2IDUgMCAwOwojWCBmbG9hdGF0b20g
ODMgMjcgNSAwIDA7CiNYIGZsb2F0YXRvbSAzMSAyNyA1IDAgMDsKI1ggZmxvYXRhdG9tIDE0
NiA3OSA1IDAgMDsKI1ggZmxvYXRhdG9tIDkwIDc5IDUgMCAwOwojWCBmbG9hdGF0b20gMzEg
NzkgNSAwIDA7CiNYIGNvbm5lY3QgMCAwIDYgMDsKI1ggY29ubmVjdCAwIDEgNSAwOwojWCBj
b25uZWN0IDAgMiA0IDA7CiNYIGNvbm5lY3QgMSAwIDAgMjsKI1ggY29ubmVjdCAyIDAgMCAx
OwojWCBjb25uZWN0IDMgMCAwIDA7Cg==

--Boundary_(ID_4lAs1tsnX+1b2c+hTIJrow)--