gset arrow and label

[Michele]

Here is a small example.
Please refer for the problem to my previous email

## Script 4 ##
##
## Plottaggio su file
## chiamare il programma dplot da octave 
## dopo aver trovato le matrici da plottare
##


% Plottaggio unito

figure;

a=(-pi:pi/100:pi)';
b=sin(a);
c=cos(a);
abc=[a b c];


gset term postscript enhanced 8;
gset output "diagru3.ps";

gset size 0.7,0.8;
gset origin 0.1,0.1;

gset multiplot;




## Taglio
gset nolabel;
gset size 0.6,0.35;
gset origin 0.1,0.1;
gset xtics ; 
gset grid ; 
gset title "Diagramma del Taglio";
xlabel "x (m)"; ylabel "T (N)"; 

gplot abc using 1:2;


gset nolabel;
armatura=1;
iii=100;
while (armatura==1)
## Momenti
gset noxtics; gset noytics; gset noborder;

gset size 0.6,0.35;
gset origin 0.1,0.45;
gset xtics ; 
gset grid ;
gset ytics; gset border;
gset title "Diagramma del Momento flettente";
xlabel "x (m)"; ylabel "M (Nm)";
 
gplot abc using 1:3;
gplot abc using 1:3;


armatura=input("insert a line? (1=yes, 2=no 3=delete) ");
if (armatura==1)
  mom_res_a = input("y of line: ");
  in_a      = input("From? (insert the first x): ");
  end_a     = input("to?                       : ");
  num_tondini = input("insert a number from 2 to 6      : ");
  diam_tondini = input("insert a number from 12 to 34         : ");
   
  eval(sprintf('gset label %d "%d {/Symbol F} %d" at ŠÜ
               %f,%f', iii, num_tondini, diam_tondini, end_a, mom_res_a));

  eval(sprintf('gset arrow %d from %f,%f to %f,%f ŠÜ
               nohead', iii+1, in_a, mom_res_a, end_a, mom_res_a));
  iii = iii+100;
elseif (armatura==3)
  arm_canc = input("insert the number of line that you want to erase 100,200 
etc ) ");
  eval(sprintf('gset nolabel %d',arm_canc));
  eval(sprintf('gset noarrow %d',arm_canc+1));
  armatura=1;
 replot;
endif;
endwhile;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



gset nomultiplot;
closeplot;