help-octave
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Query


From: Bernardo Jose Lujan Esquivia
Subject: Query
Date: Sat, 6 Jun 2020 01:15:38 -0500

Hello.

How can I do this in octave?

%-------------------------------------------
function [] = plotting()

  clc; more off;

  delimiterIn   = ' ';
  headerlinesIn = 1;
   
  files_mesh      = 'MESH_Coordinate*.dat';
  files_solution  = 'SOLUTION_*.dat';
 
  %------------------------------%
  % Importing the MESH DATA
  %------------------------------%
  import_mesh = dir(files_mesh);
  nfiles_mesh = length(import_mesh);
  for i=1:nfiles_mesh
    if (i==1)
      filename = import_mesh(i).name;
      mydata_mesh = importdata(filename,delimiterIn,headerlinesIn);
      x = mydata_mesh.data(:,1);
      xIni = min(x);
      xEnd = max(x);
    end
    if (i==2)
      filename = import_mesh(i).name;
      mydata_mesh = importdata(filename,delimiterIn,headerlinesIn);
      y = mydata_mesh.data(:,1);
      yIni = min(y);
      yEnd = max(y);
    end
  end
  [X,Y] = meshgrid(x,y);  
  %------------------------------%
  % Importing the SOLUTION DATA
  %------------------------------%
  import_solution = dir(files_solution);
  nfiles_solution = length(import_solution);
 
  v = VideoWriter('Video_filename.avi');
      open(v)

 
  for i=1:nfiles_solution
    filename = import_solution(i).name;
    mydata_solution = importdata(filename,delimiterIn,headerlinesIn);
    u = mydata_solution.data(:,1);
    uMin = 0;
    uMax = 5;
   
    frame = getframe(gcf);
    writeVideo(v,frame);

   
    aFile = sprintf('%s',filename);
    fprintf('Plotting file %s\n',aFile);
    U = reshape(u,[size(X,2),size(Y,1)]);
    U = transpose(U);
    mesh(X,Y,U);

    xlim([xIni,xEnd]);
    ylim([yIni,yEnd]);
    zlim([uMin,uMax])
    pbaspect([1 1 1]);
    daspect([1 1 1]);
    pause(0.1);
  end

  close(v)
 
end
%------------------------------------------ 

Thanks
--
Cordialmente,


Bernardo José Luján Esquivia
Estudiante de Doctorado
Tel: 3106027532
Fundación Universidad del Norte

Este correo no representa opinión o consentimiento oficial de la Universidad del Norte, por lo que esta no adquiere ninguna responsabilidad por su contenido, salvo en el caso de funcionarios en ejercicio de atribuciones reglamentarias. Puede provenir de una cuenta ofrecida a funcionarios o estudiantes, como parte del ejercicio educativo, evento en el cual tanto el mensaje como sus anexos son estrictamente confidenciales. Ha sido analizado con software antivirus; no obstante, no se garantiza que sea seguro o no contenga errores o virus, por lo que la Universidad del Norte no se hace responsable de su transmisión.
reply via email to

[Prev in Thread] Current Thread [Next in Thread]