initial commit

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