Advertisement
FacundoCruz

TP5_PUNTO3

Oct 2nd, 2023
2,123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scilab 1.11 KB | None | 0 0
  1. // --------------      Leer los datos del archivo de texto plano  -----------------
  2.  
  3. // obtener los datos de la curva 1
  4.  
  5. [pSupx,pSupy] = readarchivo('C:\Users\PC\Desktop\Calculo Numerico\TP5\curva 1.txt');
  6.  
  7. // obtener los datos de la curva 2
  8.  
  9.  [pInfx,pInfy] = readarchivo('C:\Users\PC\Desktop\Calculo Numerico\TP5\curva 2.txt');
  10.  
  11. // obtener los datos de la curva 3
  12.  
  13.  [pAlaSupx,pAlaSupy] = readarchivo('C:\Users\PC\Desktop\Calculo Numerico\TP5\curva 3.txt');
  14.  
  15.  
  16. //Generar los trazadores cubicos
  17. d1 = splin(pSupx,pSupy);
  18. xx1 = linspace(pSupx(1),pSupx(length(pSupx)));
  19. yy1 = interp(xx1,pSupx,pSupy,d1); //perfil superior
  20.  
  21. d2 = splin(pInfx,pInfy);
  22. xx2 = linspace(pInfx(1),pInfx(length(pInfx)));
  23. yy2 = interp(xx2,pInfx,pInfy,d2); //perfill inferior
  24.  
  25.  
  26. d3 = splin(pAlaSupx,pAlaSupy);
  27. xx3 = linspace(pAlaSupx(1),pAlaSupx(length(pAlaSupx)));
  28. yy3 = interp(xx3,pAlaSupx,pAlaSupy,d3); //perfil ala superior
  29.  
  30.  
  31. //Graficar perfil aproximado del snoopy
  32. plot(xx1,yy1,'r')
  33. plot(pSupx,pSupy,'bo')
  34.  
  35. plot(xx2,yy2)
  36. plot(pInfx,pInfy,'ro')
  37.  
  38. plot(xx3,yy3,'k')
  39. plot(pAlaSupx,pAlaSupy,'go')
  40.  
  41. xgrid(12)
  42.  
  43. title('Snoopy')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement