Re: FeynArts and Mathematica 2.2.3 !?

*To*: mathgroup at smc.vnet.net*Subject*: [mg3794] Re: FeynArts and Mathematica 2.2.3 !?*From*: Alaa at glue.umd.edu*Date*: Sun, 21 Apr 1996 23:25:54 -0400*Sender*: owner-wri-mathgroup at wolfram.com

I forgot to include my name and e-mail when I first sent this message so I'm sending it again with this information. Hi: 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 glue.umd.edu -------------------------------------------------------------------------- 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, SelfEnergies->False,WFCorrections->False, Triangles->True, Theta->False, Eight->False]; Length[BhaLowestTop] Out[3]= 4 In[4]:= BhaLowestIns = InsertFields[BhaLowestTop, {F[1],F[-1]}->{F[1],F[-1]}, Model->{QED},Generation1->True,Generation2->False, Generation3->False,ElectronHCoupling->False, LightFHCoupling->False,ScreenMessages->False]; Print::noopen: Can't open {FeynArts.log}. FeynInit`Private`Init::filenotfound: Could not find file "model.QED" (no initialization). Allowed Models are {SM, QED, QCD, QE, QC}. Append::normal: 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 -15 Out[5] = {1.77636 10 Second, Paint[$Aborted, GraphsPerRow -> 2, RowsPerSheet -> 2, PSFileOutput -> False, ScreenMessages -> False, FullNumbering -> True, ShowPointNames -> False]} ----------------------------------------------------------------------------- ==== [MESSAGE SEPARATOR] ====