Advertisement
Guest User

Untitled

a guest
Sep 20th, 2017
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. function rhs = GlobalEquiriblium(X,edd, wx,wy,wz,Cd)
  2. rx=X(1);
  3. ry=X(2);
  4. rz =X(3);
  5. kx=X(4);
  6. kz=X(5);
  7. rhs(1)= -(kz^2-kx^2)-3*Cd*edd*((kx^2-kz^2)-(2*kx^2+kz^2)*f(kz/kx,kz/kx)/2)/(rx*ry*rz);
  8. rhs(2)= rx*ry*rz*kx*kx*kz-1;
  9. rhs(3)= rx^2-(2*kx^2+kz^2)/3 ...
  10. -Cd*edd*(f(kz/kx, kz/kx)- f(rx*wz/(rz*wx),ry*wz/(rz*wy)) ...
  11. +rx*wz/(rz*wx)*f1(rx*wz/(rz*wx),ry*wz/(rz*wy)))/(rz*ry*rx);
  12. rhs(4)=ry^2-(2*kx^2+kz^2)/3 ...
  13. -Cd*edd*(f(kz/kx, kz/kx)- f(rx*wz/(rz*wx),ry*wz/(rz*wy)) ...
  14. +ry*wz/(rz*wy)*f2(rx*wz/(rz*wx),ry*wz/(rz*wy)))/(rz*ry*rx);
  15. rhs(5)=rz^2-(2*kx^2+kz^2)/3 ...
  16. -Cd*edd*(f(kz/kx, kz/kx)- f(rx*wz/(rz*wx),ry*wz/(rz*wy)) ...
  17. -rx*wz/(rz*wx)*f1(rx*wz/(rz*wx),ry*wz/(rz*wy)) ...
  18. -ry*wz/(rz*wy)*f2(rx*wz/(rz*wx),ry*wz/(rz*wy)))/(rz*ry*rx);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement