initial commit

2010-04-17 12:00:00 -05:00
commit 0da2092d89
460 changed files with 10528 additions and 0 deletions
--- a/code/strut/Func1.m
+++ b/code/strut/Func1.m
@@ -0,0 +1,10 @@
+ function F = Func1(theta,P,yrqd);
+ 
+ % Derivative of function 1
+ 
+ F=ppval(P,theta)*sin(theta)-yrqd;
+ if theta < 0
+    F=-theta^2+pi*theta-yrqd;
+ elseif theta > pi
+    F=-theta^2+pi*theta-yrqd;
+ end;