-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathphi_secondo.m
20 lines (18 loc) · 1.53 KB
/
phi_secondo.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function phi2_differenziabile = phi_secondo(m_c,q_2,q_2_p,u)
%PHI_SECONDO
% PHI2_DIFFERENZIABILE = PHI_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:16
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;
phi2_differenziabile = ((u.*1.214092203999998e+25+m_c.*u.*3.173737060000001e+24-t2.*t3.*2.808360957248003e+24-t3.*t7.*7.774672907584001e+23+t2.*t10.*2.394890701456001e+24+t3.*t9.*2.39489069774441e+24+t7.*t10.*6.6300208939752e+23-t9.*t10.*2.042294972171938e+24-t2.*u.*1.664959999999998e+23+t9.*u.*1.41983074e+23+t13.*u.*4.36012954e+16+m_c.*t2.*t3.*1.752776465013201e+24+m_c.*t3.*t7.*3.938316048436002e+22-m_c.*t2.*t10.*7.47359060468901e+23-m_c.*t3.*t9.*7.473590752837422e+23+m_c.*t7.*t10.*1.733142091717395e+23+m_c.*t2.*u.*5.195739999999999e+22-t2.*t3.*t6.*2.734891795493001e+23+t3.*t6.*t7.*6.342274073894003e+22+t2.*t7.*t12.*1.396046399792e+15-t3.*t7.*t13.*2.792092799584e+15-t7.*t9.*t12.*1.190508836783472e+15+t7.*t10.*t13.*2.381017673566944e+15-m_c.*t2.*t7.*t12.*4.356557587723e+14+m_c.*t3.*t7.*t13.*8.713115175446e+14).*2.500000000000002e-2)./(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);