function []=shuju()
L=2;
numb=L*1000;
L=L*1000;
Chord=2.5;
Chord=Chord*1000;
Twist=8.17;
a=deg2rad(Twist);
Pianyi=0.4939;
trans=[cos(a) -sin(a)
sin(a) cos(a)];
PreBend=0;
PreBend=PreBend*1000;
P(:,3:4)=[1 0
0.995 -0.0306023
0.99 -0.0579566
0.985 -0.0830203
0.98 -0.1059214
0.975 -0.1267879
0.97 -0.1457476
0.965 -0.1629287
0.96 -0.178459
0.955 -0.1924665
0.95 -0.2050793
0.945 -0.2164251
0.94 -0.2266322
0.935 -0.2358283
0.93 -0.2441414
0.925 -0.2516997
0.92 -0.2586309
0.915 -0.2650631
0.91 -0.2711242
0.905 -0.2769422
0.9 -0.2826451
0.895 -0.2883363
0.89 -0.2940209
0.885 -0.2996795
0.88 -0.3052925
0.875 -0.3108406
0.87 -0.3163042
0.865 -0.3216641
0.86 -0.3269006
0.855 -0.3319944
0.85 -0.3369259
0.845 -0.3416809
0.84 -0.3462649
0.835 -0.3506887
0.83 -0.354963
0.825 -0.3590984
0.82 -0.3631058
0.815 -0.3669958
0.81 -0.3707791
0.805 -0.3744665
0.8 -0.3780686
0.795 -0.3815944
0.79 -0.3850455
0.785 -0.3884219
0.78 -0.3917235
0.775 -0.39495
0.77 -0.3981016
0.765 -0.4011779
0.76 -0.404179
0.755 -0.4071047
0.75 -0.4099549
0.745 -0.4127299
0.74 -0.4154309
0.735 -0.4180595
0.73 -0.4206175
0.725 -0.4231065
0.72 -0.425528
0.715 -0.4278838
0.71 -0.4301754
0.705 -0.4324045
0.7 -0.4345727
0.695 -0.4366815
0.69 -0.4387316
0.685 -0.4407235
0.68 -0.4426576
0.675 -0.4445345
0.67 -0.4463547
0.665 -0.4481188
0.66 -0.4498271
0.655 -0.4514802
0.65 -0.4530786
0.645 -0.4546229
0.64 -0.4561133
0.635 -0.4575504
0.63 -0.4589345
0.625 -0.460266
0.62 -0.4615454
0.615 -0.462773
0.61 -0.4639492
0.605 -0.4650744
0.6 -0.466149
0.595 -0.4671735
0.59 -0.468148
0.585 -0.4690726
0.58 -0.4699477
0.575 -0.4707733
0.57 -0.4715497
0.565 -0.472277
0.56 -0.4729555
0.555 -0.4735853
0.55 -0.4741666
0.545 -0.4746996
0.54 -0.4751843
0.535 -0.4756209
0.53 -0.4760094
0.525 -0.47635
0.52 -0.4766425
0.515 -0.4768873
0.51 -0.4770842
0.505 -0.4772335
0.5 -0.4773351
0.495 -0.4773892
0.49 -0.4773955
0.485 -0.477354
0.48 -0.4772645
0.475 -0.4771269
0.47 -0.476941
0.465 -0.4767066
0.46 -0.4764236
0.455 -0.4760919
0.45 -0.4757112
0.445 -0.4752816
0.44 -0.4748026
0.435 -0.4742742
0.43 -0.4736961
0.425 -0.473068
0.42 -0.4723899
0.415 -0.4716614
0.41 -0.4708823
0.405 -0.4700524
0.4 -0.4691715
0.395 -0.4682394
0.39 -0.4672556
0.385 -0.4662197
0.38 -0.4651312
0.375 -0.4639898
0.37 -0.462795
0.365 -0.4615463
0.36 -0.4602433
0.355 -0.4588855
0.35 -0.4574726
0.345 -0.4560039
0.34 -0.454479
0.335 -0.4528969
0.33 -0.451257
0.325 -0.4495586
0.32 -0.447801
0.315 -0.4459833
0.31 -0.4441049
0.305 -0.4421651
0.3 -0.440163
0.295 -0.438098
0.29 -0.435969
0.285 -0.4337748
0.28 -0.4315143
0.275 -0.4291864
0.27 -0.42679
0.265 -0.424324
0.26 -0.4217871
0.255 -0.4191784
0.25 -0.4164967
0.245 -0.4137407
0.24 -0.4109086
0.235 -0.4079984
0.23 -0.4050082
0.225 -0.4019359
0.22 -0.3987798
0.215 -0.3955376
0.21 -0.3922076
0.205 -0.3887878
0.2 -0.385276
0.195 -0.3816702
0.19 -0.3779668
0.185 -0.3741618
0.18 -0.3702515
0.175 -0.3662321
0.17 -0.3620996
0.165 -0.3578502
0.16 -0.3534801
0.155 -0.3489854
0.15 -0.3443624
0.145 -0.3396064
0.14 -0.334711
0.135 -0.3296689
0.13 -0.3244729
0.125 -0.3191157
0.12 -0.3135902
0.115 -0.307889
0.11 -0.3020051
0.105 -0.2959311
0.1 -0.2896598
0.095 -0.283179
0.09 -0.2764556
0.085 -0.2694517
0.08 -0.2621292
0.075 -0.2544501
0.07 -0.2463864
0.065 -0.2379503
0.06 -0.2291639
0.055 -0.2200496
0.05 -0.2106296
0.045 -0.2008554
0.04 -0.1903968
0.035 -0.1788527
0.03 -0.1658222
0.025 -0.1509043
0.02 -0.1339976
0.015 -0.1161984
0.01 -0.0983315
0.005 -0.0680828
0 0
0.005 0.0687147
0.01 0.098985
0.015 0.1167634
0.02 0.1345803
0.025 0.1515437
0.03 0.1664928
0.035 0.1795248
0.04 0.1910513
0.045 0.2014838
0.05 0.211234
0.055 0.2206407
0.06 0.2297516
0.065 0.2385415
0.07 0.2469852
0.075 0.2550575
0.08 0.2627439
0.085 0.2700724
0.09 0.2770814
0.095 0.2838095
0.1 0.2902951
0.105 0.2965717
0.11 0.3026517
0.115 0.308542
0.12 0.31425
0.125 0.3197828
0.13 0.3251474
0.135 0.3303512
0.14 0.3354012
0.145 0.3403046
0.15 0.3450686
0.155 0.3496998
0.16 0.3542025
0.165 0.3585807
0.17 0.3628382
0.175 0.3669788
0.18 0.3710065
0.185 0.3749251
0.19 0.3787385
0.195 0.3824504
0.2 0.3860649
0.205 0.3895854
0.21 0.3930141
0.215 0.3963529
0.22 0.3996036
0.225 0.4027681
0.23 0.4058482
0.235 0.4088458
0.24 0.4117627
0.245 0.4146008
0.25 0.417362
0.255 0.420048
0.26 0.42266
0.265 0.4251992
0.27 0.4276668
0.275 0.4300639
0.28 0.4323917
0.285 0.4346514
0.29 0.436844
0.295 0.4389708
0.3 0.4410329
0.305 0.4430314
0.31 0.444967
0.315 0.4468405
0.32 0.4486525
0.325 0.4504038
0.33 0.4520951
0.335 0.453727
0.34 0.4553003
0.345 0.4568157
0.35 0.4582738
0.355 0.4596753
0.36 0.4610207
0.365 0.4623103
0.37 0.4635447
0.375 0.4647242
0.38 0.4658493
0.385 0.4669203
0.39 0.4679377
0.395 0.4689018
0.4 0.4698132
0.405 0.4706721
0.41 0.4714789
0.415 0.4722338
0.42 0.472937
0.425 0.4735887
0.43 0.4741891
0.435 0.4747385
0.44 0.4752371
0.445 0.4756852
0.45 0.4760829
0.455 0.4764304
0.46 0.476728
0.465 0.4769757
0.47 0.4771736
0.475 0.4773218
0.48 0.4774205
0.485 0.4774698
0.49 0.4774697
0.495 0.4774205
0.5 0.4773221
0.505 0.4771748
0.51 0.4769785
0.515 0.4767333
0.52 0.4764392
0.525 0.4760962
0.53 0.4757043
0.535 0.4752636
0.54 0.4747741
0.545 0.4742359
0.55 0.4736488
0.555 0.473013
0.56 0.4723283
0.565 0.4715946
0.57 0.4708116
0.575 0.4699794
0.58 0.4690976
0.585 0.4681662
0.59 0.4671851
0.595 0.4661539
0.6 0.4650727
0.605 0.4639412
0.61 0.4627591
0.615 0.461526
0.62 0.4602414
0.625 0.458905
0.63 0.4575164
0.635 0.4560752
0.64 0.4545811
0.645 0.4530335
0.65 0.4514321
0.655 0.4497766
0.66 0.4480665
0.665 0.4463015
0.67 0.4444814
0.675 0.4426056
0.68 0.4406739
0.685 0.4386858
0.69 0.4366412
0.695 0.4345395
0.7 0.4323805
0.705 0.4301636
0.71 0.4278875
0.715 0.4255508
0.72 0.4231519
0.725 0.4206895
0.73 0.4181619
0.735 0.4155678
0.74 0.4129057
0.745 0.4101741
0.75 0.4073715
0.755 0.4044967
0.76 0.4015494
0.765 0.3985297
0.77 0.3954374
0.775 0.3922725
0.78 0.3890351
0.785 0.3857252
0.79 0.3823426
0.795 0.3788873
0.8 0.3753595
0.805 0.3717571
0.81 0.3680712
0.815 0.3642911
0.82 0.3604058
0.825 0.3564045
0.83 0.3522765
0.835 0.3480109
0.84 0.3435969
0.845 0.3390237
0.85 0.3342805
0.855 0.3293616
0.86 0.3242818
0.865 0.3190613
0.87 0.31372
0.875 0.308278
0.88 0.3027554
0.885 0.297172
0.89 0.2915481
0.895 0.2859035
0.9 0.2802584
0.905 0.2746082
0.91 0.2688501
0.915 0.262857
0.92 0.2565014
0.925 0.2496562
0.93 0.2421939
0.935 0.2339874
0.94 0.2249093
0.945 0.2148324
0.95 0.2036293
0.955 0.1911727
0.96 0.1773355
0.965 0.1619902
0.97 0.1450095
0.975 0.1262663
0.98 0.1056332
0.985 0.0829829
0.99 0.0581881
0.995 0.0311215
1 0];
for i=1:401
p=P(i,3:4);
p=p-[Pianyi 0];
p=p';
p=trans*p;
p=p';
newP(i,3:4)=p;
end
newP=newP*Chord;
newP(:,2)=-L;
newP(:,4)=newP(:,4)+PreBend;
for i=1:401
newP(i,1)=numb;
numb=numb+1;
end
newP