From help-octave-request at bevo dot che dot wisc dot edu  Mon Dec 11 12:44:52 2000
Subject: gset label and arrow
From: Michele <michelemdl at libero dot it>
To: help-octave at bevo dot che dot wisc dot edu
Date: Mon, 11 Dec 2000 19:57:50 +0000

I need your help.

I wrote this script to plot my data that comes from another script.

I have to plots "Taglio" e "Momenti" inside a multiplot.
The problem is the one inside !!!!!!!!!!!!!!!!!!!!
                              !                  !
                              !!!!!!!!!!!!!!!!!!!!
Is it possible to delete an arrow and a label from the second plot
"Momenti" .
I've tryed with the command line:

 eval(sprintf('gset nolabel %d',arm_canc));           
 eval(sprintf('gset noarrow %d',arm_canc+1)); 

put after the script execute these commands the label and the arrow are
still there.

Any advices??

Thanks a lot.
Regards, Michele

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

% Plottaggio unito

figure;
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 rotate 0,0.5 ; gset mxtics 5;
gset grid ; 
gset title "Diagramma del Taglio";
.
.
.
## plot commands here. ##
.
for i=1:num_comb_carichi
      eval(sprintf('gplot comb%d using 2:4 title ""',i));
endfor;


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 rotate 0,0.5 ; gset mxtics 5 ;
gset grid ;
gset ytics; gset border;
gset title "Diagramma del Momento flettente";
xlabel "x (m)"; ylabel "M (Nm)";
.......
......
.... 
hold off;
gplot [0:comb1(dim1,2)] sollecit using 2:3 title "M(x)" with lines 1,
sollecit using 2:4 \
    title "" with lines 1 ; hold on;

for i=1:num_comb_carichi
 eval(sprintf('gplot comb%d using 2:3 title ""',i));
endfor;

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
armatura=input("inserire armatura? (1=si, 2=no 3=canc) ");
if (armatura==1)
  mom_res_a = input("Momento resistente dell'armatura: ");
  in_a      = input("A partire da? (inserisci la x): ");
  end_a     = input("fino a?                       : ");
  num_tondini = input("Numero tondini              : ");
  diam_tondini = input("Diametro tondini           : ");
   
  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("Armatura da cancellare \       ! !(inserirel'ordine
100,200 etc di inserimento) ");  !
!  eval(sprintf('gset nolabel %d',arm_canc));       !    
!  eval(sprintf('gset noarrow %d',arm_canc+1));     !
!  armatura=1;                                      !
! replot;                                           ! 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
endif;
endwhile;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



gset nomultiplot;
closeplot;





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
## Dati
Momenti_sulle_campate.a="   x         M(x)  ";
Momenti_sulle_campate.b=momposcamp;
 
Momenti_sulle_campate
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



-------------------------------------------------------------
Octave is freely available under the terms of the GNU GPL.

Octave's home on the web:  http://www.octave.org
How to fund new projects:  http://www.octave.org/funding.html
Subscription information:  http://www.octave.org/archive.html
-------------------------------------------------------------