On 25 ene, 15:46, Conchi...***gmail.com wrote:
> On 25 ene, 15:27, Antonio González <gonfe...***gmail.com> wrote:
>
>
>
> > Conchi...***gmail.com escribió:
>
> > > Muchas gracias.
> > > El caso es que tenemos que hacerlo en 1 ms,
>
> > El Mathematica calcula 2000 decimales (¿necesitas más de 2000
> > decimales?) para la lista -100,-99.9,...,-0.1,0 en
>
> > In[21]:= Table[N[f[n], 2000], {n, -100, 0, .1}]; // Timing
>
> > Out[21]= {0.078, Null}
>
> > es decir, 8 céntesimas de segundo para mil números con 2000 decimales
> > (esto es 8 cienmilésimas por evaluación).
>
> > --
>
> > Antonio
>
> Muchísimas gracias Antonio. No tengo el Mathemática aquí. Pero tiene
> una pinta estupenda eso que me dices. ¿Podrías hacerme el favor de
> calcularlo para x = -80?. Si me pudieras decir la sentencia que usas
> para obtener el valor que obtuviste para -100, me podría instalar
> Mathematica y hacer pruebas.
>
> Muchísimas Gracias.

Perdón. Para z = -80.

Gracias.

Conchivgr***gmail.com escribió:
> On 25 ene, 15:27, Antonio González <gonfe...***gmail.com> wrote:
>> Conchi...***gmail.com escribió:
>>
>>
>>
>>> Muchas gracias.
>>> El caso es que tenemos que hacerlo en 1 ms,
>> El Mathematica calcula 2000 decimales (¿necesitas más de 2000
>> decimales?) para la lista -100,-99.9,...,-0.1,0 en
>>
>> In[21]:= Table[N[f[n], 2000], {n, -100, 0, .1}]; // Timing
>>
>> Out[21]= {0.078, Null}
>>
>> es decir, 8 céntesimas de segundo para mil números con 2000 decimales
>> (esto es 8 cienmilésimas por evaluación).
>>
>> --
>>
>> Antonio
>
> Muchísimas gracias Antonio. No tengo el Mathemática aquí. Pero tiene
> una pinta estupenda eso que me dices. ¿Podrías hacerme el favor de
> calcularlo para x = -80?.

10.12411899584942661106842261925090271320567410757 31374811199936077535\
54653837441242441489870671673378569861269358245635 27869685877333677468\
51783106012971839032973998437849719308707856166679 25924151925591608634\
51234126501843838818751846062988159231726613748955 88143713157020958687\
41450338641829239830076404847292066109596593571897 56593148713085386842\
60757455558996088165137575354018193182333091999062 14623437862901525629\
82971171882354828052789094495319307857290179784729 88536560875373851108\
58196983152011152723020609062655888180022187723027 40285396888035840559\
51256346482061218560106277633272914428438794371271 10128152202050390777\
81791840086688898104582374051412389242347270502457 82660918557189364838\
67432719622572463529072884883648868729655679796905 86533709765512822775\
55868995783376057461995479189566782009810227098029 49450999634113805136\
32534553197097496828680633271448909104214098105478 16004051753807991182\
01955721415491456271910691364551855200550670073126 26377083090623765196\
61548333873789190224738042642777409559878688622765 95638277334877040918\
42526024453479571065961752116268120308529767545216 01897434380693380089\
37893995383705476106381407090486529687782596086670 39425634676701771431\
92891228207501830792551441831187098864721705112355 45049326046070496751\
40734115671855971915916427451721780777613152367496 91650861506627407810\
83286197914765173822668796610031267687957768924085 38813403015514332964\
19459557638227154848693153561561214391974329383485 37690373682932394101\
52299572175834367457601608956687607690879683099815 00558307068097095919\
69762499785412457859877301859702881627639972350084 25521000352799633940\
00984167583030993759008747069860421124848738845221 83473917619507335186\
86134164585090880474392121190248996440719853628963 78478749897923662858\
31941233339253056911614419817655455065329201619972 18921260015144662983\
32059864672789640705486281446281937154099477706005 16095171922174918666\
14088993133797484427032012882753369725902237232246 89997566966919530777\
50733202394419988203843407727124347152721

> Si me pudieras decir la sentencia que usas
> para obtener el valor que obtuviste para -100, me podría instalar
> Mathematica y hacer pruebas.

Pues eso:

Hypergeometric1F1[-1/2,1,-100]

Para evitar que cada vez lo convierta en funciones de Bessel, lo único
que he hecho es definir

f[x_]=Hypergeometric1F1[-1/2,1,x]

--

Antonio

Conchivgr***gmail.com escribió:
> On 25 ene, 15:27, Antonio González <gonfe...***gmail.com> wrote:
>> Conchi...***gmail.com escribió:
>>
>>
>>
>>> Muchas gracias.
>>> El caso es que tenemos que hacerlo en 1 ms,
>> El Mathematica calcula 2000 decimales (¿necesitas más de 2000
>> decimales?) para la lista -100,-99.9,...,-0.1,0 en
>>
>> In[21]:= Table[N[f[n], 2000], {n, -100, 0, .1}]; // Timing
>>
>> Out[21]= {0.078, Null}
>>
>> es decir, 8 céntesimas de segundo para mil números con 2000 decimales
>> (esto es 8 cienmilésimas por evaluación).
>>
>> --
>>
>> Antonio
>
> Muchísimas gracias Antonio. No tengo el Mathemática aquí. Pero tiene
> una pinta estupenda eso que me dices. ¿Podrías hacerme el favor de
> calcularlo para x = -80?.

10.12411899584942661106842261925090271320567410757 31374811199936077535\
54653837441242441489870671673378569861269358245635 27869685877333677468\
51783106012971839032973998437849719308707856166679 25924151925591608634\
51234126501843838818751846062988159231726613748955 88143713157020958687\
41450338641829239830076404847292066109596593571897 56593148713085386842\
60757455558996088165137575354018193182333091999062 14623437862901525629\
82971171882354828052789094495319307857290179784729 88536560875373851108\
58196983152011152723020609062655888180022187723027 40285396888035840559\
51256346482061218560106277633272914428438794371271 10128152202050390777\
81791840086688898104582374051412389242347270502457 82660918557189364838\
67432719622572463529072884883648868729655679796905 86533709765512822775\
55868995783376057461995479189566782009810227098029 49450999634113805136\
32534553197097496828680633271448909104214098105478 16004051753807991182\
01955721415491456271910691364551855200550670073126 26377083090623765196\
61548333873789190224738042642777409559878688622765 95638277334877040918\
42526024453479571065961752116268120308529767545216 01897434380693380089\
37893995383705476106381407090486529687782596086670 39425634676701771431\
92891228207501830792551441831187098864721705112355 45049326046070496751\
40734115671855971915916427451721780777613152367496 91650861506627407810\
83286197914765173822668796610031267687957768924085 38813403015514332964\
19459557638227154848693153561561214391974329383485 37690373682932394101\
52299572175834367457601608956687607690879683099815 00558307068097095919\
69762499785412457859877301859702881627639972350084 25521000352799633940\
00984167583030993759008747069860421124848738845221 83473917619507335186\
86134164585090880474392121190248996440719853628963 78478749897923662858\
31941233339253056911614419817655455065329201619972 18921260015144662983\
32059864672789640705486281446281937154099477706005 16095171922174918666\
14088993133797484427032012882753369725902237232246 89997566966919530777\
50733202394419988203843407727124347152721

> Si me pudieras decir la sentencia que usas
> para obtener el valor que obtuviste para -100, me podría instalar
> Mathematica y hacer pruebas.

Pues eso:

Hypergeometric1F1[-1/2,1,-100]

Para evitar que cada vez lo convierta en funciones de Bessel, lo único
que he hecho es definir

f[x_]=Hypergeometric1F1[-1/2,1,x]

--

Antonio