How can I input Mathematica's code into beamer? - TeX

TopAnswers TeX

Meta

Databases

TeX

Code Golf

APL

C++

.net

db<>fiddle

Java

*nix

PHP

PowerShell

Python

Rust

टेक्-मराठी

Typst

Web Client Dev

Web Server Dev

How can I input Mathematica's code into beamer?

beamer add tag

a year ago Anonymous 12859

I copy Mathematica’s code into beamer. How can I get the result?

\documentclass[14pt]{beamer}
\usetheme{Warsaw}
%\usetheme{CambridgeUS}
%\usepackage{amsmath}
\begin{document}
\begin{frame
list = Table[{HoldForm[+##] & @@ 
     MonomialList[
      x^2 + y^2 + z^2 - 2 a x - 2 b y - 2 c z + a^2 + b^2 + c^2 - r^2,
       "DegreeLexicographic"], 
    TeXForm[(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2]}, {a, 1, 
    3}, {b, -3, 3}, {c, 1, 3}, {r, {2, 3, 5, 7, 11, 13}} ];
lis = Flatten[list, 3]

\end{frame}
\end{document}

xxxxxxxxxx
 
\documentclass[14pt]{beamer}\usetheme{Warsaw}%\usetheme{CambridgeUS}%\usepackage{amsmath}\begin{document}\begin{framelist = Table[{HoldForm[+##] & @@      MonomialList[      x^2 + y^2 + z^2 - 2 a x - 2 b y - 2 c z + a^2 + b^2 + c^2 - r^2,       "DegreeLexicographic"],     TeXForm[(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2]}, {a, 1,     3}, {b, -3, 3}, {c, 1, 3}, {r, {2, 3, 5, 7, 11, 13}} ];lis = Flatten[list, 3]​\end{frame}\end{document}
show all 16 lines

Top Answer

a year ago samcarter

There are a couple of problems:

missing } after \begin{frame
same as in https://topanswers.xyz/tex?q=7398 : if you want show source code, use the fragile frame option
you could just use the normal verbatim environment, however I’d suggest the listings package to allow automatic line breaks and other nice features

\documentclass[14pt]{beamer}
\usetheme{Warsaw}
%\usetheme{CambridgeUS}
%\usepackage{amsmath}
\usepackage{listings}
\begin{document}
\begin{frame}[fragile]
\begin{lstlisting}[breaklines]
list = Table[{HoldForm[+##] & @@ 
     MonomialList[
      x^2 + y^2 + z^2 - 2 a x - 2 b y - 2 c z + a^2 + b^2 + c^2 - r^2,
       "DegreeLexicographic"], 
    TeXForm[(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2]}, {a, 1, 
    3}, {b, -3, 3}, {c, 1, 3}, {r, {2, 3, 5, 7, 11, 13}} ];
lis = Flatten[list, 3]
\end{lstlisting}
\end{frame}
\end{document}

xxxxxxxxxx
 
\documentclass[14pt]{beamer}\usetheme{Warsaw}%\usetheme{CambridgeUS}%\usepackage{amsmath}\usepackage{listings}\begin{document}\begin{frame}[fragile]\begin{lstlisting}[breaklines]list = Table[{HoldForm[+##] & @@      MonomialList[      x^2 + y^2 + z^2 - 2 a x - 2 b y - 2 c z + a^2 + b^2 + c^2 - r^2,       "DegreeLexicographic"],     TeXForm[(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2]}, {a, 1,     3}, {b, -3, 3}, {c, 1, 3}, {r, {2, 3, 5, 7, 11, 13}} ];lis = Flatten[list, 3]\end{lstlisting}\end{frame}\end{document}
show all 18 lines

1 Answer