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] ====