Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Label/Goto' topicStudent Support Forum > General > Archives > "Label/Goto"

Next Comment >Help | Reply To Topic
Author Comment/Response
Laurent Simula
02/10/06 08:35am

Hello,

I would like to use Label and Goto to create a simple loop in a programme. However, Mathematica tells me: Label begin not found.

Please find the loop below. I would be very grateful if you could help me. The help in Mathematica is not very helpful as regards the loops.

Laurent Simula
Faculty of Economics
University of Cambridge
IDEP-GREQAM and EHESS


θstar = 2.2;
Label[begin];
θstar += .01; Sπ = 1 - F[θstar] - vPC[θstar]*e*θstar*f[θstar]/(1 +
e) - ιsup; υ[θ_] = (1 + 1/e)/(θ*f[θ])*(1 - F[θ] - Sπ);
TT[θ_] = υ[θ]/(υ[θ] + 1);
TMA[θ_] = If[θ < θstar, TT[θ], TMPC[θ]];
l[θ_] = If[θ < θstar, θ^e*(1 - TMA[θ])^e, zPC[
θ]/θ]; VMIN = NIntegrate[(t*l[t] - l[
t]^(1 + 1/e)/(1 + 1/e) - NIntegrate[l[τ]^(1 + 1/e)/τ, {τ, 0, t}])*f[t], {
t, 0, 5}]; V[θ_] = VMIN + NIntegrate[l[t]^(1 + 1/e)/t, {t, 0, θ}];
critere = Abs[V[θstar] - UR[θstar]];
If[critere > 0.01, Clear[Sπ, υ, TT, TMA, l, VMIN, V]];
If[critere > 0.01, Goto[begin]];
Print[θstar];

Attachment: c=9000.nb, URL: ,

Subject (listing for 'Label/Goto')
Author Date Posted
Label/Goto Laurent Simula 02/10/06 08:35am
Re: Label/Goto yehuda ben-s... 02/12/06 2:21pm
Re: Label/Goto yehuda ben-s... 02/13/06 07:09am
Re: Label/Goto Alvin 02/13/06 10:39pm
Next Comment >Help | Reply To Topic