-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy paththeta_secondo.m
20 lines (18 loc) · 1.37 KB
/
theta_secondo.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function theta2_differenziabile = theta_secondo(m_c,q_2,q_2_p,u)
%THETA_SECONDO
% THETA2_DIFFERENZIABILE = THETA_SECONDO(M_C,Q_2,Q_2_P,U)
% This function was generated by the Symbolic Math Toolbox version 8.4.
% 26-May-2020 19:05:15
t2 = cos(q_2);
t3 = sin(q_2);
t4 = q_2.*2.0;
t5 = q_2+3.028848699999998e-1;
t6 = m_c.^2;
t7 = q_2_p.^2;
t8 = t2.^2;
t9 = cos(t5);
t10 = sin(t5);
t11 = t4+6.057697399999995e-1;
t12 = sin(t11);
t13 = t9.^2;
theta2_differenziabile = ((t3.*4.577015397617319e+23-t10.*3.903149126142287e+23+u.*2.713521400000002e+22-m_c.*t3.*1.33851931077273e+23-m_c.*t10.*7.658080731400006e+21+m_c.*u.*5.324000000000005e+20-t3.*t6.*2.802404261800004e+21-t7.*t12.*2.27525092568503e+14-t2.*u.*4.919200000000001e+22+t9.*u.*4.194954465000003e+22-m_c.*t7.*t12.*4.4641018598e+12+m_c.*t2.*u.*1.535105e+22+t2.*t3.*t7.*3.150104320000001e+21-t2.*t7.*t10.*2.686319760080001e+21-t3.*t7.*t9.*2.686319763864001e+21+t7.*t9.*t10.*2.290817423964329e+21-m_c.*t2.*t3.*t7.*1.966068016e+21+m_c.*t2.*t7.*t10.*8.383035646645004e+20+m_c.*t3.*t7.*t9.*8.383035658453501e+20+t2.*t3.*t6.*t7.*3.067694789500003e+20).*-5.0e-1)./(m_c.*1.780458869171669e+22+t6.*3.249418482200001e+20-t8.*1.575052160000001e+21-t13.*1.145408484457071e+21+m_c.*t8.*9.830340079999999e+20+m_c.*t13.*4.4641018598e+12+t2.*t9.*2.686319761972001e+21-t6.*t8.*1.533847394750001e+20-m_c.*t2.*t9.*8.383035652549242e+20+6.335509956013779e+22);