Advertisement
Guest User

Untitled

a guest
Mar 27th, 2017
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.06 KB | None | 0 0
  1. i = 1;
  2. q = 1;
  3. nconv = 10;
  4.  
  5. epar = conv2((ex.*bx + ey.*by + ez.*bz)./sqrt(bx.^2+by.^2+bz.^2),ones(nconv,nconv)/nconv^2);
  6.  
  7. phvals = {};
  8.  
  9. while(i <= length(Cmat))
  10.  
  11. contlen = Cmat(2,i);
  12.  
  13. contvals = Cmat(:,(i+1):(i+contlen));
  14.  
  15. eparvals = interp2(epar,contvals(1,:),contvals(2,:));
  16. bxvals = interp2(by,contvals(1,:),contvals(2,:));
  17. byvals = interp2(by,contvals(1,:),contvals(2,:));
  18. bzvals = interp2(by,contvals(1,:),contvals(2,:));
  19.  
  20.  
  21. if((prod(contvals(2,:) > 450) == 0 )&&(prod(contvals(2,:) < 450) == 0 ))
  22.  
  23. if((min(contvals(1,:)) == 1) || (max(contvals(1,:)) == 1800))
  24.  
  25. dxvals = contvals(1,2:end) - contvals(1:end-1);
  26. dzvals = contvals(2,2:end) - contvals(2:end-1);
  27.  
  28. drvals = sqrt(dxvals.^2 + dzvals.^2);
  29.  
  30. eivals = eparvals.*sqrt((byvals.^2+bxvals.^2+bzvals.^2)./(bxvals.^2+bzvals.^2));
  31.  
  32. eint = (eivals(1:end-1) + eivals(2:end))/2;
  33.  
  34. phpar = [0 cumsum(eint.*drvals)];
  35.  
  36. else
  37.  
  38.  
  39. continue
  40.  
  41. end
  42.  
  43. print('hold up here')
  44.  
  45. else
  46.  
  47. dxvals = mod(diff([contvals(1,:) contvals(1,1)]),1800);
  48. dzvals = diff([contvals(2,:) contvals(2,1)]);
  49.  
  50. dlvals = sqrt((dxvals.^2 + dzvals.^2).*(byvals.^2+bxvals.^2+bzvals.^2)./(bxvals.^2+bzvals.^2));
  51.  
  52. if(prod((dxvals.*bxvals + dzvals.*bzvals) <= 0) == 1)
  53.  
  54. ispar= -1;
  55.  
  56. elseif(prod((dxvals.*bxvals + dzvals.*bzvals) >= 0) == 1)
  57.  
  58. ispar= 1;
  59. else
  60. print('shit went wrong, yo')
  61. end
  62.  
  63. eint = eparvals.*dlvals*ispar;
  64.  
  65. phpar = cumsum(eint)-(eint+eint(1))/2;
  66. len = cumsum(dlvals) - (dlvals + dlvals(1))/2;
  67.  
  68. phparmid = mean(phpar(contvals(1,:)==900));
  69.  
  70.  
  71.  
  72. end
  73.  
  74. phvals{q} = [contvals(1,:);contvals(2,:);phpar];
  75.  
  76.  
  77.  
  78. q = q + 1;
  79. i = i + 1 + contlen;
  80. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement