Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Return a value from function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97668] Return a value from function
  • From: Mite <mitemeister at gmail.com>
  • Date: Wed, 18 Mar 2009 04:54:49 -0500 (EST)

I'm using Mathematica 6. Trying to count the Maximum Independent Vertex Set in a graph g. I'm using recursive calls to a function. I think that when I call a return on a function that is called from its recursive predecesor, the two functions finish. Is that possible, or is it only me thinking wrong. If its possible, how can i solve this. Here is the code: 

Needs["Combinatorica`"]
g = CompleteGraph[5];
g = DeleteEdge[g, {1, 2}];
g = DeleteEdge[g, {3, 2}];
g = DeleteEdge[g, {1, 3}];
g = DeleteEdge[g, {1, 5}];
g = DeleteEdge[g, {3, 5}];
g = DeleteEdge[g, {2, 5}];

ShowLabeledGraph[g]
n1 = 0;
n2 = 0;
func = Function[g1,
   deg = 0;
   degrees = Degrees[g1];
   temp = 0;
   For[i = 1, i <= V[g1], i++,
    If[degrees[[i]] > 0, deg = deg + degrees[[i]];]];
   deg = Divide[deg, 2];
   Print["Degree: ", deg];
   v = V[g1];
   If[deg == 0, Print["true, V[G] = ", v]; Return[v]; 
    Print["Ret ne rabote"];,
    Print["false, V[G] = ", v];
    v = V[g1];
    Print["Izbrana tocka ", v];
    n1 = func[DeleteVertex[g1, v]];
    Print["N1 = ", n1];
    n2 = func[DeleteVertices[g1, Neighborhood[g1, v, 1]]];
    Print["N2 = ", n2];
    Print["Max = ", Max[n1, n2]]
     Return[Max[n1, n2]]];];
Print[func[g]]


  • Prev by Date: Re: Using Mathematica notebooks in presentations?
  • Next by Date: Re: All Possible Combinations from N Sublists
  • Previous by thread: Re: Mathematica Graphics - speed bottleneck
  • Next by thread: Re: Return a value from function