\documentclass[12pt]{article}

\usepackage{ngerman}
\usepackage[latin1]{inputenc}
\usepackage{musixtex}

\newcommand{\nnn}[1]
{\begin{music}\setclefsymbol1\empty\startextract\NOtes\cu{#1}\enotes\endextract\end{music}}

\parindent=0mm
\pagestyle{empty}
\begin{document}

\begin{music}\setclefsymbol1\empty\startextract\NOtes\cu{^c}
\enotes\endextract\end{music}
\begin{music}
\setclefsymbol1\empty
\startextract
\NOtes
\cu{_d}
\enotes
\endextract
\end{music}

\begin{tabular}{|c|c|}\hline
\makebox[2cm]{\nnn{_c}} & \makebox[2cm]{\nnn{^e}} \\ \hline
\end{tabular}

Some text
\end{document}


\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-node}
\usepackage{multido}
\begin{document}
\makeatletter
\SpecialCoor
\def\newrotation#1(#2,#3)#4{%
  % #1      = name
  % (#2,#3) = centre
  % #4      = angle
  \expandafter\def\csname#1\endcsname##1{%
    \pscustom{%
      \translate(#2,#3)%
      \rotate{#4}%
      \translate(-#2,-#3)%
      ##1%
    }%
  }
}
\def\userotation#1#2{%
  \@nameuse{#1}{#2}%
}
\makeatother

\newcommand\tABC{\pspolygon(0,0)(2,3)(3,2.5)}%
\newcommand\tABCa{\pspicture(3,3)\pspolygon(0,0)(2,3)(3,2.5)\endpspicture}%

\begin{pspicture}(-1,-2.5)(5,5)
  \qdisk(3,2){3pt}
  \psset{linewidth=1pt}
  \tABC
  \psset{linewidth=0.4pt}
  \newrotation{R1}(3,2){90}
  \userotation{R1}{\tABC}
  \rput(2,-2){\texttt{rotatedaround((3,2),90)} (JCC)}
\end{pspicture}

\begin{pspicture}(-1,-2.5)(5,5)
  \psset{linewidth=1pt}
  \tABC
  \rput(3,2){
  \cnode(0,0){3pt}{C}
  \psset{linewidth=0.4pt}
  \multido{\nA=90+45}{6}{
    \pscustom{%
      \translate(3,2)%
      \rotate{\nA}%
      \tABC
  }}}
\end{pspicture}

\end{document} \listfiles
\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-3dplot}
\begin{document}

\begin{pspicture}(-0.5,-0.5)(4.5,2)
\pstThreeDCoor
\pstThreeDDot[drawCoor=true,dotscale=2](1,2,3)
\pstThreeDPlaneGrid[planeGrid=xy,subticks=8](-2,-2)(6,6)
\pstThreeDCoor
\end{pspicture}




     
\psset{yunit=5cm,xunit=2}
\begin{pspicture}(-0.5,-0.5)(4.5,2)
\psaxes{->}(4.5,2)
\pstVerb{
/hc2 5.964139e-17 def
/hcDurchK 0.014410884 def
/e 2.718281828 def
}
\multido{\iT=1000+1000}{6}{
  \psplot[plotpoints=200]{0.1}{4}{% x->lambda y-> T
    /lambda x 1e-6 mul def
    /T \iT\space def
    hc2 lambda -5 exp mul
    e hcDurchK T lambda mul div exp 1 sub % Nenner 2
    div 1.0e13 div
  }
}
\end{pspicture}

\psset{yunit=2cm,xunit=1}
\begin{pspicture}(-1,-1)(3,3)
\pstThreeDCoor[xMin=0,yMin=0,zMin=0,yMax=6,plotstyle=curve]
\pstVerb{
/hc2 5.964139e-17 def
/hcDurchK 0.014410884 def
/e 2.718281828 def
}
\psplotThreeD[hiddenLine=true,xPlotpoints=400](0.1,3)(2,6){% x->lambda y-> T
    /lambda x 1e-6 mul def
    /T y 1000 mul def
    hc2 lambda -5 exp mul
    e hcDurchK T lambda mul div exp 1 sub % Nenner 2
    div 2.0e12 div
}
\end{pspicture}


\end{document}

