From help-octave-request at bevo dot che dot wisc dot edu  Tue Dec 12 03:12:07 2000
Subject: gset arrow and label
From: Michele <michelemdl at libero dot it>
To: help-octave at bevo dot che dot wisc dot edu
Date: Tue, 12 Dec 2000 10:25:06 +0000

This is a multi-part message in MIME format.
--------------E5F81B89CA84FF6B37F460A1
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Here is a small example.
Please refer for the problem to my previous email
--------------E5F81B89CA84FF6B37F460A1
Content-Type: text/plain; charset=us-ascii;
 name="pplot.m"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="pplot.m"

## 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;













--------------E5F81B89CA84FF6B37F460A1--



-------------------------------------------------------------
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
-------------------------------------------------------------