-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathEquations.nb
2639 lines (2504 loc) · 114 KB
/
Equations.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 114316, 2631]
NotebookOptionsPosition[ 101785, 2455]
NotebookOutlinePosition[ 103099, 2484]
CellTagsIndexPosition[ 103056, 2481]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Equations", "Section",
CellChangeTimes->{{3.812424340521186*^9, 3.8124243482123885`*^9},
3.8135823110665827`*^9, {3.8167841660342913`*^9, 3.8167841687761393`*^9}, {
3.817107699414483*^9, 3.8171077005624914`*^9}, {3.8171135327510767`*^9,
3.817113534648723*^9}, 3.819199871105528*^9, {3.8192000141894236`*^9,
3.81920001557456*^9}},ExpressionUUID->"9fdcaecd-b433-4092-8624-\
ced427ed3e93"],
Cell[CellGroupData[{
Cell["Accelerations", "Subsubsection",
CellChangeTimes->{{3.813056017379486*^9, 3.813056021300954*^9}, {
3.8135822982187653`*^9,
3.813582300005508*^9}},ExpressionUUID->"3a3b98e2-b832-48bf-bdce-\
b596691cb8b1"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"ax", "[",
RowBox[{"udot_", ",", "v_", ",", "r_"}], "]"}], ":=",
RowBox[{"udot", "-",
RowBox[{"v", "*", "r"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.813056027752563*^9, 3.8130560596268415`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"c6abd9c9-9177-4572-8a65-9a4b79625bd0"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"ay", "[",
RowBox[{"vdot_", ",", "u_", ",", "r_"}], "]"}], ":=",
RowBox[{"vdot", "+",
RowBox[{"u", "*", "r"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130560540594997`*^9, 3.8130560894323378`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"da80e59f-14eb-419e-95f9-a00021c2f7ab"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Y", "[",
RowBox[{"vdot_", ",", "u_", ",", "r_"}], "]"}], ":=",
RowBox[{"m", "*",
RowBox[{"ay", "[",
RowBox[{"vdot", ",", "u", ",", "r"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.818934705110382*^9, 3.8189347596155987`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"2209c264-cf24-49b4-b814-663406c46634"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Y1", "[",
RowBox[{"vdot_", ",", "u_", ",", "r_"}], "]"}], ":=",
RowBox[{"m", "*",
RowBox[{"ay", "[",
RowBox[{"vdot", ",", "u", ",", "r"}], "]"}], "*",
RowBox[{"(",
RowBox[{"a2", "/", "l"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8189347469006157`*^9, 3.8189347869608517`*^9}, {
3.8189369573381033`*^9, 3.8189369581899033`*^9}, 3.818936995395661*^9},
CellLabel->"In[4]:=",ExpressionUUID->"46fd6100-0439-4ef9-93b5-b95e9fae8227"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Y2", "[",
RowBox[{"vdot_", ",", "u_", ",", "r_"}], "]"}], ":=",
RowBox[{"m", "*",
RowBox[{"ay", "[",
RowBox[{"vdot", ",", "u", ",", "r"}], "]"}], "*",
RowBox[{"(",
RowBox[{"a1", "/", "l"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.818934791130838*^9, 3.8189347945668983`*^9}, {
3.8189369632881565`*^9, 3.8189369961529813`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"7548932a-741e-4ca1-aba5-9b1f4f27c898"]
}, Closed]],
Cell[CellGroupData[{
Cell["Steer Angles", "Subsubsection",
CellChangeTimes->{{3.812957017215146*^9, 3.812957023611414*^9}, {
3.813582083399637*^9,
3.8135820859689226`*^9}},ExpressionUUID->"78e319a7-f057-4756-abb4-\
eb7442f0c059"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]Func", "[",
RowBox[{
"\[Delta]v_", ",", "\[Delta]0_", ",", "\[Tau]_", ",", "\[Epsilon]_", ",",
"t_", ",", "j_"}], "]"}], ":=", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^", "j"}], "*", "\[Delta]0"}], "+",
RowBox[{"\[Tau]", "*", "\[Delta]v"}], "+",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"j", "+", "1"}], ")"}]}], "*", "\[Epsilon]", "*",
RowBox[{"(",
RowBox[{
RowBox[{"(", "t", ")"}], "/",
RowBox[{"(",
RowBox[{"2", "*", "l"}], ")"}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"\[Tau]", "*", "\[Delta]v"}], ")"}], "^", "2"}]}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.8135812200614147`*^9, 3.8135813500362496`*^9},
3.813581572031824*^9, 3.813641815979994*^9},
Background->RGBColor[0.88, 1, 0.88],
CellLabel->"In[6]:=",ExpressionUUID->"d5d8f849-c62c-4c19-a9b8-816f944be2bb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]11", "[", "\[Delta]v_", "]"}], ":=",
RowBox[{"\[Delta]Func", "[",
RowBox[{
"\[Delta]v", ",", "\[Delta]10", ",", "\[Tau]1", ",", "\[Epsilon]1", ",",
"t1", ",", "1"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8135813582822742`*^9, 3.8135814228984127`*^9}, {
3.8135815350142803`*^9, 3.8135815381183777`*^9}, {3.8135815836550145`*^9,
3.8135815924723644`*^9}, {3.814120712438493*^9, 3.814120720123845*^9}, {
3.8141236009859915`*^9, 3.814123601773094*^9}, {3.81418036250008*^9,
3.8141803747952785`*^9}, {3.81418042636071*^9, 3.814180444762124*^9}, {
3.817043095551826*^9, 3.8170430975793934`*^9}, {3.8189345379752417`*^9,
3.8189345399818335`*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"120c2257-01d0-4c40-94ae-45085d2acea0"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]12", "[", "\[Delta]v_", "]"}], ":=",
RowBox[{"\[Delta]Func", "[",
RowBox[{
"\[Delta]v", ",", "\[Delta]10", ",", "\[Tau]1", ",", "\[Epsilon]1", ",",
"t1", ",", "2"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.81296927813081*^9, 3.8129692852235165`*^9}, {
3.8129693430067997`*^9, 3.8129693605183105`*^9}, {3.812969485426175*^9,
3.812969486628669*^9}, {3.8135648210286813`*^9, 3.813564828146579*^9}, {
3.8135648926794167`*^9, 3.813564898513461*^9}, {3.813581429083572*^9,
3.813581453684442*^9}, {3.8135815409471073`*^9, 3.813581542328127*^9}, {
3.8135815951473074`*^9, 3.8135815976581974`*^9}, {3.8141207245770464`*^9,
3.8141207321311283`*^9}, 3.8141803779086123`*^9, {3.8141804307912827`*^9,
3.814180446054615*^9}, {3.8170431037229185`*^9, 3.817043106605582*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"dc67eb17-1749-4689-b49b-274261d54a4c"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]21", "[", "\[Delta]v_", "]"}], ":=",
RowBox[{"\[Delta]Func", "[",
RowBox[{
"\[Delta]v", ",", "\[Delta]20", ",", "\[Tau]2", ",", "\[Epsilon]2", ",",
"t2", ",", "1"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.812969488785031*^9, 3.8129695362111406`*^9}, {
3.813564847318324*^9, 3.813564864916995*^9}, {3.8135814613120384`*^9,
3.8135814850485306`*^9}, {3.8141207356009884`*^9, 3.8141207450625772`*^9},
3.8141803797380342`*^9, {3.814180434456814*^9, 3.81418044765338*^9}, {
3.817043117241347*^9, 3.8170431191389885`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"63c645db-a5b0-4dfc-a7eb-9d72cffa7b83"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]22", "[", "\[Delta]v_", "]"}], ":=",
RowBox[{"\[Delta]Func", "[",
RowBox[{
"\[Delta]v", ",", "\[Delta]20", ",", "\[Tau]2", ",", "\[Epsilon]2", ",",
"t2", ",", "2"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129694919561586`*^9, 3.812969539257538*^9}, {
3.8135648746062164`*^9, 3.8135649003721104`*^9}, {3.8135814879668465`*^9,
3.8135815007498245`*^9}, {3.81358160096941*^9, 3.813581602466036*^9}, {
3.8141207493142357`*^9, 3.8141207597464414`*^9}, 3.8141803813469057`*^9, {
3.814180437221655*^9, 3.8141804500832195`*^9}, {3.817043122341237*^9,
3.8170431243417954`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"0b20572e-6eba-4333-96c3-ea1bf7202217"]
}, Closed]],
Cell[CellGroupData[{
Cell["Velocity of the wheels (body frame)", "Subsubsection",
CellChangeTimes->{{3.8129493920668545`*^9, 3.812949397244133*^9}, {
3.8129510199634876`*^9, 3.8129510208384867`*^9}, {3.812954265418065*^9,
3.812954267051236*^9}, {3.8135820971064067`*^9,
3.8135821202727013`*^9}},ExpressionUUID->"7da0192e-509e-4273-9390-\
6ef137f5cc55"],
Cell[BoxData[
RowBox[{
StyleBox[
RowBox[{
RowBox[{"Vijb", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "ti_", ",", "ai_", ",", "i_", ",",
"j_"}], "]"}], ":=", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"u", "+",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^", "j"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"r", "*",
RowBox[{"ti", "/", "2"}]}], ")"}], "/", "1"}]}]}], ",",
RowBox[{"v", "-",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^", "i"}], "*", "r", "*", "1", "*",
"ai"}]}]}], "}"}]}],
Background->RGBColor[0.88, 1, 0.88]], ";"}]], "Input",
CellChangeTimes->{{3.8136846660030456`*^9, 3.8136847928205833`*^9}, {
3.8136848412955856`*^9, 3.8136848673174562`*^9}, {3.8136849991816688`*^9,
3.813685029943874*^9}, {3.813685216509568*^9, 3.81368521963206*^9},
3.813685276016419*^9, 3.8141944649764557`*^9, {3.8189333681274595`*^9,
3.818933368407383*^9}},
Background->RGBColor[0.88, 1, 0.88],
CellLabel->"In[11]:=",ExpressionUUID->"e8437dfb-7bd9-49d8-8c67-4bc09c58447a"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V11b", "[",
RowBox[{"u_", ",", "v_", ",", "r_"}], "]"}], ":=",
RowBox[{"Vijb", "[",
RowBox[{
"u", ",", "v", ",", "r", ",", "t1", ",", "a1", ",", "1", ",", "1"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129516204986935`*^9, 3.812951628327691*^9}, {
3.8129516761667843`*^9, 3.812951723173335*^9}, 3.8129522547757545`*^9,
3.812952383240079*^9, 3.812952448395462*^9, 3.8129545741998267`*^9, {
3.812955408175714*^9, 3.812955429273532*^9}, 3.81303427412848*^9,
3.8130343728879647`*^9, {3.8130344167779584`*^9, 3.813034434784959*^9}, {
3.813035468517255*^9, 3.813035512958451*^9}, 3.813035600434724*^9, {
3.813035638649122*^9, 3.8130356500432186`*^9}, {3.813684887427639*^9,
3.8136849253610888`*^9}, {3.813685036172722*^9, 3.8136850493982363`*^9}, {
3.8136850984983854`*^9, 3.8136851009163694`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"97194943-de62-4adf-8904-c6d928547156"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V12b", "[",
RowBox[{"u_", ",", "v_", ",", "r_"}], "]"}], ":=",
RowBox[{"Vijb", "[",
RowBox[{
"u", ",", "v", ",", "r", ",", "t1", ",", "a1", ",", "1", ",", "2"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129516951194935`*^9, 3.812951724675434*^9}, {
3.8129524500123615`*^9, 3.812952451148423*^9}, 3.812954575835145*^9,
3.812955414467084*^9, 3.813034277444769*^9, {3.8130344447095556`*^9,
3.8130344510907154`*^9}, 3.813035490947316*^9, {3.8130355392827387`*^9,
3.8130355455499372`*^9}, 3.813035602253084*^9, {3.8130356596556835`*^9,
3.813035669733573*^9}, {3.8136849332872734`*^9, 3.813684954461139*^9}, {
3.813685055621863*^9, 3.813685094376194*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"e2c52098-d861-4aae-9407-509be0890591"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V21b", "[",
RowBox[{"u_", ",", "v_", ",", "r_"}], "]"}], ":=",
RowBox[{"Vijb", "[",
RowBox[{
"u", ",", "v", ",", "r", ",", "t2", ",", "a2", ",", "2", ",", "1"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.812951707694413*^9, 3.812951726920286*^9},
3.812952453145028*^9, 3.8129545777557597`*^9, 3.812955416568595*^9,
3.81303427889124*^9, 3.8130344466150093`*^9, {3.8130355487086315`*^9,
3.8130356039906034`*^9}, {3.813035666952406*^9, 3.8130356718021755`*^9}, {
3.813684935650773*^9, 3.8136849607848215`*^9}, {3.8136850684823494`*^9,
3.8136850895075727`*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"0b72cdb4-787a-4166-aa45-9e89162b3ef5"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V22b", "[",
RowBox[{"u_", ",", "v_", ",", "r_"}], "]"}], ":=",
RowBox[{"Vijb", "[",
RowBox[{
"u", ",", "v", ",", "r", ",", "t2", ",", "a2", ",", "2", ",", "2"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.812951715558502*^9, 3.8129517490521955`*^9},
3.8129524553513074`*^9, 3.812954579426318*^9, 3.812955418807973*^9,
3.813034280328583*^9, {3.8130344482361813`*^9, 3.8130344657840743`*^9}, {
3.813035584905573*^9, 3.813035605931675*^9}, {3.8130356678286304`*^9,
3.8130356734698925`*^9}, 3.8136849385923896`*^9, {3.8136851057610583`*^9,
3.8136851099403067`*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"1b282f77-622e-4a28-9269-48e6136952e3"]
}, Closed]],
Cell[CellGroupData[{
Cell["Velocity of the wheels (wheels frame)", "Subsubsection",
CellChangeTimes->{{3.812955859884392*^9, 3.8129558842906866`*^9}, {
3.813582107143993*^9,
3.8135821176579356`*^9}},ExpressionUUID->"be0ee741-735f-4d92-a778-\
e4beed40b064"],
Cell["Matrice di rotazione che mi porta da wheel a body ", "Text",
CellChangeTimes->{{3.8129562524774923`*^9,
3.812956272437545*^9}},ExpressionUUID->"fb87acdd-7339-4f60-979d-\
2d4b7e500e0e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Rbw", "[", "\[Delta]ij_", "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Delta]ij", "]"}], ",", " ",
RowBox[{"-",
RowBox[{"Sin", "[", "\[Delta]ij", "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]", "\t\t ",
RowBox[{"{",
RowBox[{
RowBox[{"Sin", "[", "\[Delta]ij", "]"}], ",", " ",
RowBox[{"Cos", "[", "\[Delta]ij", "]"}]}], "}"}]}], "}"}]}],
";"}]], "Input",
CellChangeTimes->{{3.8129558984776545`*^9, 3.812956084139553*^9}, {
3.81295619381808*^9, 3.8129561947227383`*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"c95fda7b-180b-45f5-a814-cc6f7accff0d"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V11w", "[",
RowBox[{"u_", ",", "v_", ",", "r_", ",", "\[Delta]v_"}], "]"}], ":=",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"Rbw", "[",
RowBox[{"\[Delta]11", "[", "\[Delta]v", "]"}], "]"}], "]"}], ".",
RowBox[{"V11b", "[",
RowBox[{"u", ",", "v", ",", "r"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.812956277659793*^9, 3.812956278043232*^9}, {
3.8129563137564697`*^9, 3.8129563853553963`*^9}, {3.812956628104325*^9,
3.8129566334202394`*^9}, 3.812956685590805*^9, {3.812956748354511*^9,
3.812956776497631*^9}, {3.812956834090643*^9, 3.8129568357226877`*^9}, {
3.812956919815594*^9, 3.812956947052992*^9}, {3.813034260448716*^9,
3.8130342669601345`*^9}, 3.8130343043963614`*^9, {3.8130343643988843`*^9,
3.8130343911548734`*^9}, {3.813034475407662*^9, 3.8130345004517*^9}, {
3.813035689661274*^9, 3.8130357387567453`*^9}, {3.8130357811653132`*^9,
3.8130357925893636`*^9}, {3.8135801225664387`*^9,
3.8135801286871586`*^9}, {3.8142476396994743`*^9,
3.8142476456548843`*^9}, {3.8163374827602525`*^9, 3.816337485898469*^9}, {
3.81633754759585*^9, 3.816337555867272*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"b3ba5d4e-d1c5-49e2-ae78-27f8cff1a635"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V12w", "[",
RowBox[{"u_", ",", "v_", ",", "r_", ",", "\[Delta]v_"}], "]"}], ":=",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"Rbw", "[",
RowBox[{"\[Delta]12", "[", "\[Delta]v", "]"}], "]"}], "]"}], ".",
RowBox[{"V12b", "[",
RowBox[{"u", ",", "v", ",", "r"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129563781610885`*^9, 3.812956398171959*^9}, {
3.812956657521926*^9, 3.812956674199071*^9}, {3.8129569357052045`*^9,
3.812956935938912*^9}, {3.813035734258571*^9, 3.813035753789407*^9}, {
3.8135801317275577`*^9, 3.813580136800988*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"2c92da9b-02d5-42ec-84d1-713796753705"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V21w", "[",
RowBox[{"u_", ",", "v_", ",", "r_", ",", "\[Delta]v_"}], "]"}], ":=",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"Rbw", "[",
RowBox[{"\[Delta]21", "[", "\[Delta]v", "]"}], "]"}], "]"}], ".",
RowBox[{"V21b", "[",
RowBox[{"u", ",", "v", ",", "r"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129564018499002`*^9, 3.8129564097572737`*^9}, {
3.8129569382654133`*^9, 3.8129569385076747`*^9}, {3.8130357356326566`*^9,
3.813035755200612*^9}, {3.813580140227744*^9, 3.8135801443148503`*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"c574a70f-173d-478e-b048-2ddfe8f93fee"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"V22w", "[",
RowBox[{"u_", ",", "v_", ",", "r_", ",", "\[Delta]v_"}], "]"}], ":=",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"Rbw", "[",
RowBox[{"\[Delta]22", "[", "\[Delta]v", "]"}], "]"}], "]"}], ".",
RowBox[{"V22b", "[",
RowBox[{"u", ",", "v", ",", "r"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129564144599285`*^9, 3.8129564179249563`*^9},
3.812956462725177*^9, 3.812956609089076*^9, {3.812956942058346*^9,
3.812956942233013*^9}, {3.8130357367148356`*^9, 3.8130357570668826`*^9}, {
3.813580146828026*^9, 3.8135801483469677`*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"bbd17db8-48a5-4262-9bd3-35343814f0e7"]
}, Closed]],
Cell[CellGroupData[{
Cell["Longitudinal Slips", "Subsubsection",
CellChangeTimes->{{3.8129507558955183`*^9, 3.812950758191909*^9},
3.81358213358259*^9, {3.81721523080507*^9,
3.817215231107456*^9}},ExpressionUUID->"e3ed9494-8044-4d8f-b58b-\
da3f59f48a62"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x11", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]11_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"V11w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"\[Omega]11", "*", "rr1"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]11", "*", "rr1"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.812950368251199*^9, 3.8129503828876038`*^9}, {
3.8129504191616087`*^9, 3.8129504369697614`*^9}, {3.812950768519125*^9,
3.8129507971099215`*^9}, 3.8129524300790586`*^9, {3.8129529555180717`*^9,
3.812952964213976*^9}, 3.812953394729173*^9, 3.8129546227314415`*^9, {
3.812954856304265*^9, 3.8129549209748*^9}, 3.812954971213071*^9, {
3.8129550053561325`*^9, 3.8129550246997533`*^9}, 3.8129551028976183`*^9, {
3.8130363438603244`*^9, 3.813036344310775*^9}, {3.813036430255273*^9,
3.813036544527399*^9}, {3.8142476548847847`*^9, 3.8142476605897865`*^9}, {
3.8142485482116747`*^9, 3.814248574547623*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"da0344b3-c311-45d6-ad06-9b93a75f4eb8"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x12", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]12_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"V12w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"\[Omega]12", "*", "rr1"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]12", "*", "rr1"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.813036563423145*^9, 3.8130366044693227`*^9}, {
3.8142485506184697`*^9, 3.8142485871832466`*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"ad8a5fb1-04bc-47bc-8153-00d0bf73507a"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x21", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]21_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"V21w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"\[Omega]21", "*", "rr2"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]21", "*", "rr2"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.813036580659959*^9, 3.8130365892753735`*^9}, {
3.8130366201824384`*^9, 3.813036620251995*^9}, {3.813642024851221*^9,
3.813642024906072*^9}, {3.814248552953723*^9, 3.81424859117336*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"de175684-d2ef-4b7d-b7f0-75f0d82e78ab"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x22", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]22_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"V22w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "-",
RowBox[{"\[Omega]22", "*", "rr2"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]22", "*", "rr2"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130366082175326`*^9, 3.813036622540169*^9}, {
3.813642027055388*^9, 3.813642027179021*^9}, {3.814248554996733*^9,
3.8142485929276357`*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"340ce054-8f15-479c-9fa8-93bb1b6c61d9"]
}, Closed]],
Cell[CellGroupData[{
Cell["Lateral Slips", "Subsubsection",
CellChangeTimes->{{3.812950761547104*^9, 3.8129507628907557`*^9},
3.8135821351287384`*^9, {3.8172152319451103`*^9,
3.8172152321963797`*^9}},ExpressionUUID->"855aaa4e-6371-47dc-9ac4-\
dcb6c447c509"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]y11", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]11_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"V11w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]11", "*", "rr1"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130366391196666`*^9, 3.813036705267269*^9},
3.8130367372717285`*^9, {3.813036791660398*^9, 3.813036798657164*^9}, {
3.8142486410505934`*^9, 3.8142486650161223`*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"70830e9c-f463-4baf-838f-a99dd633fcec"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]y12", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]12_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"V12w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]12", "*", "rr1"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130367235876465`*^9, 3.8130367741470366`*^9}, {
3.8142486486324167`*^9, 3.8142486678942084`*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"9a6507f3-f9df-4426-b047-24b047160568"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]y21", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]21_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"V21w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]21", "*", "rr2"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130367409058003`*^9, 3.8130367808409834`*^9}, {
3.814248650809787*^9, 3.814248669707608*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"ca9c79a9-49e4-4aab-b6bc-7ac8aa8d436b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]y22", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]22_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"V22w", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Delta]v"}], "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Omega]22", "*", "rr2"}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8130367474611845`*^9, 3.8130367839371653`*^9}, {
3.8142486530569763`*^9, 3.8142486715346856`*^9}},
CellLabel->"In[28]:=",ExpressionUUID->"47b6b2a4-fd22-4327-826e-b33ec8c4d01b"]
}, Closed]],
Cell[CellGroupData[{
Cell["Total Slips", "Subsubsection",
CellChangeTimes->{{3.812955464367723*^9, 3.8129554698534327`*^9},
3.8135821373632994`*^9, {3.817215233350401*^9,
3.8172152336038*^9}},ExpressionUUID->"4e63cb76-cac6-42b5-af1b-\
10198406ab4b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]11", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]11_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x11", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]11", ",", "\[Delta]v"}],
"]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"\[Sigma]y11", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]11", ",", "\[Delta]v"}],
"]"}], "^", "2"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129554751039867`*^9, 3.812955478225168*^9}, {
3.8129555763887873`*^9, 3.8129556401454306`*^9}, {3.8130368176676397`*^9,
3.8130368591000767`*^9}, {3.8130372633880415`*^9,
3.8130372650240297`*^9}, {3.8130373614643006`*^9, 3.813037400952858*^9},
3.813563796863662*^9, {3.814248688547467*^9, 3.814248717525155*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"a1a00d58-e559-4567-98e5-96c8074a4f82"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]12", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]12_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x12", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]12", ",", "\[Delta]v"}],
"]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"\[Sigma]y12", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]12", ",", "\[Delta]v"}],
"]"}], "^", "2"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.812955649338188*^9, 3.8129556576832733`*^9}, {
3.8130372778545017`*^9, 3.8130373156571274`*^9}, {3.8130373476338253`*^9,
3.8130373584374228`*^9}, {3.8142486911029987`*^9, 3.814248718510578*^9}},
CellLabel->"In[30]:=",ExpressionUUID->"705cdf63-936e-426f-af10-a7e08941c882"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]21", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]21_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x21", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]21", ",", "\[Delta]v"}],
"]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"\[Sigma]y21", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]21", ",", "\[Delta]v"}],
"]"}], "^", "2"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129556510148396`*^9, 3.812955662985654*^9}, {
3.8130372797683086`*^9, 3.813037325150199*^9}, 3.813037364520026*^9, {
3.814248695081216*^9, 3.8142487194969635`*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"55cab18d-58ea-49ac-8398-c345385214e2"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Sigma]22", "[",
RowBox[{
"u_", ",", "v_", ",", "r_", ",", "\[Omega]22_", ",", "\[Delta]v_"}],
"]"}], ":=",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{
RowBox[{"\[Sigma]x22", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]22", ",", "\[Delta]v"}],
"]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"\[Sigma]y22", "[",
RowBox[{"u", ",", "v", ",", "r", ",", "\[Omega]22", ",", "\[Delta]v"}],
"]"}], "^", "2"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.812955652603644*^9, 3.8129556690659823`*^9},
3.8130372812344885`*^9, {3.8130373267130527`*^9, 3.8130373661609697`*^9}, {
3.8142487025023623`*^9, 3.814248720135248*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"6072df0e-cea0-4f14-91f2-743a9e2b91f7"]
}, Closed]],
Cell[CellGroupData[{
Cell["Magic Formula", "Subsubsection",
CellChangeTimes->{{3.8129488973027496`*^9,
3.8129489030755205`*^9}},ExpressionUUID->"d2275be6-64f2-426a-beaf-\
47d9ae5a6d40"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Dmf", "[", "Fz_", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"a1mf", "*", "Fz"}], "+", "a2mf"}], ")"}], "*", "Fz"}]}],
";"}]], "Input",
CellChangeTimes->{{3.812943400002428*^9, 3.812943403053172*^9}, {
3.8129434364979987`*^9, 3.812943475252897*^9}, {3.8129435215845222`*^9,
3.8129436089102335`*^9}, {3.812943832135406*^9, 3.8129438330798807`*^9},
3.812943875970583*^9, 3.8129485572425337`*^9, 3.8129486898859253`*^9, {
3.8129491869238157`*^9, 3.812949189379461*^9}, {3.8135725025693955`*^9,
3.813572507250436*^9}, {3.813572830865365*^9, 3.813572838248291*^9},
3.8135735181736393`*^9, 3.813573673481104*^9},
CellLabel->"In[33]:=",ExpressionUUID->"c6abddb2-ee39-447b-aa06-d39918614cdf"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Cmf", "[", "Fz_", "]"}], ":=",
RowBox[{"2", "-",
RowBox[{
RowBox[{"(",
RowBox[{"2", "/", "Pi"}], ")"}], "*",
RowBox[{"ArcSin", "[",
RowBox[{"ya", "/",
RowBox[{"Dmf", "[", "Fz", "]"}]}], "]"}]}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8129439573438396`*^9, 3.8129440153879986`*^9}, {
3.812944100837161*^9, 3.8129441151634827`*^9}, 3.8129485539081516`*^9,
3.8129486880562077`*^9, 3.8135729113669806`*^9, {3.8135729440866566`*^9,
3.8135729620641108`*^9}, 3.8135735215121765`*^9},
CellLabel->"In[34]:=",ExpressionUUID->"c7bdaab1-b954-4c0c-b5dd-305ef714882e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Bmf", "[", "Fz_", "]"}], "=",
RowBox[{
RowBox[{"(",
RowBox[{"a3mf", "*",
RowBox[{"Sin", "[",
RowBox[{"2", "*",
RowBox[{"ArcTan", "[",
RowBox[{"(",
RowBox[{"Fz", "/", "a4mf"}], ")"}], "]"}]}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"Cmf", "[", "Fz", "]"}], "*",
RowBox[{"Dmf", "[", "Fz", "]"}]}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.812943620808532*^9, 3.8129436269811563`*^9}, {
3.8129437400554256`*^9, 3.8129437748824472`*^9}, {3.81294387887681*^9,
3.8129439366284714`*^9}, {3.8129441196176453`*^9, 3.81294411976589*^9},
3.8129485514847364`*^9, 3.812948685892992*^9, {3.8129491689577703`*^9,
3.8129491801422186`*^9}, {3.8129499703771896`*^9, 3.8129499774348373`*^9},
3.8129501178453407`*^9, {3.813573094702801*^9, 3.813573097293048*^9},
3.8135735245025597`*^9, {3.8135737575970936`*^9, 3.813573760827257*^9}, {
3.813595989362871*^9, 3.8135960003821497`*^9}, 3.813596971686873*^9},
CellLabel->"In[35]:=",ExpressionUUID->"4c3ad702-53f1-4cf4-b9af-e5d4c0c6c46b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Emf", "[", "Fz_", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Bmf", "[", "Fz", "]"}], "*", "xm"}], "-",
RowBox[{"Tan", "[",
RowBox[{"Pi", "/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"Cmf", "[", "Fz", "]"}]}], ")"}]}], "]"}]}], ")"}], " ",
"/", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Bmf", "[", "Fz", "]"}], "*", "xm"}], "-",
RowBox[{
RowBox[{"ArcTan", "[",
RowBox[{"Bmf", "[", "Fz", "]"}], "]"}], "*", "xm"}]}], ")"}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.812944201190748*^9, 3.8129442659451637`*^9}, {
3.812944307657425*^9, 3.8129443080811787`*^9}, {3.812944376444316*^9,
3.812944401296487*^9}, 3.8129485600935946`*^9, 3.8129486917447424`*^9, {
3.8129500931300807`*^9, 3.8129500968034067`*^9}, {3.813573101362374*^9,
3.8135731024329524`*^9}, 3.8135735273606644`*^9},
CellLabel->"In[36]:=",ExpressionUUID->"ef8e0f53-566b-4862-bd53-f4acf19d55b3"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Ft", "[",
RowBox[{"\[Sigma]_", ",", "Fz_"}], "]"}], ":=", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Dmf", "[", "Fz", "]"}], "*",
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"Cmf", "[", "Fz", "]"}], "*",
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{
RowBox[{"Bmf", "[", "Fz", "]"}], "*", "\[Sigma]"}], "-",
RowBox[{
RowBox[{"Emf", "[", "Fz", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Bmf", "[", "Fz", "]"}], "*", "\[Sigma]"}], "-",
RowBox[{"ArcTan", "[",
RowBox[{
RowBox[{"Bmf", "[", "Fz", "]"}], "*", "\[Sigma]"}], "]"}]}],
")"}]}]}], "]"}]}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.812943113357826*^9, 3.812943126120116*^9}, {
3.8129431726141963`*^9, 3.8129431739987516`*^9}, {3.812943261206425*^9,
3.812943319505517*^9}, 3.812943397490598*^9, {3.8129434472400446`*^9,
3.8129434514462023`*^9}, 3.812943694856575*^9, 3.812943881209276*^9, {
3.8129441842798724`*^9, 3.8129441906113663`*^9}, {3.8129444095330973`*^9,
3.8129445627391872`*^9}, 3.8129446102824078`*^9, 3.812948565935351*^9,
3.8129486933228436`*^9, {3.813055884683714*^9, 3.81305588485555*^9},
3.813562358490405*^9, 3.813562608648737*^9, {3.8135721795620584`*^9,
3.8135721844106007`*^9}, 3.813572227650098*^9, {3.813572357102704*^9,
3.813572403074626*^9}, {3.8135724357050257`*^9, 3.8135724517839165`*^9}, {
3.8135730724701347`*^9, 3.813573073798815*^9}, {3.8135734942987204`*^9,
3.8135735012564864`*^9}, {3.8135739611075478`*^9, 3.813573962588832*^9}, {
3.81412129422961*^9, 3.8141212946080947`*^9}, {3.8141759216163797`*^9,
3.8141759221730165`*^9}, 3.81419445623555*^9, {3.816755631124111*^9,
3.8167556321300993`*^9}, {3.8189340085841093`*^9, 3.818934023372224*^9}},
Background->RGBColor[0.87, 0.94, 1],
CellLabel->"In[37]:=",ExpressionUUID->"b087cc53-79a1-4926-9c3e-bd5d32e84bda"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Ft", "[",
RowBox[{"\[Sigma]", ",", "Fz"}], "]"}], "/.", "param"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Sigma]", ",", "0", ",", "0.6"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"All", ",",
RowBox[{"{",
RowBox[{"0", ",", "5000"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{"1", "/", "2.4"}]}], ",", "\[IndentingNewLine]",
RowBox[{"PlotLabel", "\[Rule]", "\"\<Magic Formula\>\""}], ",",
RowBox[{"ImageSize", "\[Rule]", "600"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Bold", ",", "11"}], "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"Frame", "\[Rule]", "True"}], ",", " ",
RowBox[{"RotateLabel", "\[Rule]", "False"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"green", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[", "\"\<\[Sigma]\>\"", "]"}], ",", " ",
RowBox[{"HoldForm", "[", "\"\<Ft\>\"", "]"}]}], "}"}]}], ",",
RowBox[{"Filling", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]",
RowBox[{"GridLines", "->", "Automatic"}], ",", " ",
RowBox[{"GridLinesStyle", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Gray", ",", " ", "Dotted"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"Gray", ",", " ", "Dotted"}], "}"}]}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"Fz", ",", "2000", ",", "5000"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.813572789866387*^9, 3.813572818694577*^9}, {
3.813573005508419*^9, 3.81357305750438*^9}, {3.8135731189718404`*^9,
3.813573140016328*^9}, {3.8135731777893677`*^9, 3.813573230517771*^9}, {
3.813573383189847*^9, 3.813573471759592*^9}, {3.813573581097227*^9,
3.813573618099242*^9}, {3.813573977042383*^9, 3.8135740237477326`*^9}, {
3.8135743250216293`*^9, 3.813574406975582*^9}, {3.813574877064756*^9,
3.8135749196333256`*^9}, 3.813574954009136*^9, {3.8135750383196*^9,
3.813575142498377*^9}, {3.813575241782772*^9, 3.8135753587179394`*^9}, {
3.8135754657328825`*^9, 3.8135754798747473`*^9}, {3.813575547927393*^9,
3.813575551135175*^9}, {3.813580222608288*^9, 3.8135802681037683`*^9}, {
3.8135958452110558`*^9, 3.813595872649067*^9}, {3.8135972269128623`*^9,
3.8135972473600926`*^9}, {3.8135973302340784`*^9, 3.813597351636512*^9}, {
3.81359743533184*^9, 3.8135974381023445`*^9}, {3.8135982000060143`*^9,
3.8135982027336736`*^9}, {3.8135983192365355`*^9, 3.813598345944539*^9}, {
3.813601248739311*^9, 3.8136012498615685`*^9}, {3.8136368165308275`*^9,
3.8136368167719493`*^9}, {3.813638582816622*^9, 3.813638583193612*^9}, {
3.8141212980965586`*^9, 3.814121298430565*^9}, {3.8141759251755457`*^9,
3.814175925750391*^9}, {3.8141815809417934`*^9, 3.8141815825827107`*^9}, {
3.8167558084157248`*^9, 3.8167558158533645`*^9}, {3.8167593544100494`*^9,
3.816759371951043*^9}},
CellLabel->"In[38]:=",ExpressionUUID->"c6f26f4f-f24b-4ef9-ab5c-5af3e538ae76"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`Fz$$ = 2000, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`Fz$$], 2000, 5000}}, Typeset`size$$ = {
720., {170., 177.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`Fz$2592$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`Fz$$ = 2000},
"ControllerVariables" :> {
Hold[$CellContext`Fz$$, $CellContext`Fz$2592$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :> Plot[{
ReplaceAll[
$CellContext`Ft[$CellContext`\[Sigma], $CellContext`Fz$$], \
$CellContext`param]}, {$CellContext`\[Sigma], 0, 0.6},
PlotRange -> {All, {0, 5000}}, AspectRatio -> 1/2.4, PlotLabel ->
"Magic Formula", ImageSize -> 600, LabelStyle -> Directive[Bold, 11],
Frame -> True, RotateLabel -> False,
PlotStyle -> {$CellContext`green, Thick}, FrameLabel -> {
HoldForm["\[Sigma]"],
HoldForm["Ft"]}, Filling -> Automatic, GridLines -> Automatic,
GridLinesStyle -> {{Gray, Dotted}, {Gray, Dotted}}],
"Specifications" :> {{$CellContext`Fz$$, 2000, 5000}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{777., {223., 230.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.813573769081154*^9, {3.813573977653474*^9, 3.813574024463025*^9},
3.8135743174681835`*^9, 3.813574349089897*^9, {3.8135743871719456`*^9,
3.8135744074857287`*^9}, 3.8135749204665422`*^9, {3.813575039440031*^9,
3.813575142862173*^9}, {3.813575244751068*^9, 3.8135752711589193`*^9}, {
3.8135753052970743`*^9, 3.813575309270878*^9}, {3.813575346261238*^9,
3.8135753597818737`*^9}, {3.8135754706699324`*^9, 3.8135754806156588`*^9},
3.8135755515750003`*^9, 3.813578759914338*^9, 3.813580057142977*^9, {
3.813580224033533*^9, 3.8135802689886446`*^9}, {3.813580554852276*^9,
3.8135805560670276`*^9}, {3.813582381411106*^9, 3.8135824080296817`*^9},
3.813595667432728*^9, 3.813595787554087*^9, 3.8135958501762996`*^9, {
3.8135972279028797`*^9, 3.8135972429199767`*^9}, {3.813597332716564*^9,
3.8135973526030607`*^9}, {3.8135974255310917`*^9, 3.8135974499126773`*^9},
3.8135976342022104`*^9, 3.813597704445159*^9, 3.8135979796066284`*^9, {
3.8135980758590326`*^9, 3.813598132159718*^9}, {3.813598203282935*^9,
3.8135982108996115`*^9}, {3.8135983224091077`*^9, 3.8135983464474435`*^9},
3.8136011692281466`*^9, 3.8136012503166933`*^9, 3.813601296753383*^9,
3.8136361206840944`*^9, 3.813636588181061*^9, 3.813636817530559*^9,
3.813638584019881*^9, 3.813641993284045*^9, 3.813642044031856*^9,
3.8136425045831275`*^9, 3.8136425370710726`*^9, 3.813683584592061*^9,
3.813685481478938*^9, 3.8141197344968634`*^9, 3.8141201863565316`*^9,
3.814120228697483*^9, 3.814120860906723*^9, 3.8141212992040167`*^9,
3.8141758975378256`*^9, 3.814175932295978*^9, 3.8141760016091537`*^9, {
3.81418158664178*^9, 3.8141815988868675`*^9}, 3.8141859058469687`*^9, {
3.814190568416994*^9, 3.8141905831531715`*^9}, 3.8141915393622446`*^9, {
3.814191839996148*^9, 3.8141918580232825`*^9}, 3.814192016357549*^9,
3.8141921440889316`*^9, 3.814192223494357*^9, 3.8141923443062987`*^9,
3.8141929741551523`*^9, 3.814193848179332*^9, 3.8141941138936*^9,
3.814194446356351*^9, 3.814246355965926*^9, 3.814246799739107*^9,