Solve the remaining difference in Tcl example 16. Now the result is exactly  the same as for the C example.
Solve the remaining difference in Tcl example 16. Now the result is exactly 
the same as for the C example.

svn path=/trunk/; revision=12431

FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot,FreeScienceCommunity/PLPlot