summaryrefslogtreecommitdiff
path: root/548/CH6/EX6.19.a/6_19a.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /548/CH6/EX6.19.a/6_19a.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '548/CH6/EX6.19.a/6_19a.sce')
-rwxr-xr-x548/CH6/EX6.19.a/6_19a.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/548/CH6/EX6.19.a/6_19a.sce b/548/CH6/EX6.19.a/6_19a.sce
new file mode 100755
index 000000000..8f05e737e
--- /dev/null
+++ b/548/CH6/EX6.19.a/6_19a.sce
@@ -0,0 +1,9 @@
+pathname=get_absolute_file_path('6_19a.sce')
+filename=pathname+filesep()+'6_19data.sci'
+exec(filename)
+A=D*S*Cdo/2;
+B=2*Wo^2/(D*S*%pi*e*AR);
+V=poly(0,'V');
+p=Pa*V-A*V^4-B
+disp(roots(p),"Roots of Polynomial p:",p,"p=","Polynomial p:")
+disp("As we can see the maximum positive root is 81.01 (approx), which is the maximum velocity at sea level of the UAV.")