放送大学 岡部 洋一
okabe (at) u-air. ac. jp最終更新日: (起草: 2006-03-01)
個人の使用以外のコピーを禁じます。 また、再コピーおよび再配布は禁止します。 ただし、教育目的に限り、 再コピー、再配布は原著者を明示するという条件でのみ許諾します。
[ 事務簡素化法の掲示板 ]
[ Web に公開の文書 ] [ 岡部のトップページ ]
Key|訂正日|氏名|敬称|携帯|自宅住所|自宅電話|自宅mail|勤務先等住所|勤務先等電話|勤務先mail|備考 |
Key(Field: NN BM JJ SQ)|種類(学会誌 Proc など)|著者|題目|雑誌|Author|Subject|Journal|Memo |
Key|年月日(元号)|終了年月日(元号)|分類|内容|発令者|備考 |
status(from 86)|Key|敬称 |
#!/usr/local/bin/perl -w
print <<EOF;
\\documentclass[a4j]{jreport}
...
\\begin{document}
\\title{電磁気学}
文章
EOF
require "term.pl";
&term(\%term);
# chapter{概要}
require "intro.pl";
&intro(\%term);
...
print <<EOF
\\printindex
\\end{document}
EOF
|
#!/usr/local/bin/perl -w
use strict;
sub ind {
# 引数: 見出し((,かな),別見出し)
if ($#_ == 0) {
return "{\\bf $_[0]}\\index{$_[0]}";
} elsif ($#_ == 1) {
return "{\\bf $_[0]}
($_[1])\\index{$_[0] ($_[1])}
\\index{$_[1] ($_[0])}";
} else {
return "{\\bf $_[0]} ($_[2])
\\index{$_[1]\@$_[0] ($_[2])}
\\index{$_[2]\@$_[2] ($_[0])}";
}
}
sub term {
my $_t=shift @_; # =\%term
$_t->{'電磁気学'}=&ind('電磁気学',
'でんじきがく',
'electro-magnetism');
}
1;
|
#!/usr/local/bin/perl -w
use strict;
sub intro {
my $_t=shift @_; # =\%term;
my $x=100; $y=200;
print <<EOF;
\\chapter{序論}
文章 $x、$y ...
EOF
}
1;
|
\documentclass[12pt]{article}
\pagestyle{empty}
\usepackage{amsmath,amssymb,bm}
\begin{document}
…
\end{document}
|
platex *.tex dvips -E *.dvi convert -density 204.8 *.ps *.tif |
<h4>最終更新日: <script language="JavaScript"> <!-- z = new Date(document.lastModified); year = z.getYear()+1900; document.write(z.getYear()+"-" +(z.getMonth()+1)+"-"+z.getDate()); // --> </script> (創設: 1995-05)</h4> |