-
Notifications
You must be signed in to change notification settings - Fork 0
/
trave_SLE_deformazione.nb
2843 lines (2681 loc) · 132 KB
/
trave_SLE_deformazione.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 12.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 134527, 2835]
NotebookOptionsPosition[ 122380, 2613]
NotebookOutlinePosition[ 122783, 2629]
CellTagsIndexPosition[ 122740, 2626]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["SLE DEFORMAZIONE TRAVE", "Title",
CellChangeTimes->{{3.8037093652980413`*^9,
3.803709374839895*^9}},ExpressionUUID->"0a5f8883-24ec-4eea-a9ea-\
251d750c11c9"],
Cell[BoxData[{
RowBox[{
RowBox[{"b", ":=", "300"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"d", ":=", "460"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"d1", ":=", "40"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"d2", ":=", "40"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h", ":=",
RowBox[{"d", "+", "d1"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fck", ":=", "25"}], ";",
RowBox[{"gammac", ":=", "1.5"}], ";", " ",
RowBox[{"alphacc", ":=", ".85"}], ";", " ",
RowBox[{"fcd", ":=",
RowBox[{"alphacc", "*",
RowBox[{"fck", "/", "gammac"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fyk", ":=", "450"}], ";", " ",
RowBox[{"gammas", ":=", "1.15"}], ";", " ",
RowBox[{"fyd", ":=",
RowBox[{"fyk", "/", "gammas"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8048305824183717`*^9, 3.8048306929453554`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"85c5af88-f321-4da4-8f0e-6a83c65b570d"],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Posizione asse neutro x e momenti di inerzia", \
"Chapter"]], "Section",
CellChangeTimes->{
3.8037015357856197`*^9, {3.803704242750394*^9, 3.803704250537885*^9}, {
3.8048305773227415`*^9,
3.8048305789913254`*^9}},ExpressionUUID->"8f1662d3-98ba-4ec2-8adb-\
daf399db106b"],
Cell[BoxData[
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztnQdYFkfX92+7IgqiEDXWKNbYRWOJXRQFE0RUQuxYiFGJ2PVVwQZPHhPB
CokaFOxdNCqxEQvYFbuo0diwomA38v0/5s1+++3uvffu3lU8v+uSC2Znd8/s
nDllZnat2H9E10G5dTpdcEH86NpvbOuRI/uN93HEH77DgwMHDx8Y4DF81MDB
A0d+0T8PChPwLzaXTvd/f88iCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCCKn
s2TJkubNm586dcraghCEduLj4ydPnmxtKQhrIq8D7969c3Jy0ul0pCc5nnHj
xnXkMWjQoPfv34urJSUlde7c2dvbu2fPnn5+ft26dfPy8po3bx5XISMj4/nz
55K3uH//vrmklyU9Pd3FxaVSpUpWubvJQXPOnDlz9+5dVWdFRUWhp77++mt0
GfrO398f3efr64uuRPmUKVO0CYO+Vtitjx8/TklJefHihbYbGYlBHdi3b58u
GwhpScHUApt8/vz5hw8fajj3+++/79KlC3oc/Y7ehw5AE6AP0ApPT8/169dr
EyktLU1ht1pXBziuXr16+PDhpUuX6v5l27Zt4mowZXv37p00aRIq2Nvbjx07
dsuWLWgsVyEyMtLOzq5r167z58/fvHnzrl27oqOjUa1evXp4sBZs0P9j+PDh
kBZSWeXuJgQPs02bNnXr1h0wYADUtUmTJr///rvCc2/evJmcnLxnz55FixY5
ODjggeTOnXvmzJkJCQnwX1euXNEgD9K96tWr9+vXT6YOPCYUoEWLFt27d4cD
RZLo5ua2detWDbczBoM6EBwcjAoeHh6WlEoVsBJt27atVatW/fr18+XLV6pU
qYCAAFXxw7lz5zDGoUUTJkxgYxwXWbx4MUb0kSNH7t27p0Gq1atXQ51iYmJk
6tiIDghITExE2Obo6Giw311dXSWlnTNnjk4KXNYq9hwhUJ48eZgMT58+tbwA
JgHagtGKfkEixhXCfFWrVu3SpUtqrwY/jqeBczVIcvbsWYyO0NBQqG7+/Plx
nW+//VZGbAQSERERb9++5QphcitXrgx3qeHu2lCiA9BnHIUvsJhUqoiLi2vc
uPHRo0fZnwinkYhBYKjE9u3bNVyQjfEhQ4ZoOBdPaeHChQhg4OnYg/3111/1
VbYRHRADHYbfHzlyJOTPlSuXPncPsdFMyUOwdYULF8a5TLUQPNSuXXvt2rXm
lFqOli1bImhnwmgwCzZCYGAgniTyLK7kyZMnLDwLDw9XezWkLTjx888/1yBJ
bGwsosrZs2dfuHBh8ODB8rYuLCxszJgx4nKEKAULFtyxY4cGATRgUAfQFhxC
vGQZedTy119/obPEeStyUohdvHjxW7duqb1miRIlcC6uoEGeiRMnwkgiB0Qo
CI8pb+tsRAfEIEi+ePFiamoqM1ZBQUGS1RAJ9+3bV/IQbN306dPhd06ePAk3
pG/uzjLAG2Ikrly5kuk531Z8QGzYsAHC9+/fn1+IoA7WD+XIQxVe5927dydO
nIiMjPzss89wYrFixWbMmLF7927N4S4UXt7WlS9ffv/+/ZKHWrdurW2gqUWJ
DsBf4BDqWEAeDcC5wLy8evVKUA4Th2QWkvv5+Sm8FMYjMtZp06YVKFAAJyIj
njt3LhLY169fa5PNoK2zBR0Qg/ZiFLDfO3XqhCYgcsjMzBTXnDVr1m+//SZ5
EWbrzCilYjIyMtARd+7c4aadbVaZZUAIXbZsWQgPMyU4hHYhCFcyM4BORL7w
ySefDBs2DAlI586dcUFE5khI0V9I37p27Xr58mW1ssnbOjh9HF22bJnkUZhu
d3d3tXdUi0IdaNasGYYkP8myKWrWrAnJkR+JlwvZoSJFihi8CILDnj17opkY
vMePH2eLzrCiiFuQjZYqVQrRF5IFtbLJ2zpb0AFJDhw4wC0fbN++nekGRpO4
JiTEo5O8iO3YutGjRyPVwi9IW1hbfvrpJ2sLpZrVq1dDcmQcmq+AroQmlytX
DpkaKxHksLCWPj4+efPmDQ4O/ueff5RfWd7WPXjwAEfhPRGCio8iYZRMbUyL
Eh2AnIiQobfmFkYzzs7OTPhr164JDnl4eLBD6enpMleAfUPC2K5dOy6GF+Sw
N27cgNWCAVy+fLkq2eRtnS3ogCSwUZxlgwepXLmy5KzOmzdv4E30XUStrUMw
aQ5/inFdt25dduVnz54xfYDmm/xG5sbX15et7Gg7HelJoUKFcIXExESuUDxf
9/LlS0R9zNErv7jBHLZq1aqo4OLismbNGn75li1b7O3tb9++raYpqlGoA8hQ
HB0dEQGaVRhjgLkuXbp0QECAOK5r2LChwbgOWSqb1uOHbeL5OiQObJZeXxgm
icEcVq0OmMkgCGjfvv3Fixe5P+EBmXogwedXO3TokL7Juqx/bR0EXrJkCZ4k
htXw4cMRJ0tWPnbsGEIO9IKGBEoetIW/pla4cGH5UWmzMBM0ePBgRFwRERFI
NhFUN2/eHJ4aTkf+XIzfkiVLipdcJdcmpk6dyrqbv9Qrj0Fbt379et2/dOnS
hU2hHzx4EJ2ekJCg8C6aUagDeLbWXRDUDEYZrBwahRxcXx0MPbZUGhgYyC+X
XJto1aoVCvGglO8/MWjrVOmA+QwCHwwcwU5LeAE7OztIiASHXz5jxgx9k3VZ
2bYOoUiPHj02b96MgBkmeuPGjQ4ODpMnTxbnR6NGjWIPwbRpLx4vBOCXoGm4
S9u2bU14F8bz589TNSEZ1Qt4+PAhez5jx44NCgqKi4vjyqGWbm5u4qSGT0xM
DDtdoNKStg6Kxyp7eXkpbLtBW5eVHVSwrSmgaNGi8JKtW7c+e/aswltoRrkO
vM3GmHuZVQdk4BZcZNxTv379WJ1169bxyyVt3cSJE1lllvgrwaCty1KjA2Yy
CAIQrQl0AwwaNAj3hV/gdwrcpb7JuqzsvcS1a9cWTHLiUYgfbFa20ylQoADi
c9hzo1vwv0DxatSo8ffff/MLEQhBAJSb6i4cGOk6rZw7d07+4twsU4cOHRDI
8Q/dvXsX/tfV1VVmBY1t+daJ3nuStHXQPVYZ11TYdiW2Dhw9epRFp1xbrl+/
rvAW2shJOqAPRA4NGjTAFRDqy1RjrdaJtg5K2rp58+axygMHDlQohhJbl6VY
B8xhEMTMnDlz4cKFgsLTp08z2SZMmMBKEP7Jawui38ePHwsKcRZCRNhMXFBw
CLHfu3fvjJP9/wMDPCwsTFDIZr2cnJxMeCMGhH+oiWfPnhm8ODSEPf+CBQuK
J5+hMDiEMFvf6fA77HTB3iFJWwdnxyrLJEQClNi6tLS07t27e3p6Dh8+nG2S
0WVnSbGxsQrvooGcpAP6YHYJnSW/rQuWkD3zTZs28cslbR2MAKuMAE+hGEps
nSodMLlBEIOBw63T8WnRogUEc3Z2Ztt7kGjLTNbJwKYCxKGjaUFegKhSHOqw
V4SAeJOSLcP2uALE0uKjbIZNZokW0Tibq0HKwC+XtHXwdOxeP//8s0LxDNq6
lJSUcuXK/fjjj+zP5ORk9A7n3M30llAO0wFJTp06heABcZ388itYsWIFa3VI
SAi/XNLWYXiyyidPnlQoiUFbZxUdkOHt27f6Xotes2YNk4qtziCPlpmskwGG
HRepUqWKUYIaAr6jUKFCjiIQF7FWyGTfNsjt27eZ2JLLoxEREeyozHcAkL3q
shfXrl69yhVK2rpGjRrpsjdxKTcF8rYuIyOjYsWKP/zwA78QmoZkPG/evDix
QoUK5nhtMIfpgBikTnh08F9KNoEj1UVNtBp9wZ8wF9s6pGNsg7GqF8fkbZ21
dECGpKQkfREXBPv0008hlZubG/5s166djKpcu3YNA1DyNRxEg7rsV8Zevnxp
KrEFxMfH65u7gH1meq5vRdg2QXDCNsZLvsASFRXFGiWzpvn+/fsRI0bosufk
uScvtnXMbNapU+fOnTvKxZO3dRMmTChatKhkmrZnz55ixYrhXME+BOPJeTog
ANYD4RwiB+VvOiD2a9mypY43E5UlsnVIG1mO7+/vb3B9n4+8rbOKDsgTFhYm
nqzjCA0NZUqSmJgoP1lXvXp1ccDA+Oabb9hFzGTrEI3gvvrs8I4dO9jdN2zY
YNr7sj35GsCIk/xqloC6devqsveciA8tWLCANWr37t3yFzl06FDjxo1hymAK
oMl8W3f+/Pk+ffo4OzvPnz9f7XKkvK1r0qSJzLR5bGysztQfi8upOsCBvnN3
dx86dKhgS8Px48flDRTusnz58jJlynh7e6NyFs/W4VLQn6ZNm9aqVUvD26ny
ts7yOmAQDw8Pyck6BmJmtmSMdslP1rGlFuRB4kPsvaTy5csbL60kSK6nTp2q
7yi3yIIRra8OHCXUAAOBn+4ZBFaooCbg72SeOUdgYKBOzzdnuA2QN27cMHgd
aPv+/fvxlKB7pUqV0mWv/sPoBQcHw7FqeyVW3tbBa0uaaEZmZiaCfNPqufE6
oA1z6wADPdirV6+RI0eKD8GkKLGZyBY3b948evRoLy8vli9UqlQJCV1ISMjO
nTtVvTLDIW/rLK8D8sCbV65cWb4OF5XJT9Z16NABz01sKxAhFy9eHKcLMves
7PeXNXylQQDuiIBTJvFPS0tj8uvbNbp169b27dvHxcXt3bs3MjISyqCt603O
n3/+CbHhRMSHmBlE4Kf2msZ854SPvK2Dy8MY1Hfuo0ePcuXKJZiaRsyveTLN
eB2wccaOHTtu3DhxOfzUF198ofZqxnznhI+8rdOgA/fv30e5kVLpA6a+Y8eO
8nW4DQnyqghbIfmFWzZgixQpIphFR8xcoEABuBjuw1wawABp1KiR/LuuMFxs
LlRykv/69evwsNyeQJg7e3t7/isk1gXpp07qY0Q1a9aEquj7iIQMbB+C8TvN
2PZL+EHJo+gR9CzLmMRgdNSvX5+feT148IA5RJldNPowXgdsHPhfNze3lStX
ruKB4RYdHe3n56fhhSD27v93331npGBVqlTBdSCG5FG1OgCDgBQSp5j8k0QY
3WvXri1ZsiQanpKSIh8GQ6oKFSoYvCZCu9WrV/NL7ty5g7gRNk28vgxXxUxo
aGioBvkRkcKKQgeYs9Y3E/jq1att27axr1ShFbC3gpayHklOTmZ/JiUlIVOw
na9enDlzpnDhwu7u7vxQc9myZTrRiz8GQcNhM9k3nWDPjx07pjl8ReJcp04d
NrMhuS8U90IAiSxJ/BXExMRE5NGpqan8wnXr1jFlcHBwUP7wTaUDDG3zGOYG
T4bbliaJ8u96ZWU/sYSEBHZBPDfN725AczBS2NvWsLfiXbVZ6nWAfZFPZ8QL
4JL07t0b9gd65ezs7OjoCJmh/DJdDCeixAsgB8eVvb29V6xYgWhw8eLFaGnD
hg0l94dj3Lm6urZp00b+XSdJ0F92dnaIFZn8bPZDvOLj4+MDT4GmwZ6jJtqL
mjAd/E8k7dy5kz3hqlWrDhs2DD2oVhhzA8UoXbp0u3bt1q9fv2vXrtGjR6Ph
8PXKrwC3gueDJ4afeBQuLi4IorgSX19fhdeJjY1FfTxACMCug5/4HSV4tlFR
UfzKsDzjx49HhaCgIHjVAwcOxMTEoEcEb14z0tPTPT09of/16tVTMgOZZVId
yLLheQy2XinDxo0blVynadOmeFZ4YngC6H2u75gOREREKJRnyJAhnOaw60BC
+2xQcv78eX5lVToARwNPhITlyy+/VCiM1YG2YDzC6CFA2rJli+3ESPpYtGgR
ohSW48DlWXgdXAkZGRkwdDBZ/fv3Dw8PN/drVibk3r17S5cuheQDBw6cM2cO
wjD5+iNGjDDfjI0+bHwe40NHrQ58iJ/psH3S0tK4WUQEpatWrYKTsuX/YyXH
o/wruybExucxPirevHmDMMnaUuQ0kO/AfXfq1Ilf6O/vHxAQYC2RPnIQ0fXq
1cvy97X9eYyPh/j4+AULFlhbipzG5cuXnZycDhw4wJWwqXsN84eESUCGzv+s
qCWx/XmMj4FXr141adLElj+d+uESHh7u7e2Nn1FRUUOHDu3WrZtNrcF9VMCh
oy8sf1+ax7AdRo0apXyVhFDL69evU1NTU1JSJNfNCYsREhJi+S6geQzb4fnz
55MmTVL13hxBEAqheQyCID4SaB6DIIiPBJrHIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IKzIkiVLmjdvfurUKWsLQliTR48eJScnr1mzZu3atefPn3/37h3/6NGjR60l
mEJSU1N79uz5zz//WFsQwmrEx8dPnjxZ31GotJOTk06nk6lD5GBev369dOnS
9u3b582bt379+j169Bg4cGCjRo2qVasGu8fqbNu2rUaNGtwpsCcPHjyQvJq+
cgvg7u4ONf7777+tJYDJefHixc8//6y8/qFDhzw9Pb/++msfHx/04zfZdO/e
vWvXrl26dMFPbWI8f/78/v37Smq+fPkyJSUFTlPbjYwkPT3dxcWlUqVK+irs
27dPlw2EtKRgGrh27drNmzc1nBgVFeXl5QUd6NatG1y/v7+/n5+fr6+vt7c3
yqdMmaJNHuU68PjxYzxeqK62G5mPrVu3Qjfs7OwmTZp0/fp1/iH8CdMXHh6e
lJSECjCA3KEzZ87kzp37yy+/xFEEgbt3716+fHlISEiHDh0qV64Mhbd0M7Ky
NmzYwNT4yJEjlr+7mQgKCoIDUl7/yZMnCL/379+/cuXK2rVrswfSp08fuKqD
Bw+eOHFCgwxI96pXr96vXz/5ajAjbdu2/eqrrwIDA6EGOCUyMvLVq1ca7qiZ
4cOHo73QVX0VgoODUcHDw8OSUqkCbqJ37941a9Zs3Lixvb190aJFO3bsqCrj
hoVEdrZnz55FixY5ODigvRiqM2fOTEhIwEC+cuWKBqmU6MD79++jo6NbtGgB
3zpo0KDmzZu7ubnBvGi4nclBOIenikfRqlUrOBHJOjDOFSpUcHR0RLXY2Fiu
HG3XSQFDp+9SZgVyli9fnsmwefNmywtgDg4fPgwtVWXr+MyZM4c9kHv37qk9
9+zZs4sXLw4NDYXq5s+fHxf59ttvZerD5WEgwKFzJbdu3YJJadOmzZs3b7RI
rx743zx58rAmP336VLKOq6srjsIOWEYktZw+fRpWDskU7EZWdsa9atWqQoUK
oV3Tpk3TcEFEd2gvEjQN56rSAQiMxCEiIuLt27dcIUwuDAKCKA13NyEPHz6E
4YX8CHTltfHXX39l+sPPDWHrChQokC9fPs7Kffrpp1B4q0R0YPLkyUjQmCSI
4a0ig2lBRFSnTh00R7OtmzdvHnsg6Gu158KvDRgwYPbs2RcuXBg8eLC8niNi
hC6Jp0kzMzOrVq06fvx41aJromXLlkjTWJMvXbokroC24BBSFcvIoxZYiYYN
G8I+CMrXrVsHsXPlyrV9+3a118Toxrmff/65BnlU6UBYWNiYMWPE5UhmCxYs
uGPHDg0CmASMo2bNmrGITrAAISY9PR01P/vsM34hbF27du3QO1CqAwcOaBhN
JuTq1avoTWTcTM+nTp1qRWFMxcSJE9EQbbYODyQmJqZ169bsgSAR3rhx4507
d7RJMmTIEHk9R44cEhIieQjl2gaaWuLi4iAhMnfWZCTU4jrwxTiEOhaQRwPL
ly/HmHry5ImgHCETgj0WTihcd8OgPnHiRGRkJIYtTixWrNiMGTN2796tL9w1
iEEdQFa1f/9+yUPQw++//17bfY2nV69ekByxcWpqqpL6JUqUEKTqzNaZRzrV
eHl5xcfHQw1YCgMfZG2JjAWPt0ePHvCJqmwdBgVMXIUKFb766isYN2YqAdR+
xYoVyEQaNGjwxx9/qBXGoJ4jRerfv7/koWXLlsGts4zMfGRkZEAGGHNu6UHS
oMG/Y0jykyybYujQoZDc3t7+r7/+kjwEjh07Jn8RxNLIGT/55JNhw4YhVe/c
uTPOql69OhLSOXPmIIVH+nP58mW1ssnrwL1793AUfS15FLrh7u6u9o4mgZvD
R3Sq8JTatWv/9ttv/BLbsXXbtm2DrWO/lypVCu3q0qWLdUUyEgzGtm3b3r17
F/qp3NbBbSEDyp8//6ZNm1iJOIf9z3/+w2bmVcXhBm0dog7cV3ISbOTIkY0a
NVJ+L22MHj2aKTOyDNbkn376SVDnwYMHuXPnxng3tzCa8fX1ZcIvWbJEcIhF
pIDrXEmQ5GIIlCtXDlknKxHksC9evPDx8YFGBQcHq9qaJa8DeLYs9ZNcOK5f
v75kemtukL2ysBbPRLmDq1SpksDXqLV1r1+/Noc/RXPQj0jZ2J94qmiam5ub
yW9kSWbOnMk8i3Jb9+jRoypVqqByaGgoVyg5X4eQDyVwXs+fP1coj0FbxyZz
8uXLh4wVHc2V3759u0iRIlu2bFF4I21gXNetW5dp17Nnz1iTYf0E1fBIHR0d
EQGaVRhjgLOoWLFiq1at0tLSBIdGjRrF2nX8+HF9px85cgSZGuokJiZyheL5
upcvXyLqQ+GAAQOUy2ZQB6pWrYoKLi4u3C41BnofkSo0QVAfob65N6UsWrSI
PbSxY8cqP+vcuXOCEs7WwZXgUki4kOSuXbtWMltB4A3TWrx4cQ3BszwzZszg
7xdiEXuZMmVMexdLcvHiRS4uVW7rWMMRt/An5SRtHZflYfgoFMmgnl+7dq1o
0aLssojxDh8+jELEpRhisNsK76KZ9u3b80PKwoULS0oLg2z1BUHNsI2j8Cb6
7ANseMmSJXWiJVfJtQluciM+Pl6hAAZ1YP369bp/gQLfunUrK3vRCgM/ISFB
UBkuqUGDBlDs1atXKxRAAy1btmTycFGuNmDr6tWrh0x87ty50GqUnDx5skaN
Gkgn09PTBZU5rzR9+nRjbioAATNGFr/34aqYSph8gghhw/Xr11PVAzugPKBF
WtGhQwcuhFZo61CfPV6BSkvaOsRduXLlQqGDg4PCLMagnmdlm1A21pjJRWUo
s7kjuqzsIQY/yy9BDgIZ2rZtK6j5Nhtj7mUZHRADu8EmosXBKkdMTAx7+IJV
AElbB+PDKnOTPwZRogMwBWxrCoDv69u3b+vWraHD4pqwsaya+ebB4PShh7iF
q6urkZc6c+YMBotgbyrCPzQWCYVgbReOvkCBAqVLlzY4s6oKX19fwfQFHDd7
hgo3eCuH23ijgfnz5yu8S0REBAwU96dCW/fHH3+wG7Vo0YJfrm/PSYkSJVi5
OLOQRImeA2ReTZs25VqNnFpyMdSEIA2HexW8JsN2UvHf8TEVltEBMUFBQbhC
+fLlZRJwTvMF775J2jqmVzo1dkChDhw9epQlyAw4bsHrCQzEdUi+EIH/8ssv
CgVQC2fP/f39jbwUwgPJNVwYalyfP2AZT58+Nbi5RRUY4B07dhQUQqNYA2GK
TXgvxpMnTx6q5/HjxwqDTGgFdINfWaGtQ2NZq+Fl+OX6bB38DgoRKih8qUGJ
niNu+Z//+R8IMGPGDLZXX5e9JeyHH34w3+vJGOBhYWGCQjbD7+TkZI47mlsH
xCCBQk/BgEjuGOSIjIxkzxyGkV8uaesOHTrEKjdr1kyhGEp0AM6ue/funp6e
w4cPZzEVgEHjv4PAAQOSmZmp8O4aWLx4MRNA1SuWqmBTAUhnzHR9xps3bzCs
xLN/3BLzzp07zSqAOYCSXLx4kV+ifL6OzQzb29vzVxwkbR3bTwu++uorhYIZ
1HNYAGQrMDJsPgHhoo+PD+fclU8MqgKutnbt2vylEAZ7TQxY+PU0c4D4p1q1
arDbBn33zZs3WZ6LjuCXS9q6hQsXqrUDBnUgJSWlXLlyP/74I/szOTmZe0UR
WP5NMbblAAjWSmTAMFG153nBggXsFpp3rirhv//9b758+RxFYLCzuwt2yNg+
yI/EIYpyW4col3nSpUuXcoWStm7MmDHMKip/L9KgnsPKffHFFwLbsmnTJhcX
Fya/OV60h2soVKiQWAcKFizIWi3epfZhgTzIy8urbNmy4pVBSZC9slia25aQ
pcfWNWrUSJe9Fq/cHcjrAJLrihUrIobnFyLUnzVrFnofJ1aoUMHCnwLg4jrl
L5uEhISIt/QgIV20aJHkfioYGXNHVrCiNWrUkNwywc3S4yGb6e7mAIFQmzZt
xNPXqvbXxcXFYeyXKlXqxo0brERs6+BtUQdxwp9//qlcPHk937VrF45K7pmH
JMy5f/fdd8pvp4T4+Hh932zhNJAtB3+4DBo0qGbNmso/2oM0ecSIEbrsdRnu
VU2xrYuIiEBJnTp1VEUj8jowYcKEokWLIgoVH4KVKFasmKr4yiSg95kaYFwo
qY9UsUGDBmLjHxgYyMYgW4HlEx0dzW5hvjfg8MD1LVVDVHZ3JDL6TodKIPlF
tnvy5Enlq2PwXLAP+9SDsyR1gE9UVBQCrRIiuIkvrkT+OkhkvvnmG0RTSFJw
U76tu3//fmhoKC4I58t/Q18J8no+fvx4mckxxBj58+cXLJoYCdtUqS9sg+Kx
VqOLTXjTLDPrgADEGE2bNhX01PXr1w1+xuHQoUONGzeGKYM7wPjl27rz58/3
6dPH2dl5/vz5ateF5XWgSZMmMp8Li42N1Vn8g4H//PMPWor7KtzGjNEhmQz2
6NFDl721Q7zpEQk70zTJ9RfjgdoIZiQEMCeCrEry6MWLF+H1IiMjoYHoAnd3
d4WZzvLly+3s7AqqB2chnNbS1H+VRO37sFDpuXPn+vv7Q8NZXyAVQpCANJkL
+VQhr+fe3t5Vq1aVOR1Dz7S2bvr06TKvPJ8+fZq12pilT0kspgPoqZYtW4pX
XRG2ib8MIAbeHGE2nhLsD3uTCEEXjF5wcDCCK22vxMrrAAadzIuZmZmZuXPn
tvzHUZHcQeZKlSoZNOzwjwgSJNePcBEcksyD2Lb8evXqCcpvZaNZbMbr169x
ZfnJn+rVq0OA5s2biw+9e/cOR3///Xf254MHDypUqIBk3EipzIc2W8dhzHdO
+MjrOULoPHnyyLyFgTQWo4xfggxL82QaAsUaNWrITP7A/7JWf6A7hxGPdejQ
QfJ5wmuotVTGfOeEj7wOoIsR2uk799GjR7ly5RIsTxijAwqBktStWxdih4eH
y1TbtGmTp6envqlL6JuHh4fYDEJ+tjog2I8Ns8k+AGXkV9yHDRtm8F3XNm3a
MGMuPnTixAkcmjNnDpMcXTBw4EBb/ojxsmXLdNmbQ7Sdzu1DMHK3IWJCXATe
TfIo+hQSIpKUPHrlyhVHR0f+Jw3hYooXL44LzpgxQ60kULBGjRqJ33Xlg+SF
zYfLvAMFp3n8+HEkufxpfFsgKSmpfPnyS5cuXcVjxYoVKJk4cWLZsmXVXpB9
6Mz43YbyOoAewejW9/4awtT69evzPxxnjA6oAqMbbYelDQkJEfvH27dvBwQE
9O3bV/59yWnTpiGi5m+dQqDIgjp0iqDy2LFj2aDjv62pikuXLsGn4ArIOvV9
3xth27lz58qVK4dq+fPnv3DhgiB2ffLkCXthEIF9z549161bZ+7vbxgDHA1z
pvpm/uVBeMN9zA0JlOYNGEh72Wf0qlWrpm9eAoYOvowLmDmgS0hvBZPS7Gts
uuwXN5TPGqEm8gg3NzcWsOn7TCKauW3bNvZiCMbX3bt3xV2MAKN9+/ZxcXF7
9+6FO0CCbyP/Qcnly5e5bd6SqPpaCBqOUcNefkcEcuzYMc3NNKgDuBcCSAQY
4sX9xMREDDfBXlxtOqCNZ8+eIfWAfpYpU2b8+PExMTG4+5QpUxA1NW3aVOGy
Aow5dC86OhpKuHHjRgRUJUuWlHwtCM/c1dUVFTR8shgGCgpQuHBh/HRycrKz
s4MH2b17t6AaojU2MYIowsXFpVixYvgdDRTsat63b1+rVq3YK5MAgaJaeSwA
jEaRIkVYW5ydneEB2Z/IuA2ei4EM/UEDod54CHgUbI0DJbgItE6hDEifixYt
ys7CY8d18BO/owRXE38NdcmSJdAlKDwikIMHD65duxauEKmNWJfS09ORMkCS
evXqKZw/TEhIQPNxdzwNtqtEctXPx8cHPg4Nh6ioCTlREwLz3+7BUMW53Dfi
YO5QX7Ct0VpwvkkfeKRKroPQAm3EE8NP1ndQIa5E31S2GFU6AO/DVqmCgoLQ
+wcOHIBVQY/ArYgfrwYdMJKHDx+iOcHBwb1798aonz17tsKdPBxoBUI1BIFD
hw6FtovfhLUd0BfcznNEgHA3cFXQcxvx6TkAPGEoOZKF/v37T58+HVZXPpjE
yLX8f8HDsi1uhh8548iRI232i3YfHPfu3YOzg7EdOHAgwg+DW5usogM5nhYt
WsAl8S3bL7/8UrlyZSuK9JHj5+dn+Zvu3LmTxUhIruHfYessLwPBYRUdyPEg
w+JvQsjMzES2jjjEiiJ9zMCb9+rVyyq3XrRoEUJ6tn6RO3duC+9xJTisqAM5
mx07drRv337q1KnR0dETJ07s1KmT+LNahMVAnsv/pKRlSEtL43a/w9mtWrWq
WLFitvz/J+ZsrKIDHwnv37+/efPm6dOnFX7LiDAT8fHx3t7eFr7ps2fP7O3t
4eP4hf7+/gEBARaWhMiykg4QhIUJCQlR+56a8Vy+fNnJyenAgQNcCduSYZX/
zpiwig4QxEdCeHg4Ygn8jIqKGjp0aLdu3WxtLzFBEIRJYN+YTUlJoaCCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCICzJkiVLmjdvfurUKWsLQhDaiY+Pnzx5srWl
IKyJvA68e/fOyclJp9ORnuR4xo0b15HHoEGD3r9/L66WlJTUuXNnb2/vnj17
+vn5devWzcvLa968efoum56efubMmbt375pTdgNABhcXl0qVKllRBmPIyMh4
/vy55KH79+8rvEhUVBR66uuvv0aXoe/8/f3Rfb6+vuhKlE+ZMkWbbBBMoQyP
Hz9OSUl58eKFthsZiUEd2Ldvny4bCGlJwdQCm3z+/PmHDx9qOPf777/v0qUL
ehz9jt6HDkAToA/QCk9Pz/Xr12sTKS0tTWG3WlcHOK5evXr48OGlS5fq/mXb
tm3iahh3e/funTRpEirY29uPHTt2y5YtaKy45q5du9q0aVO3bt0BAwbg2TZp
0uT33383fzskGD58OKS1s7Ozyt2NJzIyEsJ37dp1/vz5mzdvxoONjo7Gk69X
rx50VeFFbt68mZycvGfPnkWLFjk4OOCB5M6de+bMmQkJCfBfV65c0SAY0r3q
1av369dPpg48JqRt0aJF9+7d4UCRJLq5uW3dulXD7YzBoA4EBwejgoeHhyWl
UgWsRNu2bWvVqlW/fv18+fKVKlUqICBAubMD586dwxiH/kyYMIGNcVxk8eLF
GNFHjhy5d++eBqlWr14NdYqJiZGpYyM6ICAxMRFhm6Ojo8F+d3V11SctmgbV
wkWQNXCFGGvVqlW7dOmSiSU2BKLKPHnysJ59+vSphe9uEubMmaOTAj2lzUXC
j+N0dIeGc8+ePYvRERoaCtXNnz8/rvPtt9/qqwxNQCARERHx9u1brhAmt3Ll
ynCXGu6uDSU6AH3GUfgCi0mliri4uMaNGx89epT9iXAaiRgExijbvn27hguy
MT5kyBAN5+IpLVy4EN4Wno492F9//VVfZRvRATHQYfj9kSNHQv5cuXLpc/cQ
G83Ud5HAwEDEDEgKuJInT56wWCI8PNz0QsvSsmVLBO1Mzy1vaU0CbF3hwoXR
HawVeLa1a9deu3at5gsibcF1Pv/8cw3nxsbGIlCfPXv2hQsXBg8eLG/rwsLC
xowZIy5HiFKwYMEdO3ZoEEADBnUAbcEhxEuWkUctf/31FzpLnLciJ4XYxYsX
v3XrltprlihRAufiChrkmThxIowkckCEgvCY8rbORnRADILkixcvpqamspEV
FBQkWQ2RcN++fSUPbdiwASf279+fX4igDiMU5UiaTC+0fuANMRJXrlzJ9Jxv
fj8gYOumT58OV37y5El4dn1zdwZ59+7diRMnkBF/9tlneBrFihWbMWPG7t27
NYe7UHh5W1e+fPn9+/dLHmrdurW2gaYWJToAF4xDqGMBeTQA5wLz8urVK0E5
TBySWUju5+en8FJQHmSs06ZNK1CgAE5ERjx37lwksK9fv9Ymm0FbZws6IAbt
xShgv3fq1AlNQDCWmZkprjlr1qzffvtNXI54r2zZsjgRY0pwCDqGiNGS05IZ
GRnoiDt37nDTzjarzPIwW2fMFdCJyBc++eSTYcOGIQFB8oungcgcCSkujvSt
a9euly9fVntZeVsHp4+jy5YtkzwKb+ju7q72jmpRqAPNmjXDkOQnWTZFzZo1
ITmCefFyITtUpEgRgxdBcNizZ080E4P3+PHjbNEZVhRxC7LRUqVKIfpC/qVW
NnlbZws6IMmBAwe4ue7t27cz3YCBEteEhHh04vLVq1fjFITH5hVUGaNHj0aq
hV+QtrC2/PTTT9YWSgtG2jp0JTS5XLlyyNRYiSCHhQPy8fHJmzdvcHDwP//8
o/zK8rbuwYMHOArviahefBQJo2RqY1qU6ADkRNKBh2xuYTTj7OzMhL927Zrg
kIeHBzuUnp4ucwXYNySM7dq142J4QQ5748YNWC0YwOXLl6uSTd7W2YIOSIIB
xVk2eJDKlStLzuq8efMG3kTyCr6+vmzOXPlNEUyaw59iXNetW5dd+dmzZ0wf
oPkmv5EFMMbWIT0pVKgQ2p6YmMgViufrXr58iaiPOXrlFzeYw1atWhUVXFxc
1qxZwy/fsmWLvb397du31TRFNQp1ABmKo6MjIkCzCmMMMNelS5cOCAgQx3UN
GzY0GNchS2XTevywTTxfh1yMzdLrC8MkMZjDqtUBMxkEAe3bt7948SL3Jzwg
Uw8k+Pxqhw4d0jdZx8bL4MGDER5EREQgM0IE2Lx5c7gVWEhx/WPHjiHkQC9o
SKDkQVv4a2qFCxeWH5W2DLN10IElS5ZAOWGphg8fjtTD4IkYvyVLlhQvuUqu
TUydOpV1N3/1XB6Dtm79+vW6f+nSpQubQj948CA6PSEhQeFdNKNQB6Cu1l0Q
1AxUAlYOjUIOrq8O9IQtlQYGBvLLJdcmWrVqhUI8KOX7TwzaOlU6YD6DwAe2
SLDTEl7Azs4OEiLB4ZfPmDFDcrLu4cOHrEVI/4OCguLi4rhyPEM3NzdxBD5q
1Ch2ipHzUQLweHv06MEvQdNwl7Zt25rwLoznz5+nakIyqpcEtg4BM1q0efNm
5CDwehs3bnRwcJg8ebJ8yhkTE8Mer0ClJW0dFI9V9vLyUiiYQVuXlR1UsK0p
oGjRovCSrVu3Pnv2rMJbaEa5DrzNxph7WUAHJOEWXGTcU79+/ViddevW8csl
bd3EiRNZZZb4K8GgrctSowNmMggCEK0JdAMMGjQI94Vf4HcK3KXkZB03JdKh
QwcEcvxDd+/ehbNwdXUVLPfA6RQoUADxOey5qRoCxatRo8bff//NL0RsCcFQ
bqq7cGCk67Ry7tw5JbeIjIysXbu2YN4Y2iXWVQFsy7dO9N6TpK2D7rHK6CaF
bVdi68DRo0dZwM+px/Xr1xXeQhs5TwfEwM01aNAAV0D2JFONtVon2jooaevm
zZvHKg8cOFChGEpsXZZiHTCHQRAzc+bMhQsXCgpPnz7NZJswYQIrQfinT1vQ
HFa5YMGC4plStA6HEBMKyhGovHv3zhQt+F8wwMPCwgSFbCLRycnJhDdiQPiH
mnj27JnCWyChePz4saAQHYGoG24IfaTvRBhJ1iOCvUOStg7OjlWWSYgEKLF1
aWlp3bt39/T0RN7N9h3psrOk2NhYhXfRQM7TATHMLqGz5PcgwRKyZ75p0yZ+
uaStgxFglRHgKRRDia1TpQMmNwhiYIu4dTo+LVq0gGDOzs5sew8SbX2TdWxD
JkDgJz7KpoPMvUSLvAAhkHizEHtFCIg3KX24sNkVcTTOgWiczdUgZeCXS9o6
eDr2iH7++WeFAhi0dSkpKeXKlfvxxx/Zn8nJyegdzrmb6S2hj0EHTp06BU+H
uE5++RWsWLGCtTokJIRfLmnroEus8smTJxVKYtDWWUUHZHj79q2+16LXrFnD
pGKrM8ijJSfrwO3bt1lNybW8iIgIdtSs3wGA7yhUqJCjCISa7O6S2fcHCnwl
WlSlShWZOsheddmLa1evXuUKJW1do0aNdNmbuJSbAnlbl5GRUbFixR9++IFf
CE2bNWtW3rx5cWKFChXMsd8yx+sA4nw8OvgvJZvAkeqiJlqNvuDP7optHXIH
tsFY1Ytj8rbOWjogQ1JSkr7wAIJ9+umnkMrNzQ1/tmvXTp+qwJOyXdySb1tE
RUUxTTPfAlx8fLy+uQvYZ3Z3JcuXNsW1a9fgJiTfbEKArct+Zezly5f6Tn//
/v2IESN02XPyXDWxrWOeqE6dOnfu3FEum7ytmzBhQtGiRSXTtD179hQrVgzn
CvYhGE+O1AE+sB4I5+DmlL/pgNivZcuWOt5MVJbI1iFtZDm+v7+/5JYJfcjb
OqvogDxhYWHiyTqO0NBQpiSJiYnyU7t169bVZe85ER9asGABu8ju3btNILEI
RCMYvPrs8I4dO9jdN2zYoO8KUJ7jx4+jAj8EMgjbk68BjDjJr2YJqF69ujgG
Y3zzzTesUTK2jnHo0KHGjRvDlMEUQJP5tu78+fN9+vRxdnaeP3++2uVIeVvX
pEkTmWnz2NhYnak/Fme8DmjD3DrAgb5zd3cfOnSoYP0deitvoHCX5cuXlylT
xtvbG5WzeLYOl8KQbNq0aa1atTS8nSpv6yyvAwbx8PCQnKxjIGZmS8Zol77J
OkZgYKBOzwdSuN16N27cMIHEIpBcT506Vd9RbpEFI1qywtatW9u3bx8XF7d3
797IyEgvLy+FbxDAsBfUBPydzDPnYKtXSC3Fh9irXuXLl1ciJ7R9//79eErQ
vVKlSumyV/9h9IKDg+FYtb0SK2/r4LUlvR4jMzMTEalp9dxIHdCMuXWAgR7s
1avXyJEjxYdgUpTYTGSLmzdvHj16NNSbpWCVKlVCQhcSErJz505Vr8xwyNs6
y+uAPPDmlStXlq/DhRD6JusYf/75J+pgeIoPMTOIwE9QfisbtTILQCSGgFMm
8U9LS2PyS+4avX79OrSO29QBc2dvb8/fVm1FOnToAFUUh5pIOooXL44WCSZD
lGDMd074yNs62GeMQX3nPnr0KFeuXIKpaQSomifTjNQB22fs2LHjxo0Tl8NP
ffHFF2qvZsx3TvjI2zoNOnD//n2UGymVPmDqO3bsKF+H25BgUBWRK+mkvpxT
s2ZNtEvwxQPEzAUKFICL4T7MpQEMkEaNGsm/6wqfxeZCJddNcC5kSE5OZn8m
JSXBe9rIm+AINSU/GszcSpEiRTSs9bB9CMbvNGPbL+EHJY+yp8oyJjEYHfXr
1+dnXg8ePGDWW7wxySDG6wBD2zyGBUCu4ebmtnLlylU8oBvR0dF+fn4aXghi
7/5/9913RgpWpUoVXAdiSB5VqwMwCEghcYrJP0mESGbt2rUlS5ZEw1NSUuTD
YEhVoUIFg9c8c+ZM4cKF3d3d+SHxsmXLdKK3VLKyXRUzoaGhoRrkhznCkIcO
MGetb9rq1atX27ZtY1+pQitgHAQtRQDPxKhateqwYcNg6zQIYz4Q2q1evZpf
cufOHYTicBNql+zRcLgh9k0nxK7Hjh3TlrlkZb8tXqdOHTazIbkvFPdCAIks
SfwVxMTEROTRqamp/MJ169axXnBwcFDuaEylA1lGzGOYGzwZbluaJKo+lYYn
lpCQwC6I56b53Q08HIwU9rY17K14C2iWeh1gX+TTqXyn3iC9e/fGYIFeOTs7
Ozo6QmYov4w7gw4o9AJoRenSpdu1a7d+/fpdu3aNHj0a4QeUR1wT487V1bVN
mzbi18cMgv6ys7PDlZn8bPZDvOLj4+MDT4GmwZ6jJtqLmrDGgq9OLVq0CCOX
+X2ogYXXhuTJzMxEZ3l7e69YsQIB9uLFi6E8DRs2VLXlHm4FzwdPDD/xKFxc
XBBEcSW+vr4KrxMbG4v6eIB48uw6+InfUYJnGxUVxa8MyzN+/HhUCAoKglc9
cOBATEwMekTw5jUjPT3d09MT+l+vXj2Fk7om1AFbnsdg65UybNy4Ucl1mjZt
imeFJ4YngN7n+o7pQEREhEJ5hgwZwmkOuw4ktM8GJefPn+dXVqUDiADhiZAD
fvnllwqFsToZGRkwdBhf/fv3Dw8PN/c7QcaQlpbGpYGwKkgN0HE2+P8OYPTB
a8DoIb/esmWLjaTYSrh3797SpUuhDAMHDpwzZw7CMPn6I0aMMN+MjT5seR4j
B6BWBz7Qz3TYMogB4Iw6derEL/T39w8ICLCWSITyr+yaEBufx/ioePPmDXy6
taXIaVy+fBnRNeJqroRNZ2nIqQmTgIiuV69eVrm1Lc9jfFTEx8cvWLDA2lLk
QJBie3t742dUVNTQoUO7detma2twHxX9+/fnf1bUMnwo8xgfA69evWrSpIkt
fzr1g+b169epqakpKSmSa0mExYBDh9+x8E1pHsOmGDVqlPJVEoL4QAkJCbG8
u6F5DNvh+fPnkyZNUvXeHEEQyqF5DIIgPhJoHoMgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgxPwflrRq
/w==
"], {{0, 56.1}, {126., 0}}, {0, 255},
ColorFunction->RGBColor,
ImageResolution->240],
BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->{166.5, Automatic},
ImageSizeRaw->{126., 56.1},
PlotRange->{{0, 126.}, {0, 56.1}}]], "Input",
CellChangeTimes->{3.8037095014746876`*^9},
CellLabel->"",ExpressionUUID->"22c03d75-71d6-48f4-b11a-a2c25be537b1"]
}, Open ]],
Cell[CellGroupData[{
Cell["Sezione fessurata", "Section",
CellChangeTimes->{{3.803701331705058*^9, 3.8037013350359116`*^9}, {
3.803701493802042*^9,
3.8037015077662196`*^9}},ExpressionUUID->"12c8c873-3cfa-4125-afec-\
e1136a904c66"],
Cell[BoxData[
RowBox[{
RowBox[{"n", ":=", "15"}], ";"}]], "Input",
CellChangeTimes->{{3.80370142335392*^9, 3.803701426742504*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"01e24cda-3053-4469-a56c-166242ab07d1"],
Cell[BoxData[
RowBox[{
RowBox[{"Snn", "[",
RowBox[{
"x_", ",", " ", "b_", ",", " ", "d_", ",", " ", "d2_", ",", " ", "As_",
",", " ", "A1s_"}], "]"}], ":=",
RowBox[{
RowBox[{"b", "*",
FractionBox[
SuperscriptBox["x", "2"], "2"]}], "+",
RowBox[{"n", "*", "A1s", "*",
RowBox[{"(",
RowBox[{"x", "-", "d2"}], ")"}]}], "-", " ",
RowBox[{"n", "*", "As", "*",
RowBox[{"(",
RowBox[{"d", "-", "x"}], ")"}]}]}]}]], "Input",
CellChangeTimes->{{3.8037013486766257`*^9, 3.8037014640280666`*^9}, {
3.803701633853797*^9, 3.803701634182008*^9}, {3.8037019834867086`*^9,
3.8037019846745625`*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"eba1bf97-f1aa-4bed-8631-1f56bf21ff50"],
Cell[BoxData[
RowBox[{
RowBox[{"Inn", "[",
RowBox[{
"x_", ",", " ", "b_", ",", " ", "d_", ",", " ", "d2_", ",", " ", "As_",
",", " ", "A1s_"}], "]"}], ":=",
RowBox[{
RowBox[{"b", "*",
FractionBox[
SuperscriptBox["x", "3"], "12"]}], "+",
RowBox[{"n", "*", "A1s", "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "d2"}], ")"}], "2"]}], "+",
RowBox[{"n", "*", "As", "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"d", "-", "x"}], ")"}], "2"]}]}]}]], "Input",
CellChangeTimes->{{3.8037019871393075`*^9, 3.80370205350566*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"e1a368b6-c424-45ff-8400-1a3ed571dda5"],
Cell[CellGroupData[{
Cell[TextData[StyleBox["N5", "Subsection"]], "Subsection",
CellChangeTimes->{{3.803701489935401*^9, 3.803701518469718*^9},
3.8037016364348*^9,
3.803701796408936*^9},ExpressionUUID->"10e7a86d-24ce-4cd2-871b-\
91652adec991"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Asn5", " ", "=", " ",
RowBox[{"6", "*", "\[Pi]", "*",
FractionBox[
SuperscriptBox["18", "2"], "4"]}]}], "\[IndentingNewLine]",
RowBox[{"A1sn5", " ", "=", " ",
RowBox[{"2", "*", "\[Pi]", "*",
FractionBox[
SuperscriptBox["18", "2"], "4"]}]}]}], "Input",
CellChangeTimes->{{3.8037015679905543`*^9, 3.803701578428969*^9}, {
3.80623298855372*^9, 3.806233028259676*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"d5654afd-422b-43a6-861c-ee73d9116ee4"],
Cell[BoxData[
RowBox[{"486", " ", "\[Pi]"}]], "Output",
CellChangeTimes->{3.80370157902762*^9, 3.803701638474955*^9,
3.8062330396526995`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"7545b10b-c038-46b5-8836-cc98794bad48"],
Cell[BoxData[
RowBox[{"162", " ", "\[Pi]"}]], "Output",
CellChangeTimes->{3.80370157902762*^9, 3.803701638474955*^9,
3.8062330396526995`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"c6f64438-ef4c-4664-962a-d6b83f09b17f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"g", ":=",
RowBox[{"(",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn", "[",
RowBox[{
"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ", "Asn5",
",", " ", "A1sn5"}], "]"}], "\[Equal]", "0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}], ")"}]}], ";", "g"}], "\[IndentingNewLine]",
RowBox[{" ",
RowBox[{
RowBox[{"xn5f", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xn5f"}]}]}], "Input",
CellChangeTimes->{{3.8037014729019156`*^9, 3.803701476545611*^9}, {
3.8037015411705036`*^9, 3.8037016249215*^9}, {3.80370167998057*^9,
3.803701702051613*^9}, {3.803701742573028*^9, 3.8037017782592125`*^9}, {
3.803702063285653*^9, 3.8037021171126223`*^9}, {3.8037021666180043`*^9,
3.8037021855501537`*^9}, 3.8037023391370854`*^9, {3.8037023794809895`*^9,
3.803702396577802*^9}, {3.8048298627131233`*^9, 3.8048298641270895`*^9}, {
3.8048307304556646`*^9, 3.8048307343578033`*^9}, {3.8062330460471854`*^9,
3.806233055639145*^9}, {3.806233104800703*^9, 3.806233111673925*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"7fa1dece-a0d8-4442-ae39-f69d174db904"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "185.66659145156046`"}], "}"}], "}"}]], "Output",
CellChangeTimes->{
3.803702397037257*^9, {3.804829867633216*^9, 3.8048298760618525`*^9},
3.8048307432417865`*^9, 3.806233112273451*^9},
CellLabel->"Out[20]=",ExpressionUUID->"e421b823-0c1b-4f58-b9c0-6dd29cddd886"],
Cell[BoxData["185.66659145156046`"], "Output",
CellChangeTimes->{
3.803702397037257*^9, {3.804829867633216*^9, 3.8048298760618525`*^9},
3.8048307432417865`*^9, 3.806233112273451*^9},
CellLabel->"Out[21]=",ExpressionUUID->"86441fae-5678-43a9-8aa9-a4b68f8e912f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IN5f", ":=",
RowBox[{"Inn", "[",
RowBox[{
"xn5f", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ", "Asn5",
",", " ", "A1sn5"}], "]"}]}], ";", " ", "IN5f"}]], "Input",
CellChangeTimes->{{3.803702058647175*^9, 3.8037020591632676`*^9}, {
3.803702250536721*^9, 3.803702286968111*^9}, {3.8037024046976223`*^9,
3.803702407741782*^9}, 3.804830752127469*^9, {3.8062331197089353`*^9,
3.8062331249766464`*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"59e6deec-e0e9-489a-b733-9f078afcfdd4"],
Cell[BoxData["2.0455866369490418`*^9"], "Output",
CellChangeTimes->{3.8037024085065556`*^9, 3.8048298796657133`*^9,
3.804830753151559*^9, 3.8062331260348644`*^9},
CellLabel->"Out[22]=",ExpressionUUID->"9680f9d9-f3a1-4e00-ad69-d881c518dfbf"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["C5", "Subsection",
CellChangeTimes->{{3.803701902184761*^9, 3.803701904262459*^9}, {
3.8037019554221764`*^9,
3.803701958678319*^9}},ExpressionUUID->"ba18f0e7-9b5d-475b-9770-\
8ebaedae0e34"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"g", ":=",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn", "[",
RowBox[{"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"324", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}]}], "]"}], "\[Equal]", "0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}]}], ";", "g"}], "\[IndentingNewLine]",
RowBox[{" ",
RowBox[{
RowBox[{"xc5f", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xc5f"}]}]}], "Input",
CellChangeTimes->{{3.8037019704217787`*^9, 3.8037019708909516`*^9}, {
3.8037023235816927`*^9, 3.8037023358089247`*^9}, {3.803702414815774*^9,
3.803702443386142*^9}, {3.803702501032484*^9, 3.8037025158592772`*^9}, {
3.8048299040201597`*^9, 3.8048299058611083`*^9}, 3.8048307579465413`*^9},
CellLabel->"In[61]:=",ExpressionUUID->"e09b93de-dbca-415a-8152-c330f6c3dbd8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "157.509574659208`"}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.8037025168559613`*^9, 3.8048299062385263`*^9,
3.8048307585779467`*^9, 3.8062335059046893`*^9},
CellLabel->"Out[61]=",ExpressionUUID->"b8c71485-10a7-4f6e-b675-9c641eb287f4"],
Cell[BoxData["157.509574659208`"], "Output",
CellChangeTimes->{3.8037025168559613`*^9, 3.8048299062385263`*^9,
3.8048307585779467`*^9, 3.8062335059046893`*^9},
CellLabel->"Out[62]=",ExpressionUUID->"7f0539d7-64a9-46e5-9ab3-8ef1cf889846"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IC5f", ":=",
RowBox[{"Inn", "[",
RowBox[{
"xc5f", ",", " ", "300", ",", " ", "460", ",", " ", "40", ",", " ",
RowBox[{"324", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}]}], "]"}]}], ";", " ", "IC5f"}]], "Input",
CellChangeTimes->{{3.803702706381138*^9, 3.8037027451515446`*^9}},
CellLabel->"In[63]:=",ExpressionUUID->"da0c64a0-5587-4949-bed9-ad9fac623755"],
Cell[BoxData["1.6001493036177764`*^9"], "Output",
CellChangeTimes->{3.803702745607283*^9, 3.80482990919594*^9,
3.804830763025878*^9, 3.8062335071470833`*^9},
CellLabel->"Out[63]=",ExpressionUUID->"7945f3cc-3133-485b-9521-6d6ecad9f02b"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["N6", "Subsection",
CellChangeTimes->{{3.803702539383456*^9,
3.8037025397428756`*^9}},ExpressionUUID->"14aa407a-0c02-44e6-8299-\
0678530732a2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"g", ":=",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn", "[",
RowBox[{"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"405", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}]}], "]"}], "\[Equal]", "0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}]}], ";", " ",
RowBox[{"xn6f", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xn6f"}]], "Input",
CellChangeTimes->{{3.8037025569426374`*^9, 3.8037025651710653`*^9},
3.8048307670660458`*^9},
CellLabel->"In[64]:=",ExpressionUUID->"db78a085-095a-4548-a054-a5822faa2c1d"],
Cell[BoxData["172.6533415705823`"], "Output",
CellChangeTimes->{3.8037025658372903`*^9, 3.804829917026291*^9,
3.8048307675518274`*^9, 3.806233512048518*^9},
CellLabel->"Out[64]=",ExpressionUUID->"15defef1-94bd-40b9-8dfd-154e9340ba7e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IN6f", ":=",
RowBox[{"Inn", "[",
RowBox[{"xn6f", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"405", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}]}], "]"}]}], ";", "IN6f"}]], "Input",
CellChangeTimes->{{3.8037028087457027`*^9, 3.803702824829729*^9},
3.8048307711781263`*^9},
CellLabel->"In[65]:=",ExpressionUUID->"e5957959-5bde-4b70-bb7f-e2d86e0a0c21"],
Cell[BoxData["1.8388290944007916`*^9"], "Output",
CellChangeTimes->{3.80370282526932*^9, 3.8048299180898705`*^9,
3.8048307715972805`*^9, 3.806233513009218*^9},
CellLabel->"Out[65]=",ExpressionUUID->"cd5710d7-9c22-4f20-a2fc-89c4964f383d"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Sezione non fessurata", "Section",
CellChangeTimes->{{3.803701331705058*^9, 3.8037013350359116`*^9}, {
3.803701493802042*^9, 3.8037015077662196`*^9}, {3.803702862435234*^9,
3.8037028629356694`*^9}},ExpressionUUID->"cf6aa83e-395c-42b9-a86e-\
0f7dcb78d0e7"],
Cell[BoxData[
RowBox[{
RowBox[{"n", ":=", "15"}], ";"}]], "Input",
CellChangeTimes->{{3.80370142335392*^9, 3.803701426742504*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"95401a1f-1204-4224-b490-714211de641e"],
Cell[BoxData[
RowBox[{
RowBox[{"Snn1", "[",
RowBox[{
"x_", ",", " ", "b_", ",", " ", "d_", ",", " ", "d2_", ",", " ", "As_",
",", " ", "A1s_", ",", " ", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"b", "*",
FractionBox[
SuperscriptBox["x", "2"], "2"]}], "+",
RowBox[{"n", "*", "A1s", "*",
RowBox[{"(",
RowBox[{"x", "-", "d2"}], ")"}]}], "-", " ",
RowBox[{"n", "*", "As", "*",
RowBox[{"(",
RowBox[{"d", "-", "x"}], ")"}]}], " ", "-", " ",
RowBox[{"b", "*",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"h", "-", "x"}], ")"}], "2"], "2"]}]}]}]], "Input",
CellChangeTimes->{{3.8037013486766257`*^9, 3.8037014640280666`*^9}, {
3.803701633853797*^9, 3.803701634182008*^9}, {3.8037019834867086`*^9,
3.8037019846745625`*^9}, {3.803702865450966*^9, 3.8037028879688416`*^9}, {
3.8037029256810684`*^9, 3.8037029264094915`*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"41f10a02-79df-4267-b461-5526b66a4a9e"],
Cell[BoxData[
RowBox[{
RowBox[{"Inn1", "[",
RowBox[{
"x_", ",", " ", "b_", ",", " ", "d_", ",", " ", "d2_", ",", " ", "As_",
",", " ", "A1s_", ",", " ", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"b", "*",
FractionBox[
SuperscriptBox["x", "3"], "12"]}], "+",
RowBox[{"n", "*", "A1s", "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "d2"}], ")"}], "2"]}], "+",
RowBox[{"n", "*", "As", "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"d", "-", "x"}], ")"}], "2"]}], " ", "+", " ",
RowBox[{"b", "*",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"h", "-", "x"}], ")"}], "3"], "12"]}]}]}]], "Input",
CellChangeTimes->{{3.8037019871393075`*^9, 3.80370205350566*^9}, {
3.8037028691335573`*^9, 3.803702931495372*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"40133f4c-6e88-4f24-857b-a6861b398b1d"],
Cell[CellGroupData[{
Cell[TextData[StyleBox["N5", "Subsection"]], "Subsection",
CellChangeTimes->{{3.803701489935401*^9, 3.803701518469718*^9},
3.8037016364348*^9,
3.803701796408936*^9},ExpressionUUID->"ba93dec1-13bb-4cbc-b962-\
76d1b12e722f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"6", "*", "\[Pi]", "*",
FractionBox[
SuperscriptBox["18", "2"], "4"]}]], "Input",
CellChangeTimes->{{3.8037015679905543`*^9, 3.803701578428969*^9}},
CellLabel->
"In[100]:=",ExpressionUUID->"4e328270-f9bd-46a3-a968-2b535ee66143"],
Cell[BoxData[
RowBox[{"486", " ", "\[Pi]"}]], "Output",
CellChangeTimes->{3.80370157902762*^9, 3.803701638474955*^9},
CellLabel->
"Out[100]=",ExpressionUUID->"2ae867c2-b8b2-432e-95b9-a677a0082b61"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"g", ":=",
RowBox[{"(",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn1", "[",
RowBox[{"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"486", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}], "\[Equal]",
"0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}], ")"}]}], ";", " ",
RowBox[{"xn5n", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xn5n"}]], "Input",
CellChangeTimes->{{3.8037014729019156`*^9, 3.803701476545611*^9}, {
3.8037015411705036`*^9, 3.8037016249215*^9}, {3.80370167998057*^9,
3.803701702051613*^9}, {3.803701742573028*^9, 3.8037017782592125`*^9}, {
3.803702063285653*^9, 3.8037021171126223`*^9}, {3.8037021666180043`*^9,
3.8037021855501537`*^9}, 3.8037023391370854`*^9, {3.8037023794809895`*^9,
3.803702396577802*^9}, {3.803702949141182*^9, 3.8037029598819575`*^9}, {
3.8048307773550854`*^9, 3.8048307801092205`*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"d7c19f02-dd24-4552-b47c-b7ee636e9289"],
Cell[BoxData["267.7599175729334`"], "Output",
CellChangeTimes->{3.804830793255115*^9, 3.806233187364221*^9},
CellLabel->"Out[25]=",ExpressionUUID->"18c3eb75-5673-46e9-8040-556ea99a281b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IN5n", ":=",
RowBox[{"Inn1", "[",
RowBox[{"xn5n", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"486", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}]}], ";", " ",
"IN5n"}]], "Input",
CellChangeTimes->{{3.803702058647175*^9, 3.8037020591632676`*^9}, {
3.803702250536721*^9, 3.803702286968111*^9}, {3.8037024046976223`*^9,
3.803702407741782*^9}, {3.8037029679421773`*^9, 3.8037029777696915`*^9}, {
3.804830783535329*^9, 3.804830786072017*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"a75d0963-d33b-4756-b5c8-d4902dbba326"],
Cell[BoxData["2.035472031761423`*^9"], "Output",
CellChangeTimes->{
3.8037024085065556`*^9, 3.803702978063265*^9, 3.804829934739587*^9, {
3.804830787203657*^9, 3.8048307993096595`*^9}, 3.806233188850492*^9},
CellLabel->"Out[26]=",ExpressionUUID->"81291433-dd7a-4be6-b09c-f31c970e0fce"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["C5", "Subsection",
CellChangeTimes->{{3.803701902184761*^9, 3.803701904262459*^9}, {
3.8037019554221764`*^9,
3.803701958678319*^9}},ExpressionUUID->"bd403827-a154-4538-b522-\
01afcf9f21d3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"g", ":=",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn1", "[",
RowBox[{"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"324", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}], "\[Equal]",
"0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}]}], ";", " ",
RowBox[{"xc5n", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xc5n"}]], "Input",
CellChangeTimes->{{3.8037019704217787`*^9, 3.8037019708909516`*^9}, {
3.8037023235816927`*^9, 3.8037023358089247`*^9}, {3.803702414815774*^9,
3.803702443386142*^9}, {3.803702501032484*^9, 3.8037025158592772`*^9}, {
3.8037029939888988`*^9, 3.8037030013761826`*^9}, {3.804830803922965*^9,
3.804830806301597*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"4f774a0d-2565-4a20-aeae-a7d9f1168eb1"],
Cell[BoxData["259.27203143906536`"], "Output",
CellChangeTimes->{3.8037025168559613`*^9, 3.803703001906605*^9,
3.804830002100741*^9, 3.8048308069247828`*^9, 3.80623337335287*^9},
CellLabel->"Out[29]=",ExpressionUUID->"01a78cb4-7b7c-4cce-abfd-331ca9beddc0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IC5n", ":=",
RowBox[{"Inn1", "[",
RowBox[{"xc5n", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"324", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}]}], ";", " ",
"IC5n"}]], "Input",
CellChangeTimes->{{3.803702706381138*^9, 3.8037027451515446`*^9}, {
3.803703007225956*^9, 3.80370301902719*^9}, {3.804830811416361*^9,
3.804830813252184*^9}},
CellLabel->"In[30]:=",ExpressionUUID->"818a3932-6c46-40d1-95fe-dfb3bf68aca5"],
Cell[BoxData["1.766701290752945`*^9"], "Output",
CellChangeTimes->{3.803702745607283*^9, 3.8037030194107265`*^9,
3.8048300036858673`*^9, 3.804830813771*^9, 3.8062333743675704`*^9},
CellLabel->"Out[30]=",ExpressionUUID->"853b2374-5583-40cb-bae5-ad64043912e7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["N6", "Subsection",
CellChangeTimes->{{3.803702539383456*^9,
3.8037025397428756`*^9}},ExpressionUUID->"757f0c68-18e9-4c65-b27d-\
1c5772ee9fb3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"g", ":=",
RowBox[{"N", "[",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Snn1", "[",
RowBox[{"x", ",", " ", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"405", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}], "\[Equal]",
"0"}], " ", "&&",
RowBox[{"x", ">", "0"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}],
"]"}]}], ";", " ",
RowBox[{"xn6n", ":=",
RowBox[{"x", "/.",
RowBox[{"g", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";", " ", "xn6n"}]], "Input",
CellChangeTimes->{{3.8037025569426374`*^9, 3.8037025651710653`*^9}, {
3.8037030332932167`*^9, 3.803703042237435*^9}, {3.8048308180908966`*^9,
3.8048308201847925`*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"d80aa4df-54c0-480f-b2e4-c0ce362c9243"],
Cell[BoxData["263.60764125962015`"], "Output",
CellChangeTimes->{3.8037025658372903`*^9, 3.8037030425535464`*^9,
3.8048300054205093`*^9, 3.8048308210866313`*^9, 3.806233379801138*^9},
CellLabel->"Out[31]=",ExpressionUUID->"a6b478d2-01a0-4009-bcce-26514d1d918f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"IN6n", ":=",
RowBox[{"Inn1", "[",
RowBox[{"xn6n", ",", "b", ",", " ", "d", ",", " ", "d1", ",", " ",
RowBox[{"405", "*", "\[Pi]"}], ",", " ",
RowBox[{"162", "*", "\[Pi]"}], ",", " ", "h"}], "]"}]}], ";",
"IN6n"}]], "Input",
CellChangeTimes->{{3.8037028087457027`*^9, 3.803702824829729*^9}, {
3.803703047302823*^9, 3.803703060344689*^9}, {3.8048308270203586`*^9,
3.8048308290339355`*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"344ce8c6-ee8a-4110-9eba-54e687030497"],
Cell[BoxData["1.9060146068578115`*^9"], "Output",
CellChangeTimes->{3.8037030608234005`*^9, 3.804830006368645*^9,
3.80483082962827*^9, 3.8062333823759007`*^9},
CellLabel->"Out[32]=",ExpressionUUID->"4bf80c09-ad3c-43ec-aa21-395090c7ef9b"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Momenti di prima fessurazione\n",
Cell[BoxData[
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztvVd0HFea56k1D/u4z/uw5+zbdp+Z3XOmu6r3nD5bfaY0D1PVD1NVu6V5
2Jaqq3q7y0ozrZpdSVXqLRmSqpKhaESJ3okgvCG894Q3BA3ovQdFiVYkQQDf
xhdQJAOBiHTIzBsZ+fud8yOIyERmAHkj7j9vfnHv//Sz//Sjf/qvn3vuud/+
d9Y/P/rpa//21Vd/+sb/8d9b3/z4ld/+8uev/OP//b1X/ss//vwfX/3ffvbf
WBt7/6vnnmu37v/fWv8XAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMg5739aLH/+
Nz+Ri1dumN6VrFNIv2tU0NfL8T//fxt5DQEAAPKM/dXtS/pzp0/PFpoR9Dle
+Ke3YtsKKT+s5Hf9zg9fsX8WEqPtS/9eXpz2rq9DMuhjeI+HlbyGQfulZPvY
cxPvd6CdAQBAVNF+OBd9HHmXvJsLMpF3+4YP2/fVr27IuwAAAPlJrvKuH+Rd
yDTxcmWyONnY+1pFPe8CAABElaC86/TPzriso7vPdm4L6qu947ne+/r1vUG5
QH/Ou5/O43lrM+J9Du2MYTn69fvO+F6i+8XD+/PO83ofx6+uxEuyGc7Zb31M
53V1dMYqk/n9/fZfHzMbz+VtX4nGVeM9pnc/3Pdx7288nOfye02CsmKi3yHe
fvlt977WTtt3dB9T3tfCe1/37xv0uzn3ycR7BQAAgDASL+/69b3ePOmXQxW/
MbJs5F3vYzp9v/tza3c/75eP3Dj3decVv21BBL0HcPbf/fzONvfj+t0v1bwb
9JhB2/0ew/33i7dtJc/lV2PgbAvKaYn+LkF/q2TzrnsfkqlnSPZ3SHd816/G
QLe5H8v9Wvj93dz7G298l7wLAABRJdH4rhdvbvHLQs7Pe8ehspF3/XKC976J
xuXc+x70mMlmgaD7efchXv7yXiuVzvium6D85rd9pfufynPFe/3c+xD0+qWy
/9nKu8n+Dunk3UTt1vldgn43v/ZN3gUAgEJkpXnX775B/W+u8q43ryS6RsfJ
5fEyUbJ1j8lml0S5w/1eYaV5N5XtQfvvve9KnyuZv7X3+7Dl3VR+h3TybqKf
cXIseRcAACA+mci73nzgHdtyCHveDco57seIV9Pgly+CfldvnaXXZMcG3aw0
g8bbf+84/kqfy69u2Wui9wam824qv0M6eddbq+zV+RnyLgAAQHwykXcVd/8b
lJlylXdTGUtNJjckegyHVPKud/wvHlEe302mJjqseTeV3yHd8V1vTZAf5F0A
AID4ZCrvOv1ostnS/TOZzrvexwjap1TyXrJZwD1e7CaVz8LTfe5M5N2V1u9m
Ilsnem4Hv1wa9NlCrut3vQTtl+K3tkXQ8/mRSt4NmmtNIe8CAEBUyVTedc+t
FG9+skR5NyjDOI/tfTxvtkxlfoV4P+93nXsy43h+1+a7P/dOND+Dc/9MXq+W
ynZnW6I5LzLxXEFrQDjzjjmkkneDsmou52fw+x3i1coEHVNK0BoQzjx88X43
v7wb7zMI8i4AAESNROsJp5p3nZ+JlwuTybvu7Y7ueUW9j+dX4xj0eN77BuXy