/var/www/UNIX/INDEX
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 20010116: LaTeX script                                     %
% Function: Style format for the Proceedings of the General  %
% Meeting of the Association of Japanese Geographers         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[10pt, twocolumn]{jarticle} 
\pagestyle{empty} 
\topmargin =-4mm 
\headheight =0mm 
\headsep =0mm 
\textheight =248mm 
\textwidth =168mm 
\topskip =11mm 
\evensidemargin =0mm 
\oddsidemargin =-2mm 
\footskip =0mm 
\marginparwidth =0mm 
\marginparpush =10mm 
\marginparsep =0mm 
\columnsep =8mm 
\columnseprule =0mm 
\usepackage[dvips]{graphicx} 
\renewcommand{\figurename}{\small\textbf{Figure}} 
\begin{document} 
\twocolumn[\begin{center} 

\large\textbf{作物生産の投入産出エネルギー比による地域的なエネルギー効率区分
\\ Classification of regional energy efficiency on the basis of \\ input-output
energy ratio of crop production} 
\par 
\vspace{5mm} 
\normalsize\textrm{仁平尊明（筑波大学・大学院生） \\ Takaaki NIHEI (Graduate
Student, Univ. of Tsukuba)} 
\end{center} 
\vspace{0mm} 
\begin{flushleft} 
\small{\textbf{キーワード：}\textrm{作物生産，投入産出エネルギー比，化石燃料エネルギー，食料エネルギー，地域的なエネルギー効率}
\\ \textbf{Keywords:} \textrm{crop production, input-output energy ratio,
fossil fuel energy, food energy, regional energy efficiency}} 
\end{flushleft}] 

\small\textgt{\\[-7.5mm]目 的} 
農業の本質的な目標は，太陽エネルギーを作物に効率的に固定させて，人間の体を維持するための食料や繊維，また，他の産業で使用される原料を生産することにある．しかし，先進国においては，化学肥料や農薬などの工業製品の形態で投入される化石燃料エネルギーのため，作物生産のエネルギー効率が非常に低下するといわれる．作物生産のエネルギー効率の変化を具体的な数値で示すことは，化石燃料エネルギーに頼らない低投入農法や，環境負荷を減らした農業の持続的発展を考えるための最初の段階である． 
Nihei \cite{Nihei} は，ひとつの地域で栽培されるすべての作物の投入化石燃料エネルギーと産出食料エネルギーから，地域的な投入産出エネルギー比を算定したが，その値の効率性を言及していない．本研究の目的は，典型的な作物の組み合わせとその投入・産出エネルギーに注目して，地域的な投入産出エネルギー比の効率性を区分することにある． 
\textgt{\\[-1mm]方法と結果} 
地域的な投入産出エネルギー比は，ある地域で栽培されるすべての作物に投入される化石燃料エネルギーと，そこから産出する食料エネルギーから算定する．すなわち， 
$$Q = \frac{\displaystyle\sum_{i=1}^n\varepsilon_i S_i}{\displaystyle\sum_{i=1}^n\varepsilon_i'
S_i}\eqno(1)$$ 
\noindent 
ただし， $Q$ は地域的な投入産出エネルギー比， $\varepsilon_i$ は作物 $i$
の産出エネルギー $(J/m^2)$ ， $\varepsilon_i'$ は作物 $i$の投入エネルギー$(J/m^2)$，
$S_i$ は作物 $i$ の栽培面積 $(m^2)$ ，または栽培比率 $(\%)$ ， $n$ は作物の数である． 
次に，作物の栽培面積の変化に伴って，地域的な投入産出エネルギー比の値がいかに変化するかを検討する．ここでは，日本で最も広く栽培されている水稲を基準とする．まず，水稲とそれ以外の一種類の作物が栽培されている地域において，水稲の栽培比率が変化する場合，地域的な投入産出エネルギー比がいかに変化するかを考える．水稲の栽培比率を $S_r$，その他の作物の栽培比率を $S_o$ とすると，式1は次のようになる． 
$$Q_{ro} = \frac{\varepsilon_o(1-S_r)+\varepsilon_rS_r}{\varepsilon_o'(1-S_r)+\varepsilon_r'S_r}\eqno(2)$$ 
ここで，水稲と組み合わせて栽培される作物として，イモ類，麦類，露地野菜，施設野菜を考える．各作物の投入化石燃料エネルギーと産出食料エネルギーを代入すると，1990年の場合，式2の解はFigure 1の曲線1〜4となる． 
代表的な作物の組み合わせとして，米・麦・甘藷栽培，米麦二毛作，水稲単作，水稲・露地野菜栽培，露地野菜単作，水稲・施設野菜栽培を考慮し，地域的な投入産出エネルギー比の効率性を，高位効率（1990年の投入産出エネルギー比：2.7以上），中位効率（2.6-1.7），低位効率（1.6-0.7），極低位効率（0.6以下）と区分することにする． 
\textgt{\\[-1mm]考 察} 
1970年の効率性も同様に求め，それと1990年の結果を都道府県の作物生産に適用する．高位効率には，1970年の北海道と鹿児島があてはまる．これらの道県では，水稲，麦類，イモ類の栽培比率が高い．1970年の中位効率には，主に東北，中部，北陸，九州地方の29府県があてはまるが，1990年の中位効率には，主に北海道，東北，北陸地方にかけての8県だけがあてはまる．中位効率の多くが低位効率に変化したのは，水稲の栽培面積が減少した結果，露地野菜や果樹の栽培比率が高くなったためである．極低位効率には，1990年の東京，山梨，静岡，大阪，高知，熊本，沖縄があてはまる．これらの都府県では，露地野菜，果樹，施設作物の栽培比率が高い．また，地域的なエネルギー効率区分の地図を，経済的な農業土地生産性の地図と比較すると，地域的なエネルギー効率が低い県は，経済的な農業土地生産性が高い県とよく一致する． 

\renewcommand{\refname}{\small \\[-8mm]文 献} 
\bibliography{MYREFF} 
\bibliographystyle{jplain} 
\begin{thebibliography}{1} 
\vspace{-2mm} 
\bibitem{Nihei} 
Nihei, T. 2000. Energy efficiency of crop production in Japan, 1970-1990.
\textit{Geographical Review of Japan} 73B: 27-45. 
\end{thebibliography} 
\vspace{4mm} 
\begin{figure}[h] 
\begin{center} 
\includegraphics[width=78mm,clip]{energynew.eps} 
\caption{\small{Planted percentage of selected crops and regional 
energy efficiency.}} 
\end{center} 
\end{figure}% 
\end{document} 

##########################################################
# 20030429: CGI script                                   #
# Function: Database of exchange rate                    # 
# URL: http://deanmac.hibun.tsukuba.ac.jp/nihei/unit.htm #
# --> HTTP://2242.MOOO.COM/UNIT.HTM                      #
##########################################################
#!/usr/bin/perl

$file = "./stock.csv";
$body = '<BODY TEXT="#000000" BGCOLOR="#FFFFFF">';
$title = 'Exchange Rate';

# Number of record per page
$page = 10;

# Input
if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if ($buffer eq "") { &error('Input error'); }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
	($name,$value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\r//g;
	$value =~ s/\t//g;
	$value =~ s/\,//g;
	$FORM{$name} = $value;
}

# Search
if (!open(IN,"$file")) { &error('Database Error'); }
@BASE = <IN>;
close(IN);

if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }
$hit = 0;
$next_num = '';

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	($d,$DAY,$MONTH,$YEAR,$YEN,$REAL) = split(/\,/,$data);
	# DAY
	if ($FORM{'DAY'} ne 'all') {
		if ($DAY eq $FORM{'DAY'}) { ; } else { next; }
	}
	# MONTH
	if ($FORM{'MONTH'} ne 'all') {
		if ($MONTH eq $FORM{'MONTH'}) { ; } else { next; }
	}
	# YEAR
	if ($FORM{'YEAR'} ne 'all') {
		if ($YEAR eq $FORM{'YEAR'}) { ; } else { next; }
	}
	# END
	if ($hit == $page) { $next_num = $num; last; }
	else { push(@NEW,$data2); $hit++; }
}

# Result
print "CONTENT-TYPE: TEXT/HTML\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>$title</TITLE>
<SCRIPT LANGUAGE ="JavaScript">
<!--//
	function calc(){
 	a = eval(document.exchange.ENTER.value);
 	b = eval(document.exchange.EN.value);
 	c = eval(document.exchange.RE.value);
 	d = eval(document.exchange.RESULT.value);
 	aa = a / b;
 	ab = aa * c;
 	document.exchange.RESULT.value = ab;
 	}
//-->
</SCRIPT>
</HEAD>
$body
EOF

if (!@NEW) { print "Stock markets didn't open on the day selected, or no data.<P>\n";}
else {
	print "<OL><BR><TABLE BORDER=1 CELLSPACING=0 CELLPADDING=9><TR>\n";
	print "<TH NOWRAP>*</TH>\n";
	print "<TH NOWRAP>Yen</TH>\n";
	print "<TH NOWRAP>Real</TH>\n";
	print "<TH NOWRAP>Day</TH>\n";
	print "<TH NOWRAP>Month</TH>\n";
	print "<TH NOWRAP>Year</TH>\n";
	print "</TR>\n";
		foreach $data (@NEW) {
		($d,$DAY,$MONTH,$YEAR,$YEN,$REAL) = split(/\,/,$data);
		print "<TR>\n";
		print "<TH NOWRAP>1 US Dollar = </TH>\n";
		print "<TD NOWRAP ALIGN='center'>$YEN</TD>\n";
		print "<TD NOWRAP ALIGN='center'>$REAL</TD>\n";
		print "<TD NOWRAP ALIGN='center'>$DAY</TD>\n";
		print "<TD NOWRAP ALIGN='center'>$MONTH</TD>\n";
		print "<TD NOWRAP ALIGN='center'>$YEAR</TD>\n";
		print "</TR>\n";
		}
	print "</TABALE>\n";
		print "
		<P><FORM NAME='exchange'>
		<INPUT TYPE='text' NAME='ENTER' SIZE=9>
		<SELECT NAME='EN' ONCHANGE='calc()'>
			<OPTION VALUE='$YEN'>Yen</OPTION>
			<OPTION SELECTED VALUE='1'>US Dollar</OPTION>
			<OPTION VALUE='$REAL'>Real</OPTION>
		</SELECT> 
		<INPUT TYPE='button' VALUE='Submit' NAME='Result' ONCLICK='calc()'> --&gt; 
		<INPUT TYPE='text' NAME='RESULT' SIZE=9>
		<SELECT NAME='RE' ONCHANGE='calc()'>
			<OPTION SELECTED VALUE='$YEN'>Yen</OPTION>
			<OPTION VALUE='1'>US Dollar</OPTION>
			<OPTION VALUE='$REAL'>Real</OPTION>
		</SELECT>
		</FORM>
		<P>\n";
	print "<SMALL>Source: Board of Governors of the Federal Reserve System</SMALL>";
	print "<BR>";
}

print "<A HREF=\"./../nihei/unit.htm#02\">Back</A><P>\n";
print "</BODY></HTML>\n";
exit;

sub error {
	print "CONTENT-TYPE: TEXT/HTML\n\n";
		print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n";
		print "$body\n";
		print "<H2>$_[0]</H2>\n";
		print "<A HREF='javascript:history.back()'>Back to former page</A>\n";
		print "</BODY></HTML>\n";
        exit;
}

#############################################################
# 20040429: CGI script                                      #
# Function: Database of offprints                           #
# URL: http://deanmac.hibun.tsukuba.ac.jp/cgi/journal.htm   #
# --> HTTP://2242.MOOO.COM/cgi-bin/JOURNAL1.CGI             #
# jcode.pl: ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ # 
#############################################################
#!/usr/bin/perl

# Japanese setting
# Line breake type of csv file --> LF
require './jcode.pl';
$file = "./journal.csv";

# html setting
$body = '<BODY TEXT="#000000" BGCOLOR="#C0C0C0" LINK="#0000FF" VLINK="#551A8B" ALINK="#0000FF">';
$title = 'Journal_Database';

# Number of record per page
$page = 10;

# Input
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error('Error'); }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
	($name,$value) = split(/=/, $pair);
	$FORM2{$name} = $value;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*value,'euc');
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\r//g;
	$value =~ s/\t//g;
	$value =~ s/\,//g;
	$FORM{$name} = $value;
}

# Search
if (!open(IN,"$file")) { &error('Database Error'); }
@BASE = <IN>;
close(IN);

if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }
$hit = 0;
$next_num = '';

foreach $num ($FF .. $#BASE) {
	$data = $data2 = $BASE[$num];
	&jcode'convert(*data,'euc');
	($NO,$AJ,$AP,$AE,$YEAR,$TJ,$TE,$JJ,$JE,$VO,$NU,$PB,$PE) = split(/\,/,$data);

	#Author in Japanese and English
	#Small and capital letters are merged by "/i"
	if ($FORM{'AJ'} ne '') {
		if ($AJ =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'AJ'}/i) { ; } else { next; }
	}
	# Author Pronunciation
	if ($FORM{'AP'} ne '') {
		if ($AP =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'AP'}/i) { ; } else { next; }
	}
	# Author English
	if ($FORM{'AE'} ne '') {
		if ($AE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'AE'}/i) { ; } else { next; }
	}
	# Year
	if ($FORM{'YEAR'} ne '') {
		if ($YEAR =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'YEAR'}/i) { ; } else { next; }
	}
	# Title Japanese
	if ($FORM{'TJ'} ne '') {
		if ($TJ =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'TJ'}/i) { ; } else { next; }
	}
	# Title English
	if ($FORM{'TE'} ne '') {
		if ($TE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'TE'}/i) { ; } else { next; }
	}
	# Journal Japanese
	if ($FORM{'JJ'} ne '') {
		if ($JJ =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'JJ'}/i) { ; } else { next; }
	}
	# Journal English
	if ($FORM{'JE'} ne '') {
		if ($JE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'JE'}/i) { ; } else { next; }
	}
	# Volume
	if ($FORM{'VO'} ne '') {
		if ($VO eq $FORM{'VO'}) { ; } else { next; }
	}
	# End
	if ($hit == $page) { $next_num = $num; last; }
	else { push(@NEW,$data2); $hit++; }
}

# Result
print "CONTENT-TYPE: TEXT/HTML\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>$title</TITLE>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=EUC-JP">
<META NAME="BUILD" CONTENT="2004.4.29">
</HEAD>

$body
<UL>
<H>RESULTS</H>
<BR>
EOF

if (!@NEW) { print " : NO DATA<P>\n"; }
else {
	print "<TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1><TR>\n";
	print "<TH>No.</TH>\n";
	print "<TH>Auther (in English or Japanese) </TH>\n";
	print "<TH>Auther (pronunciation in <i>Hiragana</i> or English) </TH>\n";
	print "<TH>Auther (in English) </TH>\n";
	print "<TH>Year </TH>\n";
	print "<TH>Title (in Japanese or Japanese) </TH>\n";
	print "<TH>Title (in English) </TH>\n";
	print "<TH>Journal (in Japanese or English) </TH>\n";
	print "<TH>Journal (in English) </TH>\n";
	print "<TH>Volume </TH>\n";
	print "<TH>Number </TH>\n";
	print "<TH>Page Begin </TH>\n";
	print "<TH>Page End </TH>\n";
	print "</TR>\n";
		foreach $data (@NEW) {
		($NO,$AJ,$AP,$AE,$YEAR,$TJ,$TE,$JJ,$JE,$VO,$NU,$PB,$PE) = split(/\,/,$data);
		print "<TR>\n";
		print "<TD NOWRAP>$NO</TD>\n";
		print "<TD>$AJ</TD>\n";
		print "<TD>$AP</TD>\n";
		print "<TD>$AE</TD>\n";
		print "<TD>$YEAR</TD>\n";
		print "<TD>$TJ</TD>\n";
		print "<TD>$TE</TD>\n";
		print "<TD>$JJ</TD>\n";
		print "<TD>$JE</TD>\n";
		print "<TD>$VO</TD>\n";
		print "<TD>$NU</TD>\n";
		print "<TD>$PB</TD>\n";
		print "<TD>$PE</TD>\n";
		print "</TR>\n";
	}
	print "</TABALE><P>\n";
	if ($next_num ne '') {
		while (($key,$val) = each %FORM2) {
			if ($key ne 'FF') { $buf = "$buf&$key=$val"; }
		}
		print "<h3><A HREF=\"searchjournal.cgi?$buf&FF=$next_num\">Next $page</A></h3>\n";
	}
}

print "<hr noshade><BR><A HREF=\"./../cgi/journal.htm\">Back to Search</A><P><BR>\n";
print "</BODY></HTML>\n";
exit;

sub error {
	print "CONTENT-TYPE: TEXT/HTML\n";
		print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n";
		print "$body\n";
		print "<H2>$_[0]</H2>\n";
		print "<A HREF='javascript:history.back()'>Back to former page</A>\n";
		print "</BODY></HTML>\n";
		exit;
}