ソースに色が付くようになった

というわけでテスト．

Fortran．

c****************************************************************
      implicit none 
      integer j,k,l
      integer,parameter::nstep=100
      integer,parameter::mstep=100
      real*8,parameter::pi=3.141592653589793d0
      real*8 thetad,thetar,x,y,t,t2
      real*8,dimension(1:nstep,1:mstep)::p,p_ana,a,b
      real*8,dimension(1:nstep)::c,d,e
c
      open(10,file='rep1_7.dat')
c--- read angle      
      write(6,*) 'angle (in degree) ?'
      read(5,*)  thetad
      thetar=(pi*5.555555d-3)*thetad
c
      call INITIAL(p,x,y)
      call COEFFICIENT(c,a,b,x,y,d,e)
c
c--- main loop
       do k=1,mstep-1
          if(k.eq.1) then
             do j=2,nstep
                p(j+1,k)=d(j)*x*p(j,k)-e(j)*p(j-1,k)
             enddo
          else                
             p(k+1,k+1)=c(k)*y*p(k,k)
             p(k+1,k)=c(k)*y*p(k,k-1)

C．

#include "global.h"
#include "defs.h"



// General analytic dump for given analytic solution
void analsolve(int gopp)
{
  static int timeless = 0;	// =0 not computed stationary solution
  // yet 1=have computed, so skip

  if (analoutput == 5) {
    if ((timeless == 0) || (gopp)) {
      timeless = 1;
      tori1sol(gopp);
    }
  } else if (analoutput == 8) {
    if ((timeless == 0) || (gopp)) {
      timeless = 1;
      injectsol(gopp);
    }
  }
}

Ruby．

a = 20;
if a >= 10 then;
print("bigger\n");
end;

if a <= 9 then;
print("smaller\n");
end;

elisp.

; xemacs の shell-mode で 日本語 EUC が使えるようにする
(if (featurep 'xemacs)
    (add-hook 'shell-mode-hook (function
    (lambda () (set-buffer-process-coding-system 'euc-japan 'euc-japan))))
  )
; 日本語 grep
(if (file-exists-p "/usr/bin/lgrep")
    (setq grep-command "lgrep -n ")
)

シェル．これは >|?|

# ls の動作 (属性表示、色つき)。man ls 参照
if [ "$TERM" = "dumb" -o "$TERM" = "emacs" ]
    then
    alias ls='/bin/ls -F -h'
else
    alias ls='/bin/ls -F -h --color=auto'
fi

LaTeX．

\subsection*{■$\sum^{2n}_{l=0}' 
  \cos \left( \f{lj\pi}{n} \right)
  \ \cos \left( \f{lk \pi}{n} \right)
  =(1+\delta_{k0})\delta_{jk}n$
  の証明}

上と同じ方針で、まず (1.1) を用いて変形する。
\begin{align}
\sum^{2n}_{l=0}'\cos \left( \f{lj\pi}{n} \right)
  \ \cos \left( \f{lk \pi}{n} \right)
  &= 
  \sum^{2n}_{l=0}' \ \f{1}{2} \left[ 
    \exp \left( 
    i \f{lj \pi}{n} \right)
    + \exp \left( 
    -i \f{lj \pi}{n} \right) \right]
  \n \\
  & \qquad \qquad 
  \times
  \f{1}{2} \left[ 
    \exp \left( 
    i \f{lk \pi}{n} \right)
    + \exp \left( 
    -i \f{lk \pi}{n} \right) \right] \n \\
  &= \f{1}{4} \ \sum^{2n}_{l=0}' \ \left\{
  \exp \left[ i \f{l(j+k) \pi}{n} \right]
  +\exp \left[ i \f{l(j-k) \pi}{n} \right]  \right. \n \\
  & \qquad \qquad  \left.
  +\exp \left[ i \f{l(-j+k) \pi}{n} \right]
  +\exp \left[ i \f{l(-j-k) \pi}{n} \right] \right\}
\end{align}

gnuplot．

#	
set contour
unset surface
set view 0,0
set ytics -60, 10, 60
set pm3d map
splot 'j250.dat' using 1:2:3
splot 'j500.dat' using 1:2:3
splot 'j750.dat' using 1:2:3
splot 'j1000.dat' using 1:2:3