\documentclass{article}
\usepackage{pst-eps,pst-plot}%
\begin{document}% �{���̎n�܂� ��������������������������������������������������

%platex scale
%dvips -Ppdf -t landscape -E -o scale.eps scale.dvi
%ps2pdf scale.eps scale.pdf

\topmargin=-25mm
\oddsidemargin=-12mm

\TeXtoEPS % Make an EPS picture out of .dvi file, with dvips -E.
\psset{unit=1mm}

\begin{pspicture}(-60,-120)(220,80)

%�@25cm��K
\psline[linewidth=0.8pt](-63,60)(193,60)(193,90)(-63,90)(-63,60)
\multido{\iMemori=-60+1}{250}{\psline[linewidth=0.4pt](\iMemori,85)(\iMemori,90)}
\multido{\iMemori=-60+5}{50}{\psline[linewidth=0.4pt](\iMemori,84)(\iMemori,90)}
\multido{\iMemori=-60+10}{26}{\psline[linewidth=0.4pt](\iMemori,82)(\iMemori,90)}
\multido{\iMemori=-60+10,\iMemo=0+1}{26}{\rput[c]{0}(\iMemori,80){\iMemo}}

%�@���x��
\psline[linewidth=0.8pt](-60,-10)(60,-10)(60,57)(-60,57)(-60,-10)
\SpecialCoor
\psarc[linewidth=0.4pt](0,0){40}{0}{180}
\psline[linewidth=0.4pt](46,0)(-40,0)
% 1�x �ڐ��������
\multido{\nAngle=0+1}{181}{\psline[linewidth=0.4pt](40;\nAngle)(43;\nAngle)}
% 5�x �ڐ��������
\multido{\iAngle=0+5}{37}{\psline[linewidth=0.4pt](40;\iAngle)(44;\iAngle)}
% 10�x �ڐ��������
\multido{\iAngle=0+10}{19}{\psline[linewidth=0.4pt](40;\iAngle)(46;\iAngle)}

\multido{\iAngle=0+10,\iWeight=0+10}{10}{\rput[c]{0}(49;\iAngle){\iWeight}}
\multido{\iAngle=100+10,\iWeight=100+10}{9}{\rput[c]{0}(49;\iAngle){\iWeight}}
\multido{\iAngle=100+10,\iWeight=80+-10}{9}{\rput[c]{0}(54;\iAngle){\footnotesize \iWeight}}
\multido{\iAngle=0+10,\iWeight=180+-10}{9}{\rput[c]{0}(54;\iAngle){\footnotesize \iWeight}}

\pstriangle*[gangle=0](0,-6)(3,6)
\put(0,12){\makebox(0,0){\footnotesize ���̕�����؂蔲��}}
\put(0,8){\makebox(0,0){\footnotesize �����ڐ��肪�s�p�Ȃ�}}
\put(0,4){\makebox(0,0){\footnotesize �؂蔲���Ă��ǂ�}}
\put(0,34){\makebox(0,0){\footnotesize ���̕�����؂蔲��}}

\psarc[linewidth=0.4pt](0,0){20}{0}{180}
\psarc[linewidth=0.4pt](0,0){30}{0}{180}
% 2�x �ڐ��������
\multido{\nAngle=0+2}{91}{\psline[linewidth=0.4pt](20;\nAngle)(22;\nAngle)}
% 10�x �ڐ��������
\multido{\nAngle=0+10}{18}{\psline[linewidth=0.4pt](20;\nAngle)(24;\nAngle)}
\multido{\nAngle=0+10}{18}{\psline[linewidth=0.4pt](26;\nAngle)(30;\nAngle)}
% 1�x �ڐ��������
\multido{\nAngle=1+1}{180}{\psline[linewidth=0.4pt](28;\nAngle)(30;\nAngle)}
% 5�x �ڐ��������
\multido{\iAngle=0+5}{37}{\psline[linewidth=0.4pt](27;\iAngle)(30;\iAngle)}
\multido{\iAngle=10+10,\iWeight=10+10}{9}{\rput[c]{0}(25;\iAngle){\tiny \iWeight}}
\multido{\iAngle=170+-10,\iWeight=10+10}{8}{\rput[c]{0}(25;\iAngle){\tiny \iWeight}}


%�O�p��K�i�P�F�Q�F��R�j
\psline[linewidth=0.8pt](-65,-95)(-65,-15)(73.56406,-15)(-65,-95)
\multido{\iMemori=-55+1}{100}{\psline[linewidth=0.4pt](\iMemori,-15)(\iMemori,-20)}
\multido{\iMemori=-55+5}{20}{\psline[linewidth=0.4pt](\iMemori,-15)(\iMemori,-21)}
\multido{\iMemori=-55+10}{11}{\psline[linewidth=0.4pt](\iMemori,-15)(\iMemori,-23)}
\multido{\iMemori=-55+10,\iMemo=0+1}{11}{\rput[c]{0}(\iMemori,-25){\iMemo}}
\pscircle(-18,-44){6}


%�O�p��K�i�P�F�P�F��Q�j
\psline[linewidth=0.8pt](65,55)(203.56406,55)(134.28203,-14.28203)(65,55)
\multido{\iMemori=83+1}{100}{\psline[linewidth=0.4pt](\iMemori,50)(\iMemori,55)}
\multido{\iMemori=83+5}{20}{\psline[linewidth=0.4pt](\iMemori,49)(\iMemori,55)}
\multido{\iMemori=83+10}{11}{\psline[linewidth=0.4pt](\iMemori,48)(\iMemori,55)}
\multido{\iMemori=83+10,\iMemo=0+1}{11}{\rput[c]{0}(\iMemori,45){\iMemo}}
\pscircle(134.28203,25){6}

\put(25,-70){\makebox(0,0){\Large\bf ����p ��K�ƕ��x��}}

\put(25,-80){\makebox(0,0){\tt http://unilab.gbb60166.jp/scale/scale.htm}}


\end{pspicture}


\begin{pspicture}(90,-35)(180,45)
%�@�����O�p�`���x��
\psline[linewidth=0.8pt](-60,-10)(60,-10)(60,65)(-60,65)(-60,-10)

\rput[c]{0}(0,55){\Large �O�p�`���x��}

\rput[c]{0}(0,10){�����̎O�p�`��؂蔲��}


\SpecialCoor
%\psarc(0,0){40}{0}{180}
\psline[linewidth=0.4pt](44,0)(-44,0)
\psline[linewidth=0.4pt](40,0)(0,40)(-40,0)

% �ڐ��������
\psline[linewidth=0.4pt](38.34;1)(41.29;1)
\psline[linewidth=0.4pt](37.71;2)(40.61;2)
\psline[linewidth=0.4pt](37.11;3)(39.96;3)
\psline[linewidth=0.4pt](36.54;4)(39.35;4)
\psline[linewidth=0.4pt](36;5)(39.69;5)
\psline[linewidth=0.4pt](35.49;6)(38.21;6)
\psline[linewidth=0.4pt](35;7)(37.69;7)
\psline[linewidth=0.4pt](34.53;8)(37.19;8)
\psline[linewidth=0.4pt](34.09;9)(36.71;9)
\psline[linewidth=0.4pt](33.67;10)(37.98;10)
\psline[linewidth=0.4pt](33.26;11)(35.82;11)
\psline[linewidth=0.4pt](32.88;12)(35.41;12)
\psline[linewidth=0.4pt](32.52;13)(35.02;13)
\psline[linewidth=0.4pt](32.17;14)(34.65;14)
\psline[linewidth=0.4pt](31.84;15)(35.11;15)
\psline[linewidth=0.4pt](31.53;16)(33.96;16)
\psline[linewidth=0.4pt](31.23;17)(33.64;17)
\psline[linewidth=0.4pt](30.95;18)(33.33;18)
\psline[linewidth=0.4pt](30.68;19)(33.04;19)
\psline[linewidth=0.4pt](30.43;20)(34.33;20)
\psline[linewidth=0.4pt](30.19;21)(32.51;21)
\psline[linewidth=0.4pt](29.96;22)(32.26;22)
\psline[linewidth=0.4pt](29.74;23)(32.03;23)
\psline[linewidth=0.4pt](29.54;24)(31.81;24)
\psline[linewidth=0.4pt](29.35;25)(32.36;25)
\psline[linewidth=0.4pt](29.17;26)(31.41;26)
\psline[linewidth=0.4pt](29;27)(31.23;27)
\psline[linewidth=0.4pt](28.84;28)(31.06;28)
\psline[linewidth=0.4pt](28.69;29)(30.9;29)
\psline[linewidth=0.4pt](28.55;30)(32.21;30)
\psline[linewidth=0.4pt](28.42;31)(30.61;31)
\psline[linewidth=0.4pt](28.3;32)(30.48;32)
\psline[linewidth=0.4pt](28.19;33)(30.36;33)
\psline[linewidth=0.4pt](28.09;34)(30.25;34)
\psline[linewidth=0.4pt](28;35)(30.87;35)
\psline[linewidth=0.4pt](27.92;36)(30.07;36)
\psline[linewidth=0.4pt](27.85;37)(29.99;37)
\psline[linewidth=0.4pt](27.78;38)(29.92;38)
\psline[linewidth=0.4pt](27.73;39)(29.86;39)
\psline[linewidth=0.4pt](27.68;40)(31.23;40)
\psline[linewidth=0.4pt](27.64;41)(29.77;41)
\psline[linewidth=0.4pt](27.62;42)(29.74;42)
\psline[linewidth=0.4pt](27.59;43)(29.72;43)
\psline[linewidth=0.4pt](27.58;44)(29.7;44)
\psline[linewidth=0.4pt](27.58;45)(30.41;45)
\psline[linewidth=0.4pt](27.58;46)(29.7;46)
\psline[linewidth=0.4pt](27.59;47)(29.72;47)
\psline[linewidth=0.4pt](27.62;48)(29.74;48)
\psline[linewidth=0.4pt](27.64;49)(29.77;49)
\psline[linewidth=0.4pt](27.68;50)(31.23;50)
\psline[linewidth=0.4pt](27.73;51)(29.86;51)
\psline[linewidth=0.4pt](27.78;52)(29.92;52)
\psline[linewidth=0.4pt](27.85;53)(29.99;53)
\psline[linewidth=0.4pt](27.92;54)(30.07;54)
\psline[linewidth=0.4pt](28;55)(30.87;55)
\psline[linewidth=0.4pt](28.09;56)(30.25;56)
\psline[linewidth=0.4pt](28.19;57)(30.36;57)
\psline[linewidth=0.4pt](28.3;58)(30.48;58)
\psline[linewidth=0.4pt](28.42;59)(30.61;59)
\psline[linewidth=0.4pt](28.55;60)(32.21;60)
\psline[linewidth=0.4pt](28.69;61)(30.9;61)
\psline[linewidth=0.4pt](28.84;62)(31.06;62)
\psline[linewidth=0.4pt](29;63)(31.23;63)
\psline[linewidth=0.4pt](29.17;64)(31.41;64)
\psline[linewidth=0.4pt](29.35;65)(32.36;65)
\psline[linewidth=0.4pt](29.54;66)(31.81;66)
\psline[linewidth=0.4pt](29.74;67)(32.03;67)
\psline[linewidth=0.4pt](29.96;68)(32.26;68)
\psline[linewidth=0.4pt](30.19;69)(32.51;69)
\psline[linewidth=0.4pt](30.43;70)(34.33;70)
\psline[linewidth=0.4pt](30.68;71)(33.04;71)
\psline[linewidth=0.4pt](30.95;72)(33.33;72)
\psline[linewidth=0.4pt](31.23;73)(33.64;73)
\psline[linewidth=0.4pt](31.53;74)(33.96;74)
\psline[linewidth=0.4pt](31.84;75)(35.11;75)
\psline[linewidth=0.4pt](32.17;76)(34.65;76)
\psline[linewidth=0.4pt](32.52;77)(35.02;77)
\psline[linewidth=0.4pt](32.88;78)(35.41;78)
\psline[linewidth=0.4pt](33.26;79)(35.82;79)
\psline[linewidth=0.4pt](33.67;80)(37.98;80)
\psline[linewidth=0.4pt](34.09;81)(36.71;81)
\psline[linewidth=0.4pt](34.53;82)(37.19;82)
\psline[linewidth=0.4pt](35;83)(37.69;83)
\psline[linewidth=0.4pt](35.49;84)(38.21;84)
\psline[linewidth=0.4pt](36;85)(39.69;85)
\psline[linewidth=0.4pt](36.54;86)(39.35;86)
\psline[linewidth=0.4pt](37.11;87)(39.96;87)
\psline[linewidth=0.4pt](37.71;88)(40.61;88)
\psline[linewidth=0.4pt](38.34;89)(41.29;89)
\psline[linewidth=0.4pt](39;90)(44;90)

\psline[linewidth=0.4pt](38.34;91)(41.29;91)
\psline[linewidth=0.4pt](37.71;92)(40.61;92)
\psline[linewidth=0.4pt](37.11;93)(39.96;93)
\psline[linewidth=0.4pt](36.54;94)(39.35;94)
\psline[linewidth=0.4pt](36;95)(39.69;95)
\psline[linewidth=0.4pt](35.49;96)(38.21;96)
\psline[linewidth=0.4pt](35;97)(37.69;97)
\psline[linewidth=0.4pt](34.53;98)(37.19;98)
\psline[linewidth=0.4pt](34.09;99)(36.71;99)
\psline[linewidth=0.4pt](33.67;100)(37.98;100)
\psline[linewidth=0.4pt](33.26;101)(35.82;101)
\psline[linewidth=0.4pt](32.88;102)(35.41;102)
\psline[linewidth=0.4pt](32.52;103)(35.02;103)
\psline[linewidth=0.4pt](32.17;104)(34.65;104)
\psline[linewidth=0.4pt](31.84;105)(35.11;105)
\psline[linewidth=0.4pt](31.53;106)(33.96;106)
\psline[linewidth=0.4pt](31.23;107)(33.64;107)
\psline[linewidth=0.4pt](30.95;108)(33.33;108)
\psline[linewidth=0.4pt](30.68;109)(33.04;109)
\psline[linewidth=0.4pt](30.43;110)(34.33;110)
\psline[linewidth=0.4pt](30.19;111)(32.51;111)
\psline[linewidth=0.4pt](29.96;112)(32.26;112)
\psline[linewidth=0.4pt](29.74;113)(32.03;113)
\psline[linewidth=0.4pt](29.54;114)(31.81;114)
\psline[linewidth=0.4pt](29.35;115)(32.36;115)
\psline[linewidth=0.4pt](29.17;116)(31.41;116)
\psline[linewidth=0.4pt](29;117)(31.23;117)
\psline[linewidth=0.4pt](28.84;118)(31.06;118)
\psline[linewidth=0.4pt](28.69;119)(30.9;119)
\psline[linewidth=0.4pt](28.55;120)(32.21;120)
\psline[linewidth=0.4pt](28.42;121)(30.61;121)
\psline[linewidth=0.4pt](28.3;122)(30.48;122)
\psline[linewidth=0.4pt](28.19;123)(30.36;123)
\psline[linewidth=0.4pt](28.09;124)(30.25;124)
\psline[linewidth=0.4pt](28;125)(30.87;125)
\psline[linewidth=0.4pt](27.92;126)(30.07;126)
\psline[linewidth=0.4pt](27.85;127)(29.99;127)
\psline[linewidth=0.4pt](27.78;128)(29.92;128)
\psline[linewidth=0.4pt](27.73;129)(29.86;129)
\psline[linewidth=0.4pt](27.68;130)(31.23;130)
\psline[linewidth=0.4pt](27.64;131)(29.77;131)
\psline[linewidth=0.4pt](27.62;132)(29.74;132)
\psline[linewidth=0.4pt](27.59;133)(29.72;133)
\psline[linewidth=0.4pt](27.58;134)(29.7;134)
\psline[linewidth=0.4pt](27.58;135)(30.41;135)
\psline[linewidth=0.4pt](27.58;136)(29.7;136)
\psline[linewidth=0.4pt](27.59;137)(29.72;137)
\psline[linewidth=0.4pt](27.62;138)(29.74;138)
\psline[linewidth=0.4pt](27.64;139)(29.77;139)
\psline[linewidth=0.4pt](27.68;140)(31.23;140)
\psline[linewidth=0.4pt](27.73;141)(29.86;141)
\psline[linewidth=0.4pt](27.78;142)(29.92;142)
\psline[linewidth=0.4pt](27.85;143)(29.99;143)
\psline[linewidth=0.4pt](27.92;144)(30.07;144)
\psline[linewidth=0.4pt](28;145)(30.87;145)
\psline[linewidth=0.4pt](28.09;146)(30.25;146)
\psline[linewidth=0.4pt](28.19;147)(30.36;147)
\psline[linewidth=0.4pt](28.3;148)(30.48;148)
\psline[linewidth=0.4pt](28.42;149)(30.61;149)
\psline[linewidth=0.4pt](28.55;150)(32.21;150)
\psline[linewidth=0.4pt](28.69;151)(30.9;151)
\psline[linewidth=0.4pt](28.84;152)(31.06;152)
\psline[linewidth=0.4pt](29;153)(31.23;153)
\psline[linewidth=0.4pt](29.17;154)(31.41;154)
\psline[linewidth=0.4pt](29.35;155)(32.36;155)
\psline[linewidth=0.4pt](29.54;156)(31.81;156)
\psline[linewidth=0.4pt](29.74;157)(32.03;157)
\psline[linewidth=0.4pt](29.96;158)(32.26;158)
\psline[linewidth=0.4pt](30.19;159)(32.51;159)
\psline[linewidth=0.4pt](30.43;160)(34.33;160)
\psline[linewidth=0.4pt](30.68;161)(33.04;161)
\psline[linewidth=0.4pt](30.95;162)(33.33;162)
\psline[linewidth=0.4pt](31.23;163)(33.64;163)
\psline[linewidth=0.4pt](31.53;164)(33.96;164)
\psline[linewidth=0.4pt](31.84;165)(35.11;165)
\psline[linewidth=0.4pt](32.17;166)(34.65;166)
\psline[linewidth=0.4pt](32.52;167)(35.02;167)
\psline[linewidth=0.4pt](32.88;168)(35.41;168)
\psline[linewidth=0.4pt](33.26;169)(35.82;169)
\psline[linewidth=0.4pt](33.67;170)(37.98;170)
\psline[linewidth=0.4pt](34.09;171)(36.71;171)
\psline[linewidth=0.4pt](34.53;172)(37.19;172)
\psline[linewidth=0.4pt](35;173)(37.69;173)
\psline[linewidth=0.4pt](35.49;174)(38.21;174)
\psline[linewidth=0.4pt](36;175)(39.69;175)
\psline[linewidth=0.4pt](36.54;176)(39.35;176)
\psline[linewidth=0.4pt](37.11;177)(39.96;177)
\psline[linewidth=0.4pt](37.71;178)(40.61;178)
\psline[linewidth=0.4pt](38.34;179)(41.29;179)

\rput[c]{0}(47;0){0}
\rput[c]{0}(40.57;10){10}
\rput[c]{0}(36.67;20){20}
\rput[c]{0}(34.41;30){30}
\rput[c]{0}(33.36;40){40}
\rput[c]{0}(33.36;50){50}
\rput[c]{0}(34.41;60){60}
\rput[c]{0}(36.67;70){70}
\rput[c]{0}(40.57;80){80}
\rput[c]{0}(47;90){90}

\rput[c]{0}(53;0){\footnotesize 180}
\rput[c]{0}(45.75;10){\footnotesize 170}
\rput[c]{0}(41.35;20){\footnotesize 160}
\rput[c]{0}(38.8;30){\footnotesize 150}
\rput[c]{0}(37.62;40){\footnotesize 140}
\rput[c]{0}(37.62;50){\footnotesize 130}
\rput[c]{0}(38.8;60){\footnotesize 120}
\rput[c]{0}(41.35;70){\footnotesize 110}
\rput[c]{0}(45.75;80){\footnotesize 100}

\rput[c]{0}(40.57;100){100}
\rput[c]{0}(36.67;110){110}
\rput[c]{0}(34.41;120){120}
\rput[c]{0}(33.36;130){130}
\rput[c]{0}(33.36;140){140}
\rput[c]{0}(34.41;150){150}
\rput[c]{0}(36.67;160){160}
\rput[c]{0}(40.57;170){170}
\rput[c]{0}(47;180){180}

\rput[c]{0}(45.75;100){\footnotesize 80}
\rput[c]{0}(41.35;110){\footnotesize 70}
\rput[c]{0}(38.8;120){\footnotesize 60}
\rput[c]{0}(37.62;130){\footnotesize 50}
\rput[c]{0}(37.62;140){\footnotesize 40}
\rput[c]{0}(38.8;150){\footnotesize 30}
\rput[c]{0}(41.35;160){\footnotesize 20}
\rput[c]{0}(45.75;170){\footnotesize 10}
\rput[c]{0}(53;180){\footnotesize 0}

\pstriangle*[gangle=0](0,-6)(3,6)

\end{pspicture}

\endTeXtoEPS

\end{document}

