Advertisement
Guest User

Untitled

a guest
Jun 28th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scilab 0.43 KB | None | 0 0
  1. function [wynik] = solvesin(a, b, c)  
  2.   k=asin(c);
  3.   l=a-modulo(a, %pi);
  4.   wynik1 = l - k;
  5.   wynik2 = l - %pi + k;  
  6.   n=1;
  7.   while wynik1(n) <= b
  8.     n = n + 1;
  9.     wynik1(n) = wynik1(n-1) + 2*%pi;
  10.   end
  11.   n=1;
  12.   while wynik2(n) <= b
  13.     n = n + 1;
  14.     wynik2(n) = wynik2(n-1) + 2*%pi;
  15.   end  
  16.   wynik = [wynik1; wynik2];
  17.   wynik = wynik(find(wynik <= b & wynik >= a));
  18.   wynik = gsort(wynik, 'g', 'd');  
  19. endfunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement