Inserting Feynman Slash Notation in Mathematica

[Shaun Culver]

I need to insert the slash notation, $$A\!\!\!/$$ , into a Mathematica document. I have searched high and low, but find nothing on this.

 

[Crosson]

Interesting problem! I found a limited workaround, but hopefully Wolfram includes these characters in a future update. Here is the partial solution:

DisplayForm[RowBox[{"A", AdjustmentBox["", BoxMargins -> {{0.1, -1.35}, {0.4, 0.2}}], "/"}]]

This solution is has the following weaknesses:

1) It produces a string, rather then a symbol. Attempting to convert it to an expression produces an error.

2) The slash only appears correctly in DisplayForm, it instead appears as A/ in StandardForm and InputForm.

3) It doesn't scale well with size, you will have to adjust the -1.35 parameter to get this right. The character looks correct to me on a 19" 1280x1024 with no magnification and Mathematica's default 12pt courier font. Any other configuration will probably require fiddling with the -1.35.

I'm sorry the solution is so limited, you could try posting this question to the MathGroup moderated forum, and at least hopefully someone at Wolfram will patch this missing feature in an update.

 

[Shaun Culver]

Good effort, it works! It's a pity that it's too limited for my purposes though. I'll drop a message at the MathGroup forum.

 

[Shaun Culver]

I managed to find a good temporary solution to this issue. For those interested, see Stephen Luttrell's post at:
http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_thread/thread/05569c7125c8618e#