Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: FeynArts and Mathematica 2.2.3 !?

  • To: mathgroup at
  • Subject: [mg3794] Re: FeynArts and Mathematica 2.2.3 !?
  • From: Alaa at
  • Date: Sun, 21 Apr 1996 23:25:54 -0400
  • Sender: owner-wri-mathgroup at

 I forgot to include my name and e-mail when I first sent this message so 
 I'm sending it again with this information.

 I'm the one who first asked about FeynArts and FeynCalc. I finally got
 FeynArts to work with Mathematica 2.2
 I was originally trying to use FeynArts with Mathematica 2.2.3 but it never 
 work and was giving a puzzling error messages. It was just a coincidence to
 run it with Mathematica 2.2 and it worked quit well. I don't know yet 
 what is the problem between FeynArts and Mathematica 2.2.3, however, I'm 
 attaching a sample notebook with the error messages. This notebook runs with 
 Mathematica 2.2 with no problem!
						Alaa Ibrahim
						Alaa at 
 		BhaBha Scattering in the Lowest (Nonvanishing) Order 
 In[1]:= AppendTo[$Path, "C:\FeynArts"] 
 Out[1]= {., M:\WNMATH22\, M:\WNMATH22\PACKAGES\, 
             M:\WNMATH22\PACKAGES\PRELOAD\, C:\FeynArts}
 In[2]:= <<Feynarts.m 
  FeynArts 1.0 for Mathematica 2.0 (October 1991)
  by Hagen Eck and Sepp Kueblbeck 
  [additional packages being loaded]   
 In[3]:= BhaLowestTop = CreateTopologies[0,4,Tadpoles->False,
  		Triangles->True, Theta->False, Eight->False];
 Out[3]= 4
 In[4]:= BhaLowestIns = InsertFields[BhaLowestTop, 
  Print::noopen: Can't open {FeynArts.log}.
      Could not find file "model.QED"  (no initialization). 
                                     Allowed Models are 
      {SM, QED, QCD, QE, QC}. 
     Normal expression expected at position 1 in 
      Append[Symbol, Process -> {F[1], F[-1]} -> {F[1], F[-1]}].
 In[5]:= BhaLowestGraphs = Paint[BhaLowestIns,GraphsPerRow->2, RowsPerSheet->2,
  		PSFileOutput->False, ScreenMessages->False,
  		FullNumbering->True, ShowPointNames->False]//Timing
 Out[5] = {1.77636 10    Second, Paint[$Aborted, GraphsPerRow -> 2, 
         RowsPerSheet -> 2, PSFileOutput -> False, ScreenMessages -> False, 
         FullNumbering -> True, ShowPointNames -> False]}


  • Prev by Date: Monty Hall
  • Next by Date: System of PDEs
  • Previous by thread: Monty Hall
  • Next by thread: System of PDEs