\u4e0b\u8a18\u306f\u6570\u5f0f\u3092TeX\u306e\u30bd\u30fc\u30b9\u306b\u5909\u63db\u3059\u308bphp\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002xml\u3067\u6570\u5f0f\u3092\u53d7\u3051\u3066\uff0cxml\u3067\u5909\u63db\u5f8c\u306e\u30bd\u30fc\u30b9\u3092\u8fd4\u3059\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u8907\u6570\u306e\u6570\u5f0f\u3092\u5909\u63db\u3059\u308b\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u30bd\u30fc\u30b9\u3092\u30b3\u30d4\u30fc\u3057\u3066\uff0c\u5f35\u308a\u3064\u3051\u305f\u306e\u3067\u3059\u304c\uff0c\u4e00\u90e8\u6587\u5b57\u304c\u304a\u304b\u3057\u304f\u306a\u3063\u3066\u3044\u308b\u304b\u3082\u77e5\u308c\u307e\u305b\u3093\u3002\u4ee5\u524d\u306b\u30d0\u30c3\u30af\u30af\u30aa\u30fc\u30c8\u304c\u5909\u306b\u306a\u3063\u3066\u3044\u305f\u3053\u3068\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n
<\/p>\n
<\/p>\n
<?php
\nheader(‘Access-Control-Allow-Origin:*’);
\nheader(‘Access-Control-Allow-Headers:*’);
\nheader(‘Access-Control-Allow-Methods:GET, POST, OPTIONS’);
\nheader(‘Content-Type: text\/plain’);
\n\/*
\n* \u8a66\u9a13\u7684\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3002maxima\u306e\u6570\u5f0f\u3092tex\u306b\u304b\u3048\u308b\u3082\u306e\u3002
\n* \u5f0f\u306e\u982d\u304b\u3089\u9806\u306b\u51e6\u7406\u3059\u308b\u30bf\u30a4\u30d7\u3002<\/p>\n
* \u8907\u6570\u306e\u5f0f\u3092\u5909\u63db\u3067\u304d\u308b\u3088\u3046\u306b\u5909\u66f4\u3057\u305f\u3002\u5f0f\u306fxml\u30c7\u30fc\u30bf\u3068\u3057\u3066\u3082\u3089\u3046\u3002<\/p>\n
*\/<\/p>\n
# $siki\u306f\u4ee5\u4e0b\u3067\u51e6\u7406\u3059\u308b\u3001maxima\u306e\u5f0f<\/p>\n
# $siki = “( 1 \/ 2 ) * x + m[x + 1] \/ y[2] + (x + 1) \/ (y – 3) + (x + 1) \/ y”;
\n# $siki = “((x + 1)) \/ (y – 3) + (x + 1) \/ y”;
\n# $siki = ” cos(x – 1) + log(y)”;
\n# $siki = “fun(x * y)”;
\n# $siki = “f[i + 1] \/ y^(x – 3)”;
\n# $siki = “bigsigma n + n^2 + cdot cdot cdot + n^k”;
\n# $siki = “v[0]^2 \/ g”;
\n# $siki = “x^2^z \/ 2”;<\/p>\n
if ($HTTP_RAW_POST_DATA) {<\/p>\n
parse_str($HTTP_RAW_POST_DATA);<\/p>\n
} else {<\/p>\n
$param1 = $_POST[“param1”];
\n}<\/p>\n
\/\/$logfile = fopen(“\/var\/www\/html\/temporary\/log.txt”,”w”);
\n\/\/fputs($logfile,$HTTP_RAW_POST_DATA);
\n\/\/fclose($logfile);<\/p>\n
\/*
\n$param1 = ‘<?xml version=”1.0″ encoding=”utf-8″?><root><folder>tmp1310093593530405<\/folder><question><num>1<\/num><AnswerTest>Equal_Com_Ass<\/AnswerTest><SAns>3*x^2<\/SAns><Errors><\/Errors><RawMark>1<\/RawMark><FeedBack><\/FeedBack><AnswerNote><\/AnswerNote><\/question><question><num>2<\/num><AnswerTest>Equal_Com_Ass<\/AnswerTest><SAns>3*sqrt(2)<\/SAns><Errors><\/Errors><RawMark>0<\/RawMark><FeedBack><\/FeedBack><AnswerNote>[[ATEqual_com_ass: (not AlgEquiv)]]<\/AnswerNote><\/question><\/root>’;
\n*\/<\/p>\n
$xml = simplexml_load_string($param1);<\/p>\n
foreach ($xml->question as $q) {<\/p>\n
$num_ary[] = $q->num;<\/p>\n
$AnswerTest_ary[] = $q->AnswerTest;<\/p>\n
$siki_ary[] = $q->SAns;<\/p>\n
}<\/p>\n
\/\/echo sizeof($siki_ary).”\\n”;<\/p>\n
$tmpxml = “”;<\/p>\n
for ($i4q = 0; $i4q < sizeof($siki_ary); $i4q = $i4q + 1) {<\/p>\n
$tmp = $siki_ary[$i4q];<\/p>\n
\/\/echo $tmp.”\\n”;<\/p>\n
if (($AnswerTest_ary[$i4q] == ‘Selection’) || ($AnswerTest_ary[$i4q] == ‘Glossary’)) {<\/p>\n
$tex_ary[$i4q] = $tmp;<\/p>\n
} else {<\/p>\n
$tmp = trim($tmp);<\/p>\n
if (preg_match(‘\/[^A-Za-z0-9. ,^*\\-\\\/+=<>()\\[\\]]\/’,$tmp)) {<\/p>\n
$tex_ary[$i4q] = ‘error(character)’;<\/p>\n
} else {<\/p>\n
$tmp4maxima=”display2d:false;load(\\”mactex-utilities.lisp\\”); tex(“.$tmp.”);”;<\/p>\n
$meirei=escapeshellarg($tmp4maxima);<\/p>\n
$awasete=”\/usr\/bin\/maxima -q –batch-string=$meirei”;<\/p>\n
$str = shell_exec($awasete);<\/p>\n
if (strpos($str,’$$’)) {<\/p>\n
\/\/\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0$str_ary = explode(‘$$’,$str);
\n\/\/\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0echo $str_ary[1].”\\n”;<\/p>\n
$tex_ary[$i4q] = changeToTex($tmp);<\/p>\n
} else {<\/p>\n
$tex_ary[$i4q] = ‘error(expression)’;<\/p>\n
}<\/p>\n
}<\/p>\n
}<\/p>\n
$tmpxml = $tmpxml.”<question>\\n<num>$num_ary[$i4q]<\/num>\\n”;<\/p>\n
$tmpxml = $tmpxml.”<AnswerTest>$AnswerTest_ary[$i4q]<\/AnswerTest>\\n”;<\/p>\n
$tmpxml = $tmpxml.”<SAns>$siki_ary[$i4q]<\/SAns>\\n”;<\/p>\n
$tmpxml = $tmpxml.”<tex>$tex_ary[$i4q]<\/tex>\\n<\/question>\\n\\n”;<\/p>\n
}<\/p>\n
$xml4return = <<< end_of_quote
\n<?xml version=”1.0″ encoding=”utf-8″?>
\n<root><\/p>\n
$tmpxml
\n<\/root>
\nend_of_quote;<\/p>\n
echo ($xml4return.”\\n”);<\/p>\n
function changeToTex($siki) {<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
$siki = escapeshellarg($siki);<\/p>\n
\/\/echo “siki\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 = |$siki| \\n”;<\/p>\n
$siki = trim($siki, “‘”);<\/p>\n
\/\/echo “trim\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ->|$siki| \\n”;<\/p>\n
$siki = ereg_replace(‘([\\*\/\\+\\-])’,’ \\1 ‘,$siki); # * \/ + – \u306e\u524d\u5f8c\u306b\u30b9\u30da\u30fc\u30b9\u3092\u5165\u308c\u308b<\/p>\n
\/\/echo “add space *\/+-\u00a0\u00a0 ->|$siki| \\n”;<\/p>\n
$siki = ereg_replace(‘ +’,’ ‘,$siki); # \u30b9\u30da\u30fc\u30b9\u306f2\u500b\u9023\u7d9a\u3057\u306a\u3044<\/p>\n
\/\/echo “cut double space ->|$siki| \\n”;<\/p>\n
$siki = $siki.” “;\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# \u6700\u5f8c\u306b\u30b9\u30da\u30fc\u30b9\u304c\u5fc5\u8981\u306a\u3088\u3046\u3060<\/p>\n
\/\/echo “add space at end ->|$siki| \\n”;<\/p>\n
$nagasa = strlen($siki);
\n$arr = str_split($siki);<\/p>\n
$arr[$nagasa] = ‘ ‘;
\n$arr[$nagasa + 1] = ‘ ‘;<\/p>\n
# echo “\u9577\u3055\u306f”.$nagasa.”\\n”;<\/p>\n
\/\/echo “arr\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 -> |”.implode(“|”,$arr).”|”.”\\n”;<\/p>\n
$i = 0;<\/p>\n
$bf = 0;\u00a0\u00a0 \u00a0# \u62ec\u5f27\u306e\u968e\u5c64\u3092\u793a\u3059\u30d5\u30e9\u30c3\u30b0\u3001\u62ec\u5f27\u304c\u3042\u308b\u3068\u30d5\u30e9\u30c3\u30b0\u304c\uff11\u5909\u5316\u3059\u308b
\n$taihi = ”;\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# \uff20\u4ee5\u4e0b\u306e\u8981\u7d20\u3092\u4e00\u6642\u7684\u306b\u683c\u7d0d\u3059\u308b\u5909\u6570
\n$youso[0] = ”; \u00a0\u00a0 \u00a0# tex\u306e\u5f0f\u306e\u30c6\u30f3\u30dd\u30e9\u30ea\u30fc\u306a\u5165\u308c\u7269
\n$pf = 0;\u00a0\u00a0 \u00a0# \u968e\u4e57\u306e\u6307\u6570\u90e8\u306e\u30d5\u30e9\u30c3\u30b0
\n$power[0] = -1;\u00a0\u00a0 \u00a0# \u968e\u4e57\u306e\u30ab\u30c3\u30b3\u304c\u3069\u306e$bf\u3067\u958b\u59cb\u3055\u308c\u305f\u306e\u304b\u3092\u8a18\u9332\u3059\u308b\u5909\u6570\u3002<\/p>\n
while ($nagasa – 1 >= $i) {<\/p>\n
\/\/echo ” \\$i = $i , |$arr[$i]| \\n”;<\/p>\n
if ($arr[$i] == ‘(‘ || $arr[$i] == ‘)’ || $arr[$i] == ‘[‘ || $arr[$i] == ‘]’) {
\nkcount ($arr[$i],$arr[$i + 1],$arr[$i + 2],$youso);
\n}<\/p>\n
if (ereg(‘[a-zA-Z0-9.]’, $arr[$i])) {
\nalpha ($arr[$i],$arr[$i + 1],$arr[$i + 2],$youso);
\n}<\/p>\n
if ($arr[$i] == “+” || $arr[$i] == “-” || $arr[$i] == “=”) {
\nepm ($arr[$i],$youso);
\n}
\nif ($arr[$i] == ” “) {
\nspace ($arr[$i],$arr[$i + 1],$youso);
\n}<\/p>\n
if ($arr[$i] == “*”) {
\nkakeru ($arr[$i],$youso);
\n}<\/p>\n
if ($arr[$i] == “^”) {
\nkaijyou ($arr[$i],$youso);
\n}<\/p>\n
if ($arr[$i] == “\/”) {
\nwaru ($arr[$i],$youso);
\n}<\/p>\n
$i = $i + 1;
\n}<\/p>\n
# \u6700\u5f8c\u306e\u51e6\u7406<\/p>\n
\/\/echo “last\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 |$youso[0]| pf = $pf, power = $power[$pf], bf = $bf \\n”;<\/p>\n
power_blackt_close($youso[0]);<\/p>\n
\/\/echo “power_blackt_close\u00a0 |$youso[0]| \\n”;<\/p>\n
#preg_match(‘\/cos\\\\\\\\left\\(([^\\\\\\\\]*)\\\\\\\\right\\)\\^\\{([^}]*)\\}\/’,$youso[0],$tmpary);
\n#echo “preg\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 |$tmpary[0]| |$tmpary[1]| |$tmpary[2]| \\n”;<\/p>\n
$youso[0] = preg_replace(‘\/(cos|cos |sin|sin |tan|tan )\\\\\\\\left\\((.*?)\\\\\\\\right\\)\\^\\{([^}]*)\\}\/’,’\\1^{\\3}\\left(\\2\\right)’,$youso[0]);<\/p>\n
\/\/echo “etc cos, sin\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 |$youso[0]| \\n”;<\/p>\n
makefrac($youso[0]);<\/p>\n
\/\/$youso[0] = ereg_replace(‘[\\\\]cdot’,’\\,’,$youso[0]);<\/p>\n
\/\/echo ‘this$$’.$youso[0].’$$that’.”\\n”;<\/p>\n
\/\/echo $youso[0].”\\n”;<\/p>\n
return $youso[0];<\/p>\n
} \/\/changeToTex<\/p>\n
function kcount ($arr,$arr1,$arr2,&$y) {
\n# \u62ec\u5f27\u306e\u30ab\u30a6\u30f3\u30c8<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “kcount start bf = $bf, y = |$y[$bf]| taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
switch($arr) {
\ncase ‘(‘:
\n$y[$bf] = $y[$bf].$taihi;
\n$taihi = ”;
\n$bf = $bf + 1;<\/p>\n
\/\/echo “bf change -> $bf \\n”;<\/p>\n
$y[$bf] = ”;
\nbreak;
\ncase ‘)’:
\n$y[$bf] = $y[$bf].$taihi;<\/p>\n
power_blackt_close($y[$bf]);<\/p>\n
#echo “kcount no1 |$y[$bf]| \\n”;
\n#$y[$bf] = ereg_replace(‘\\@\\^’,’^’,$y[$bf]);
\n#echo “kcount no2 |$y[$bf]| \\n”;<\/p>\n
makefrac($y[$bf]);<\/p>\n
$y[$bf] = ‘\\left(‘.$y[$bf].’\\right)’;
\n$bf = $bf – 1;<\/p>\n
\/\/echo “bf change -> $bf \\n”;<\/p>\n
$y[$bf] = $y[$bf].$y[$bf + 1].’@’;<\/p>\n
$y[$bf] = ereg_replace(‘(.*)[\\^][\\\\]left[\\(](.*)[\\\\]right[\\)]’,’\\1^{\\2}’,$y[$bf]);
\n$y[$bf] = ereg_replace(‘[\\\\]sqrt *[\\\\]left[\\(](.*)[\\\\]right[\\)]’,’\\sqrt{\\1}’,$y[$bf]);<\/p>\n
\/\/echo “kcount no3 |$y[$bf]| \\n”;<\/p>\n
$taihi = ”;
\nbreak;
\ncase ‘[‘:
\n$y[$bf] = $y[$bf].$taihi;
\n$taihi = ”;
\n$bf = $bf + 1;<\/p>\n
\/\/echo “bf change -> $bf \\n”;<\/p>\n
$y[$bf] = ”;
\nbreak;
\ncase ‘]’:
\n$y[$bf] = $y[$bf].$taihi;
\n$taihi = ”;
\nmakefrac($y[$bf]);<\/p>\n
$y[$bf] = ‘_{‘.$y[$bf].’}’;
\n$bf = $bf – 1;<\/p>\n
\/\/echo “bf change -> $bf \\n”;<\/p>\n
$y[$bf] = $y[$bf].$y[$bf + 1].’@’;
\nbreak;
\n}<\/p>\n
\/\/echo “kcount end\u00a0 bf = $bf, y = |$y[$bf]| taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
}<\/p>\n
function alpha ($arr,$arr1,$arr2,&$y) {
\n# \u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3068\u6570\u5b57\u306e\u51e6\u7406\u3001\u3068\u306b\u304b\u304f\u524d\u306e\u8981\u7d20\u306b\u7d99\u304e\u8db3\u3059<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “alpha start y = |$y[$bf]| taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
$taihi = $taihi.$arr;<\/p>\n
#\u00a0\u00a0 \u00a0echo “alpha $taihi \\n”;<\/p>\n
# \u6b21\u306e\u6587\u5b57\u3001\u3055\u3089\u306b\u305d\u306e\u6b21\u306e\u6587\u5b57\u3092\u8abf\u3079\u3066\u3001\u5fdc\u7b54\u3092\u5909\u3048\u308b\u3002<\/p>\n
if ($arr1 == ‘ ‘) {
\nif ($arr2 == ‘(‘) {
\nfun ($taihi);<\/p>\n
} else {<\/p>\n
greek ($taihi);<\/p>\n
$y[$bf] = $y[$bf].$taihi.’@’;<\/p>\n
\/\/echo “alpha no1\u00a0 y = |$y[$bf]| \\n”;<\/p>\n
$taihi = ”;
\n}
\n}<\/p>\n
if ($arr1 == ‘(‘) {
\nfun($taihi);
\n}<\/p>\n
if ($arr1 == ‘)’ || $arr1 == ‘[‘ || $arr1 == ‘]’ || $arr1 == ‘^’ || $arr1 == ‘\/’ || $arr1 == ‘+’ || $arr1 == ‘-‘ || $arr1 == ‘*’ || $arr1 == ‘=’ ) {
\ngreek ($taihi);
\n}<\/p>\n
\/\/echo “alpha end\u00a0 y = |$y[$bf]| taihi = |$taihi| \\n”;<\/p>\n
}<\/p>\n
function fun(&$taihi) {<\/p>\n
# \u95a2\u6570\u3092\u8a8d\u8b58\u3059\u308b\u6240\u3001\u65b0\u3057\u3044\u95a2\u6570\u3092\u52a0\u3048\u308b\u306a\u3089\u3053\u306e\u76f4\u4e0b\u00a0\u00a0 \u00a0\u3002\u95a2\u6570\u3068\u8a8d\u8b58\u3057\u305f\u3089\uff20\u3092\u4ed8\u3051\u306a\u3044<\/p>\n
\/\/echo “fun startt taihi = |$taihi| \\n”;<\/p>\n
switch($taihi) {
\ncase ‘cos’:
\n$taihi = ‘\\cos’ ;
\nbreak;
\ncase ‘sin’:
\n$taihi = ‘\\sin’ ;
\nbreak;
\ncase ‘tan’:
\n$taihi = ‘\\tan’ ;
\nbreak;
\ncase ‘log’:
\n$taihi = ‘\\log’ ;
\nbreak;
\ncase ‘sqrt’:
\n$taihi = ‘\\sqrt’ ;
\nbreak;
\ncase ‘Delta’:
\n$taihi = ‘\\Delta’ ;
\nbreak;
\ncase ‘exp’:
\n$taihi = ‘e^’ ;
\nbreak;<\/p>\n
case ‘alpha’:
\n$taihi = ‘\\alpha’ ;
\nbreak;
\ncase ‘beta’:
\n$taihi = ‘\\beta’ ;
\nbreak;
\ncase ‘gamma’:
\n$taihi = ‘\\gamma’ ;
\nbreak;
\ncase ‘delta’:
\n$taihi = ‘\\delta’ ;
\nbreak;
\ncase ‘epsilon’:
\n$taihi = ‘\\epsilon’ ;
\nbreak;
\ncase ‘varepsilon’:
\n$taihi = ‘\\varepsilon’ ;
\nbreak;
\ncase ‘eta’:
\n$taihi = ‘\\eta’ ;
\nbreak;
\ncase ‘theta’:
\n$taihi = ‘\\theta’ ;
\nbreak;
\ncase ‘lambda’:
\n$taihi = ‘\\lambda’ ;
\nbreak;
\ncase ‘mu’:
\n$taihi = ‘\\mu’ ;
\nbreak;
\ncase ‘nu’:
\n$taihi = ‘\\nu’ ;
\nbreak;
\ncase ‘pi’:
\n$taihi = ‘\\pi’ ;
\nbreak;
\ncase ‘rho’:
\n$taihi = ‘\\rho’ ;
\nbreak;
\ncase ‘sigma’:
\n$taihi = ‘\\sigma’ ;
\nbreak;
\ncase ‘tau’:
\n$taihi = ‘\\tau’ ;
\nbreak;
\ncase ‘phi’:
\n$taihi = ‘\\phi’ ;
\nbreak;
\ncase ‘varphi’:
\n$taihi = ‘\\varphi’ ;
\nbreak;
\ncase ‘chi’:
\n$taihi = ‘\\chi’ ;
\nbreak;
\ncase ‘psi’:
\n$taihi = ‘\\psi’ ;
\nbreak;
\ncase ‘omega’:
\n$taihi = ‘\\omega’ ;
\nbreak;<\/p>\n
case ‘times’:
\n$taihi = ‘\\times @’ ;
\nbreak;<\/p>\n
case ‘pm’:
\n$taihi = ‘\\pm @’ ;
\nbreak;
\ncase ‘mp’:
\n$taihi = ‘\\mp @’ ;
\nbreak;<\/p>\n
default:
\n# \u4eca\u306e\u3068\u3053\u308d\u4f55\u3082\u3057\u306a\u3044
\n}<\/p>\n
\/\/echo “fun end\u00a0\u00a0 taihi = |$taihi| \\n”;<\/p>\n
}<\/p>\n
function greek (&$taihi) {<\/p>\n
# \u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u306a\u3069\u3092\u8a8d\u8b58\u3059\u308b\u6240<\/p>\n
\/\/echo “greek start taihi = |$taihi| \\n”;<\/p>\n
switch($taihi) {
\ncase ‘alpha’:
\n$taihi = ‘\\alpha’ ;
\nbreak;
\ncase ‘beta’:
\n$taihi = ‘\\beta’ ;
\nbreak;
\ncase ‘gamma’:
\n$taihi = ‘\\gamma’ ;
\nbreak;
\ncase ‘delta’:
\n$taihi = ‘\\delta’ ;
\nbreak;
\ncase ‘epsilon’:
\n$taihi = ‘\\epsilon’ ;
\nbreak;
\ncase ‘varepsilon’:
\n$taihi = ‘\\varepsilon’ ;
\nbreak;
\ncase ‘eta’:
\n$taihi = ‘\\eta’ ;
\nbreak;
\ncase ‘theta’:
\n$taihi = ‘\\theta’ ;
\nbreak;
\ncase ‘lambda’:
\n$taihi = ‘\\lambda’ ;
\nbreak;
\ncase ‘mu’:
\n$taihi = ‘\\mu’ ;
\nbreak;
\ncase ‘nu’:
\n$taihi = ‘\\nu’ ;
\nbreak;
\ncase ‘pi’:
\n$taihi = ‘\\pi’ ;
\nbreak;
\ncase ‘rho’:
\n$taihi = ‘\\rho’ ;
\nbreak;
\ncase ‘sigma’:
\n$taihi = ‘\\sigma’ ;
\nbreak;
\ncase ‘tau’:
\n$taihi = ‘\\tau’ ;
\nbreak;
\ncase ‘phi’:
\n$taihi = ‘\\phi’ ;
\nbreak;
\ncase ‘varphi’:
\n$taihi = ‘\\varphi’ ;
\nbreak;
\ncase ‘chi’:
\n$taihi = ‘\\chi’ ;
\nbreak;
\ncase ‘psi’:
\n$taihi = ‘\\psi’ ;
\nbreak;
\ncase ‘omega’:
\n$taihi = ‘\\omega’ ;
\nbreak;
\ncase ‘Delta’:
\n$taihi = ‘\\Delta’ ;
\nbreak;
\ncase ‘hbar’:
\n$taihi = ‘\\hbar’ ;
\nbreak;<\/p>\n
case ‘times’:
\n$taihi = ‘\\times’ ;
\nbreak;
\ncase ‘pm’:
\n$taihi = ‘\\pm’ ;
\nbreak;
\ncase ‘mp’:
\n$taihi = ‘\\mp’ ;
\nbreak;
\ncase ‘cdot’:
\n$taihi = ‘\\cdot’ ;
\nbreak;
\ncase ‘sum’:
\n$taihi = ‘\\sum’ ;
\nbreak;<\/p>\n
default:
\n# \u4eca\u306e\u3068\u3053\u308d\u4f55\u3082\u3057\u306a\u3044
\n}<\/p>\n
\/\/echo “greek end\u00a0 taihi = |$taihi| \\n”;<\/p>\n
}<\/p>\n
function epm ($arr,&$y) {
\n# =\u3068+\u3068-\u306e\u51e6\u7406<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
# +-\u3092\u52a0\u3048\u3066\u533a\u5207\u308b<\/p>\n
\/\/echo “epm start y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
$y[$bf] = $y[$bf].$taihi.$arr.’@’;
\n$taihi = ”;<\/p>\n
\/\/echo “epm end\u00a0 y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
}<\/p>\n
function space ($arr,$arr1,&$y) {
\n# \u30b9\u30da\u30fc\u30b9\u306e\u51e6\u7406<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
# \u30b9\u30da\u30fc\u30b9\u3092\u52a0\u3048\u3066\u533a\u5207\u308b\u3001\u95a2\u6570\u540d\u3068\u62ec\u5f27\u306e\u9699\u9593\u306a\u3089\u533a\u5207\u3089\u306a\u3044\u3002sin (x)\u306a\u3069\u3002<\/p>\n
\/\/echo “space no1 |$y[$bf]|\u00a0 and taihi = |$taihi| \\n”;<\/p>\n
$y[$bf] = $y[$bf].$taihi;<\/p>\n
$taihi = “”;<\/p>\n
if ($arr1 == ‘(‘) {<\/p>\n
if (ereg(‘@$’,$y[$bf])) {<\/p>\n
$y[$bf] = $y[$bf].$arr.’@’;
\n\/\/echo “space no2 |$y[$bf]| \\n”;<\/p>\n
} else {
\n$y[$bf] = $y[$bf].$arr;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \/\/\u95a2\u6570\u3068\u5224\u65ad\u3057\u3066@\u3092\u3064\u3051\u306a\u3044
\n\/\/echo “space no3 |$y[$bf]| \\n”;
\n}<\/p>\n
} else {
\nif ($pf > 0 and $power[$pf] == $bf) {<\/p>\n
power_blackt_close($y[$bf]);<\/p>\n
#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u968e\u4e57\u306e\u30ab\u30c3\u30b3\u304c\u9589\u3058\u305f\u306e\u3067makefrac\u306a\u3069\u3082? … \u3053\u3053\u3067\u306f\u5fc5\u8981\u306a\u304b\u3063\u305f\u3002
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ereg(‘\\{([^{]*)\\}@$’,$y[$bf],$naka); \/\/\u6700\u5c0f\u306e\u9577\u3055\u306e{…}\u3092\u629c\u304d\u51fa\u3059
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0echo “naka 1 = |$naka[1]| \\n”;
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0makefrac($naka[1]);
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0$naka[1] = ‘{‘.$naka[1].’}@’;
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0echo “naka 2 = |$naka[1]| \\n”;
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0$y[$bf] = ereg_replace(‘\\{([^{]*)\\}@$’,$naka[1],$y[$bf]);<\/p>\n
$y[$bf] = $y[$bf].” @”;<\/p>\n
} else {
\n$y[$bf] = $y[$bf].$arr.’@’;
\n}<\/p>\n
\/\/echo “space no4 |$y[$bf]| \\n”;<\/p>\n
}<\/p>\n
\/\/echo “space end |$y[$bf]| \\n”;<\/p>\n
}<\/p>\n
function power_blackt_close (&$yy) {<\/p>\n
#\u00a0\u00a0 \u00a0\u968e\u4e57\u306e\u30ab\u30c3\u30b3\u3092\u9589\u3058\u308b<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “power blacket close start yy = |$yy| \\n”;<\/p>\n
#\u00a0\u00a0 \u00a0@\u3092\u524a\u3063\u3066<\/p>\n
if (ereg(‘@$’,$yy)) {<\/p>\n
$yy = substr($yy, 0, strlen($yy) – 1);<\/p>\n
\/\/echo ” cut @ at the end\u00a0 yy = |$yy| \\n”;
\n}<\/p>\n
while ($power[$pf] >= $bf) {<\/p>\n
$yy = $yy.’}’;<\/p>\n
$power[$pf] = -1;<\/p>\n
$pf = $pf – 1;<\/p>\n
\/\/echo ”\u00a0\u00a0 power down pf = $pf \\n”;<\/p>\n
}<\/p>\n
\/\/echo “power blacket close end\u00a0 yy = |$yy| \\n”;<\/p>\n
}<\/p>\n
function kakeru ($arr,&$y) {
\n# *\u306e\u51e6\u7406\u3001\u3068\u306b\u304b\u304f\u533a\u5207\u308b<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “kakeru start y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
$y[$bf] = $y[$bf].$taihi.’\\cdot ‘.’@’;<\/p>\n
$taihi = ”;<\/p>\n
\/\/echo “kakeru end\u00a0 y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
}<\/p>\n
function kaijyou ($arr,&$y) {
\n# ^\u306e\u51e6\u7406<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “kaijyou start y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
$y[$bf] = $y[$bf].$taihi;<\/p>\n
\/\/echo ”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 y = |$y[$bf]| \\n”;<\/p>\n
#\u00a0\u00a0 \u00a0\u5f8c\u308d\u306b\u4ed8\u3044\u3066\u3044\u308b@\u3068\u30b9\u30da\u30fc\u30b9\u3092\u524a\u3063\u3066^\u3092\u4ed8\u3051\u8db3\u3059<\/p>\n
while (ereg(‘@$’,$y[$bf]) || ereg(‘ $’,$y[$bf])) {<\/p>\n
$y[$bf] = substr($y[$bf], 0, strlen($y[$bf]) – 1);<\/p>\n
\/\/echo ”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 y = |$y[$bf]| \\n”;
\n}<\/p>\n
$taihi = ”;<\/p>\n
$y[$bf] = $y[$bf].’^{‘;<\/p>\n
$pf = $pf + 1;
\n$power[$pf] = $bf;<\/p>\n
\/\/echo “kaijyou end y = |$y[$bf]| \\n”;<\/p>\n
\/\/echo “Power up pf = $pf , bf = $bf \\n”;
\n}<\/p>\n
function waru ($arr,&$y) {
\n# \/\u306e\u51e6\u7406<\/p>\n
global $bf,$taihi,$pf,$power;<\/p>\n
\/\/echo “waru start y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
$y[$bf] = $y[$bf].$taihi.’\/’.’@’;<\/p>\n
$taihi = ”;<\/p>\n
\/\/echo “waru end\u00a0\u00a0 y = |$y[$bf]|\u00a0 and taihi = |$taihi| arr = |$arr| \\n”;<\/p>\n
}<\/p>\n
function makefrac (&$yy) {<\/p>\n
# \u5206\u6570\u3092\u3064\u304f\u308b\u3068\u3053\u308d\u3002\u5272\u308b\u8a18\u53f7\u3068\u5272\u308b\u8a18\u53f7\u306e\u9593\u306b\uff0b\u30fc\uff0a\uff1d\u304c\u3042\u308b\u3068\u5225\u306a\u5206\u6570\u3068\u307f\u306a\u3059\u3002\u305d\u3046\u3067\u306a\u3051\u308c\u3070\u540c\u3058\u5206\u6570\u3068\u3057\u3066\u53d6\u308a\u6271\u3046\u3002<\/p>\n
\/\/echo “start makefrac yy = |$yy| \\n”;<\/p>\n
$tmparr = split(‘@’,$yy);
\n$tmpnagasa = sizeof($tmparr);
\n$tmparr[$tmpnagasa] = ”;<\/p>\n
$j = 1;
\n$aida = 1;<\/p>\n
while ($j <= $tmpnagasa – 2) {<\/p>\n
if ($tmparr[$j] == ‘=’ || $tmparr[$j] == ‘+’ || $tmparr[$j] == ‘-‘ ||$tmparr[$j] == ‘\\cdot ‘) {
\n$aida = $aida + 1;
\n}<\/p>\n
if ($tmparr[$j] == ‘\/’) {<\/p>\n
$tmparr[$j] = ”;<\/p>\n
if ($aida >= 1) {<\/p>\n
$k = $j – 1;
\nwhile ($tmparr[$k] == ” | $tmparr[$k] == ‘ ‘) {
\n$k = $k – 1;
\n}<\/p>\n
\/\/echo ”\u00a0 no1 |$tmparr[$k]| \\n”;<\/p>\n
$tmparr[$k] = ereg_replace(‘^[\\\\]left[\\(](.*)[\\\\]right[\\)]$’,’\\1′,$tmparr[$k]);<\/p>\n
#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0echo “no2 |$tmparr[$k]| \\n”;<\/p>\n
#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0$tmparr[$k] = ereg_replace(‘(.*)[\\\\]left[\\(]([^+-]*)[\\\\]right[\\)]$’,’\\1 \\2′,$tmparr[$k]);<\/p>\n
\/\/echo ”\u00a0 no3 |$tmparr[$k]| \\n”;<\/p>\n
$tmparr[$k] = ‘\\frac{‘.$tmparr[$k].’}’;<\/p>\n
\/\/echo ”\u00a0 no4 |$tmparr[$k]| \\n”;<\/p>\n
$k = $j + 1;
\nwhile ($tmparr[$k] == ” | $tmparr[$k] == ‘ ‘) {
\n$k = $k + 1;
\n}<\/p>\n
$tmparr[$k] = ereg_replace(‘^[\\\\]left[\\(](.*)[\\\\]right[\\)]$’,’\\1′,$tmparr[$k]);
\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0$tmparr[$k] = ereg_replace(‘(.*)[\\\\]left[\\(]([^+-]+)[\\\\]right[\\)]$’,’\\1 \\2′,$tmparr[$k]);<\/p>\n
$tmparr[$k] = ‘{‘.$tmparr[$k].’}’;<\/p>\n
\/\/echo ”\u00a0 no5 |$tmparr[$k]| \\n”;<\/p>\n
$aida = 0;<\/p>\n
} else {<\/p>\n
$k = $j – 1;
\nwhile ($tmparr[$k] == ” | $tmparr[$k] == ‘ ‘) {
\n$k = $k – 1;
\n}<\/p>\n
if (ereg(‘[\\+\\-]’, $tmparr[$k])) {<\/p>\n
$tmp = ereg_replace(‘{(.+)}’,’\\left(\\1\\right)’,$tmparr[$k]);
\n} else {<\/p>\n
$tmp = ereg_replace(‘{(.+)}’,’\\1′,$tmparr[$k]);
\n}<\/p>\n
$m = $j + 1;
\nwhile ($tmparr[$m] == ” | $tmparr[$m] == ‘ ‘) {
\n$m = $m + 1;
\n}<\/p>\n
$tmparr[$k] = ‘{‘.$tmp.’ \\cdot ‘.$tmparr[$m].’}’;<\/p>\n
\/\/echo ”\u00a0 no6 |$tmparr[$k]| \\n”;<\/p>\n
$tmparr[$m] = ”;
\n$aida = 0;
\n}
\n}<\/p>\n
$j = $j + 1;
\n}<\/p>\n
$yy = implode(“@”,$tmparr);\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0#\u30d0\u30b0\u53d6\u308a\u306e\u305f\u3081\u3001\u672c\u5f53\u306f\uff20\u3092\u306f\u3055\u3080\u5fc5\u8981\u306f\u306a\u3044\u3002<\/p>\n
\/\/echo “end\u00a0\u00a0 makefrac yy = |$yy| \\n”;<\/p>\n
$yy = ereg_replace(‘@’,”,$yy);
\n$yy = ereg_replace(‘ +’,’ ‘,$yy); # \u30b9\u30da\u30fc\u30b9\u306f2\u500b\u9023\u7d9a\u3057\u306a\u3044
\n$yy = trim($yy);<\/p>\n
\/\/echo “stop\u00a0 makefrac yy = |$yy| \\n”;<\/p>\n
}<\/p>\n
?><\/p>\n","protected":false},"excerpt":{"rendered":"
\u4e0b\u8a18\u306f\u6570\u5f0f\u3092TeX\u306e\u30bd\u30fc\u30b9\u306b\u5909\u63db\u3059\u308bphp\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002xml\u3067\u6570\u5f0f\u3092\u53d7\u3051\u3066\uff0c … Read More »<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"open","template":"","meta":{"footnotes":""},"class_list":["post-1464","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/pages\/1464","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/pages"}],"about":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1464"}],"version-history":[{"count":1,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/pages\/1464\/revisions"}],"predecessor-version":[{"id":4069,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/pages\/1464\/revisions\/4069"}],"wp:attachment":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1464"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}