reorganize file structure

2010-04-17 12:00:00 -05:00
parent 0da2092d89
commit 5bacd30bad
515 changed files with 2257 additions and 37 deletions
--- a/strut/FFunc1.m
+++ b/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;