包 latexalpha2 错误：无法找到使用 latexalpha2 所需的 WolframScript

Question 1

更新答案

对已发布的问题的回答：适用latexalpha2于 Windows 和lualatex/ pdflatex。

此代码测试了原始包的大部分功能。

\documentclass[12pt,a4paper]{article}
\RequirePackage{float}% 

\RequirePackage[cache]{latexalpha2wlua} % option cache (faster the second run) or nocache (recalculate always)

\begin{document}

\begin{figure}[H]
    \wolframgraphics{Plot3D[Sin[x]Cos[y],{x,-2Pi,2Pi},{y,-2Pi,2Pi}]}{Plot3Db}
    \includegraphics{Plot3Db.pdf}
    \caption{Plot 3D of $f(x,y)=\sin(x)\cos(y)$}
    \centering
\end{figure}

Laplace Transform of $t^4 sin(t)$

$$ \wolfram{LaplaceTransform[t^4 Sin[t],t,s]} $$

Generates a power series expansion

$$ \wolfram{Series[Exp[x],{x,0,5}]} $$

\bigskip    

Compton scattering for electron \bigskip

$\wolframalpha{Compton scattering for electron}$

\bigskip    

Solve the equation  $a x^2+b x+c=0$ and display the corresponding results

\wolframsolve{a x^2+b x+c==0}{x}

\newpage
\begin{table}[H]
    \centering
    \begin{tabular}{cccc} %set the correct number of columns!
        \toprule
        \wolframtable{Join[{{x,x^2,x^3,x^4}}, Table[{i,i^2,i^3,i^4},{i,6}]]}
    \end{tabular}
    \caption{Generate a table $x$, $x^2$, $x^3$, $x^4$}
\end{table} 

\bigskip

The population of Shanghai is $\wolframalpha{Shanghai population}$, which
is $\wolframalpha{ratio of Shanghai population and NYC population}$ times the
population of New York City.

\bigskip

Solve differential equations $y'(x) + y(x) = a *sin(x)*y(x)*x $

\wolframdsolve{y'[x]+y[x]==a Sin[x]}{y[x]}{x}

\end{document}

我重命名的包latexalpha2wlua可以与 Windows 和一起使用lualatex。

%%
%% This is file `latexalpha2wlua.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% latexalpha2.dtx  (with options: `package')
%% 
%% This is a generated file.
%% 
%% Copyright (C) 2019 by Yi Liu <[email protected]>
%% 
%% This file may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.3c of this license
%% or (at your option) any later version. The latest version of this
%% license is in:
%% 
%%    http://www.latex-project.org/lppl.txt
%% 
%% and version 1.3c or later is part of all distributions of LaTeX
%% version 2006/05/20 or later.
%%
%% modified for windows and luatex by Simon Dispa (2021) v1.0e
%% 
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{latexalpha2wlua}[2021/01/21 v1.0d latexalpha2wlua]
\RequirePackage{graphicx}
\RequirePackage{amsmath}
\RequirePackage{etoolbox}
\RequirePackage{pdftexcmds}
\RequirePackage{shellesc}
\RequirePackage{booktabs}%
\RequirePackage{animate}

\newbool{ifcache}

\DeclareOption{local}{\def\la@platform{-local}}
\DeclareOption{cloud}{\def\la@platform{-cloud}}
\DeclareOption{cache}{\booltrue{ifcache}}
\DeclareOption{nocache}{\boolfalse{ifcache}}

\ExecuteOptions{local}
\ProcessOptions\relax

\begingroup
\makeatletter
\catcode`#=12
\catcode`&=12
\gdef\@hashchar{#}
\gdef\@ampchar{&}
\gdef\backslash{\@backslashchar}
\makeatother
\endgroup

\def\la@codetempfile{la2w_code.wls}
\def\la@resulttempfile{}
\def\la@currcodehash{}
\def\la@animaoutdir{}
\def\la@outdir{la_output}
\def\la@midrule{midrule}

\newcommand{\la@unknownoption}[2]{\PackageError{latexalpha2wlua}{Unknown option '#2' for \@backslashchar #1}{}}

\newcommand{\la@makedir}[1]{IF NOT EXIST #1 md #1}
\newcommand{\la@deldir}[1]{rd /Q /S #1 }

\newcommand{\la@executewolfram}[1]{%
\IfFileExists{\la@resulttempfile}{\ifbool{ifcache}{}{\la@executewolframcore{#1}}
}{\la@executewolframcore{#1}}
}

\newcommand{\la@executewolframcore}[1]{%
\def\la@wolframscript{wolframscript -file \la@outdir\backslash\la@codetempfile\space -print -format #1 \la@platform\space> \la@resulttempfile}%
\immediate\write18{\la@wolframscript}%
}


\newcommand{\la@writecodefile}[2]{%
\gdef\la@currcodehash{\pdf@mdfivesum{#1#2}}%%<<<<<<<<<<<<<<<<<<<<<<<<<<<<
\gdef\la@resulttempfile{\la@outdir\backslash#2_\[email protected]}%
\newwrite\tempfile%
\immediate\openout\tempfile=\la@outdir\backslash\la@codetempfile%
\immediate\write\tempfile{#1}%
\immediate\closeout\tempfile%
}

\def\la@texformat{tex}
\def\la@textformat{txt}
\def\la@wolframformat{wolfram}
\def\la@wolframtwoformat{wolfram2}
\def\la@pdfformat{pdf}
\def\la@pngformat{png}
\def\la@jpgformat{jpg}

\newcommand{\wolfram}[2][tex]{%
\message{>>>> starting wolfram (#1): please wait ...  ^^J}%
\def\la@currformat{#1}%
\la@writecodefile{#2}{#1}%
\ifx \la@currformat \la@texformat \la@executewolfram{TeXForm} \else
\ifx \la@currformat \la@textformat \la@executewolfram{txt} \else
\ifx \la@currformat \la@wolframformat \la@executewolfram{} \else
\la@unknownoption{wolfram}{#1}
\fi\fi\fi
\input{\la@resulttempfile}%
}

\newcommand{\wolframalpha}[2][tex]{%
\message{>>>> starting wolframalpha (-> #1): please wait ...  ^^J}%
\def\la@currformat{#1}%
\la@writecodefile{WolframAlpha["#2","%
\ifx\la@currformat\la@textformat ShortAnswer\else
\ifx\la@currformat\la@wolframtwoformat Result\else
WolframResult\fi\fi
"]}{#1}%
\ifx \la@currformat \la@textformat \la@executewolfram{} \else
\ifx \la@currformat \la@wolframformat \la@executewolfram{} \else
\ifx \la@currformat \la@wolframtwoformat \la@executewolfram{} \else
\ifx \la@currformat \la@texformat \la@executewolfram{TeXForm} \else
\la@unknownoption{wolframalpha}{#1}
\fi\fi\fi\fi
\input{\la@resulttempfile}%
}

\newcommand{\wolframgraphics}[3][pdf]{%
\message{>>>> starting wolfram #1 graphics: please wait ...  ^^J}%
\def\la@currformat{#1}%
\la@writecodefile{#2}{#1}%
\ifx \la@currformat \la@pdfformat \la@executewolfram{PDF} \else
\ifx \la@currformat \la@pngformat \la@executewolfram{PNG} \else
\ifx \la@currformat \la@jpgformat \la@executewolfram{JPEG} \else
\la@unknownoption{wolframgraphics}{#1}
\fi\fi\fi
\ifx \la@currformat \la@pdfformat \immediate\write18{copy\space\la@resulttempfile\space#3.pdf >NUL} \else
\ifx \la@currformat \la@pngformat \immediate\write18{copy\space\la@resulttempfile\space#3.png >NUL} \else
\ifx \la@currformat \la@jpgformat \immediate\write18{copy\space\la@resulttempfile\space#3.jpg >NUL} \else
\la@unknownoption{wolframgraphics}{#1}
\fi\fi\fi
}

\newcommand{\wolframsolve}[2]{%
\def\la@currformat{#2}%
\message{>>>> starting wolfram (-> tex) solve: please wait ...  ^^J}%
\la@writecodefile{"\@backslashchar\@backslashchar begin{flalign*}"<>StringJoin@@("\@ampchar"<>ToString[ToExpression["TeXForm"][#2]]<>"="<>ToString[ToExpression["TeXForm"][\@hashchar]]<>"\@backslashchar\@backslashchar\@backslashchar\@backslashchar"\@ampchar/@(#2/.Solve[#1, #2]))<>"\@backslashchar\@backslashchar end{flalign*}"}{}%
\la@executewolfram{txt}%
\input{\la@resulttempfile}%
}

\newcommand{\wolframdsolve}[3]{%
\message{>>>> starting wolfram (-> tex) diff. eq. solve: please wait ...  ^^J}%
\la@writecodefile{"\@backslashchar\@backslashchar begin{flalign*}"<>StringJoin@@("\@ampchar"<>ToString[ToExpression["TeXForm"][#2]]<>"="<>ToString[ToExpression["TeXForm"][\@hashchar]]<>"\@backslashchar\@backslashchar\@backslashchar\@backslashchar"\@ampchar/@(#2/.DSolve[#1, #2, #3]))<>"\@backslashchar\@backslashchar end{flalign*}"}{}%
\la@executewolfram{txt}%
\input{\la@resulttempfile}%
}

\newcommand{\wolframtable}[1]{%
\message{>>>> starting wolfram table: please wait ...  ^^J}%
\def\la@tablecode{StringJoin@@(%
(StringRiffle[("$"<>Slot[1]<>"$")   \@ampchar/@ToString/@TeXForm/@(Slot[1]),"\space\@ampchar\space" ]
<>  "\space\@backslashchar\@backslashchar\@backslashchar\@backslashchar\space\@backslashchar\@backslashchar\la@midrule\space")
\@ampchar/@(#1)     
)}%
\la@writecodefile{\la@tablecode}{tex}%
\la@executewolfram{Text}%
\input{\la@resulttempfile}%
}
    \newcommand{\wolframonlygif}[2]{%
    \message{>>>> starting wolfram only gif: please wait wait wait  ...  ^^J}%
    \la@writecodefile{#1}{gif}%
    \la@executewolfram{GIF}
    \immediate\write18{copy\space\la@resulttempfile\space #2.gif >NUL}% 
}

\newcommand{\wolframanimation}[2]{%
\message{>>>> starting wolfram animation: please wait wait wait  ...  ^^J}%
\gdef\la@animaoutdir{#2}    
\immediate\write18{\la@makedir{\la@animaoutdir}}
\la@writecodefile{#1}{gif}%
\la@executewolfram{GIF}
\immediate\write18{copy\space\la@resulttempfile\space\la@animaoutdir\backslash#2.gif >NUL}% OK
\immediate\write18{convert -coalesce \space\la@animaoutdir\backslash#2.gif #2/frame.png}%
}

\AtBeginDocument{%  
\immediate\write18{\la@makedir{\la@outdir}} 
%%  Check if wolframscript is available
\immediate\write18{wolframscript -code 2+2 > la2_check.tmp}%
\newread\wsreturncodefile%
\immediate\openin\wsreturncodefile= la2_check.tmp%
\readline\wsreturncodefile to \wsreturncode%
\immediate\closein\wsreturncodefile%
%   %^^A https://tex.stackexchange.com/a/26873
\def\instring#1#2{TT\fi\begingroup\edef\x{\endgroup\noexpand\in@{#1}{#2}}\x\ifin@}%
\if\instring{4}{\wsreturncode}
\immediate\write18{del /Q la2_check.tmp >NUL} 
\PackageInfo{latexalpha2wlua}{WolframScript is available}{}\else
\PackageError{latexalpha2wlua}{WolframScript cannot be found. Required to use latexalpha2wlua}{}     
\fi
}

\AtEndDocument{%
\ifbool{ifcache}{}{\immediate\write18{\la@deldir{\la@outdir}}} 
}

\endinput
%%
%% End of file `latexalpha2wlua.sty'.

笔记

(0)必须安装 Wolfram Engine，并且 wolframscript 必须在命令提示符下完全运行！示例可以在

https://reference.wolfram.com/language/ref/program/wolframscript.html

（1）在 Windows 7 上测试。

（2）该文件latexalpha2wlua.sty应与文档位于同一目录下.tex。

（3）使用 lualatex 和 pdflatex 测试。请参阅 MWE

(4) 简化代码，消除无害消息。

(5)cache如果查询不变，使用该选项可使重新编译速度更快。目前，所有输出文件仍保留在同一目录中。该选项nocache会清除所有内容，但第二次会重新计算所有内容。

（6）要使用相同的包制作动画 GIF，请参阅

https://tex.stackexchange.com/a/580062/161015

Answer