Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Solve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg18831] Solve
  • From: steffenz at server2.fo.FH-Koeln.DE
  • Date: Thu, 22 Jul 1999 08:19:41 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Hi !

I try to use solve but mathematica neads houers eating up all memory 
but did not finish.
Is there any mistake in my programming or is this problem to 
complicate?

bye

Steffen


Einheits[vec_]:=vec/Sqrt[vec.vec];
Wink[vec1_,vec2_]:=ArcCos[Einheits[vec1].Einheits[vec2]];

v[alp_,bet_]:=Einheits[{Tan[bet],Tan[alp],1}];
vlam[alp1_,bet1_,alp2_,bet2_]:=Einheits[-v[alp1,bet1]+v[alp2,bet2]];
quell[vec_,fac_:1.3]:=Einheits[vec*{1,1,1/fac}];

Solve[{Evaluate[Wink[v[a12,b12],v[a22,b22]]==Wink[v[a11,b11],v[a21,b21
]]],
Evaluate[vlam[a12,b12,a22,b22]==quell[vlam[a11,b11,a21,b21]]]},{a11,b1
1,a21,
    b21}]


  • Prev by Date: Re: Is there a FAQ? (Clear all)
  • Next by Date: ReadList
  • Previous by thread: Re: Limit of an Integer Function
  • Next by thread: Re: Solve