How I can I optimize the following code in order to get very short running time

*To*: mathgroup at smc.vnet.net*Subject*: [mg125083] How I can I optimize the following code in order to get very short running time*From*: Liwen Zhang <gearss8888 at gmail.com>*Date*: Tue, 21 Feb 2012 06:09:34 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

How I can I optimize the following code in order to get very short running time? Time1 = AbsoluteTime[]; n = 3000; Do[Do[x = Sin (45.0)*ArcSin (0.5)*Sqrt (5.0)*ArcTan (2.5555);, {n}], {n}]; Time2 = AbsoluteTime[]; Print[Time2 - Time1];

**Follow-Ups**:**Re: How I can I optimize the following code in order to***From:*Tomas Garza <tgarza10@msn.com>

**Re: How I can I optimize the following code in order to***From:*Murray Eisenberg <murray@math.umass.edu>