Skip to content

Instantly share code, notes, and snippets.

View raydsameshima's full-sized avatar
🤒
Out sick

Ray D. Sameshima raydsameshima

🤒
Out sick
1 follower · 3 following
  • NYCCT
  • Brooklyn, NY
View GitHub Profile
@raydsameshima
raydsameshima / gist:0f4d3d2fb5bccee01e4be4812ee805a7
Created October 1, 2018 22:24
Haskell's ($) in Maxima
infix("$$", 2, 1);
"$$" (f,x) := f ( x );
@raydsameshima
raydsameshima / gist:e2a6886f9c50b37e4976e52e88d6c7b0
Created October 17, 2018 01:36
A useful link for maxima
http://www.roland-salz.de/html/maxima.html
@raydsameshima
raydsameshima / filetype.vim
Created October 24, 2018 17:15
Maxima syntax highlight
" .vim/filetype.vim
" See
" https://def.fe.up.pt/pipermail/maxima-discuss/2008/021737.html
" for this script.
if exists("did_load_filetypes")
finish
endif
augroup filetypedetect
au! BufRead,BufNewFile *.mac setfiletype maxima
au! BufRead,BufNewFile *.dem setfiletype maxima
@raydsameshima
raydsameshima / test.tex
Created November 10, 2018 15:19
typewriter.sty usage
% !TeX program = lualatex
\documentclass{article}
\usepackage{amsmath}
\usepackage{typewriter}
\begin{document}
\title{Some math symbols}
\author{Ray D. Sameshima}
@raydsameshima
raydsameshima / gist:98343e3fb935748a045137628f234384
Created March 26, 2019 02:12
SF expression
(%i1) f: (x+y+x*y)^(-d/2);
1
(%o1) ----------------
d/2
(x y + y + x)
(%i2) makelist ( subst([x=0], diff(f,x,i)), i,0,5);
d (- d/2) - 2 2
(- d/2) - 1 ((- -) - 1) d y (y + 1)
1 d y (y + 1) 2
(%o2) [----, - ----------------------, - -----------------------------------,
@raydsameshima
raydsameshima / gist:fbf64cc2b6dc50c38659d0d6cd688487
Created March 27, 2019 16:10
One Loop Vacuum Bubble
{
oneLoopBubble[1,-3] ->
+ oneLoopBubble[1,0]*(((d)*pp^3+(12*m2)*pp^2)/d)
,
oneLoopBubble[1,-2] ->
+ oneLoopBubble[1,0]*(((d)*pp^2+(4*m2)*pp)/d)
,
oneLoopBubble[1,-1] ->
+ oneLoopBubble[1,0]*(pp)
,
@raydsameshima
raydsameshima / gist:59c13132e7ba78d3a2f4706661bd9071
Created March 27, 2019 16:31
Massless One Loop vacuum Bubble
{
oneLoopBubble[1,-3] ->
+ 0
,
oneLoopBubble[1,-2] ->
+ 0
,
oneLoopBubble[1,-1] ->
+ 0
,
@raydsameshima
raydsameshima / gist:7d0cda64246487f0573662d561999a8b
Created March 29, 2019 17:57
Massless one-loop triangle
{
oneLoopTri[1,0,-1] ->
+ 0
,
oneLoopTri[2,1,1] ->
+ oneLoopTri[1,1,1]*(((d-4)*p12)/((p11)*p22))
+ oneLoopTri[0,1,1]*((d-3)/((p11)*p22))
+ oneLoopTri[1,0,1]*((-d+3)/((p11)*p22))
+ oneLoopTri[1,1,0]*((-d+3)/((p11)*p22))
,
@raydsameshima
raydsameshima / massive tadpole
Created April 4, 2019 18:08
{
tadPole[0] ->
+ 0
,
tadPole[-1] ->
+ 0
,
tadPole[-2] ->
+ 0
,
@raydsameshima
raydsameshima / gist:965bf9a2a2afc6d7d1c221940031e044
Created April 8, 2019 16:38
kite v.s. sunset
Maxima 5.41.0 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.12
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) batch("kiteVSsunset.mac")
read and interpret file: #p/home/ray/Documents/latex/IBP/Schwinger/kiteVSsunset.mac
(%i2) kill(all)