From 584da40d620d29604faac899449feb01a956ec56 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Fri, 12 Apr 2019 12:40:48 +0530 Subject: initial commit / add all books --- 3908/CH1/EX1.5/Ex1_5.sce | 17 ++++++++ 3908/CH1/EX1.5/Example1_5.sce | 16 ++++++++ 3908/CH1/EX1.6/Ex1_6.sce | 13 ++++++ 3908/CH1/EX1.6/Example1_6.sce | 13 ++++++ 3908/CH1/EX1.7/Ex1_7.sce | 16 ++++++++ 3908/CH1/EX1.7/Example1_7.sce | 15 +++++++ 3908/CH1/EX1.8/Ex1_8.sce | 26 ++++++++++++ 3908/CH1/EX1.8/Example1_8.sce | 25 ++++++++++++ 3908/CH10/EX10.1/Ex10_1.sce | 13 ++++++ 3908/CH10/EX10.1/Example10_1.sce | 12 ++++++ 3908/CH10/EX10.10/Ex10_10.sce | 39 ++++++++++++++++++ 3908/CH10/EX10.10/Example10_10.sce | 39 ++++++++++++++++++ 3908/CH10/EX10.11/Ex10_11.sce | 28 +++++++++++++ 3908/CH10/EX10.11/Example10_11.sce | 28 +++++++++++++ 3908/CH10/EX10.12/Ex10_12.sce | 31 ++++++++++++++ 3908/CH10/EX10.12/Example10_12.sce | 31 ++++++++++++++ 3908/CH10/EX10.13/Ex10_13.sce | 42 +++++++++++++++++++ 3908/CH10/EX10.13/Example10_13.sce | 41 +++++++++++++++++++ 3908/CH10/EX10.15/Ex10_15.sce | 23 +++++++++++ 3908/CH10/EX10.15/Example10_15.sce | 23 +++++++++++ 3908/CH10/EX10.16/Ex10_16.sce | 29 ++++++++++++++ 3908/CH10/EX10.16/Example10_16.sce | 29 ++++++++++++++ 3908/CH10/EX10.17/Ex10_17.sce | 23 +++++++++++ 3908/CH10/EX10.17/Example10_17.sce | 22 ++++++++++ 3908/CH10/EX10.18/Ex10_18.sce | 23 +++++++++++ 3908/CH10/EX10.18/Example10_18.sce | 23 +++++++++++ 3908/CH10/EX10.19/Ex10_19.sce | 50 +++++++++++++++++++++++ 3908/CH10/EX10.19/Example10_19.sce | 50 +++++++++++++++++++++++ 3908/CH10/EX10.2/Ex10_2.sce | 14 +++++++ 3908/CH10/EX10.2/Example10_2.sce | 13 ++++++ 3908/CH10/EX10.20/Ex10_20.sce | 33 +++++++++++++++ 3908/CH10/EX10.20/Example10_20.sce | 33 +++++++++++++++ 3908/CH10/EX10.21/Ex10_21.sce | 55 +++++++++++++++++++++++++ 3908/CH10/EX10.21/Example10_21.sce | 55 +++++++++++++++++++++++++ 3908/CH10/EX10.3/Ex10_3.sce | 25 ++++++++++++ 3908/CH10/EX10.3/Example10_3.sce | 25 ++++++++++++ 3908/CH10/EX10.4/Ex10_4.sce | 18 +++++++++ 3908/CH10/EX10.4/Example10_4.sce | 17 ++++++++ 3908/CH10/EX10.5/Ex10_5.sce | 27 +++++++++++++ 3908/CH10/EX10.5/Example10_5.sce | 27 +++++++++++++ 3908/CH10/EX10.6/Ex10_6.sce | 13 ++++++ 3908/CH10/EX10.6/Example10_6.sce | 13 ++++++ 3908/CH10/EX10.7/Ex10_7.sce | 20 ++++++++++ 3908/CH10/EX10.7/Example10_7.sce | 20 ++++++++++ 3908/CH10/EX10.8/Ex10_8.sce | 29 ++++++++++++++ 3908/CH10/EX10.8/Example10_8.sce | 28 +++++++++++++ 3908/CH10/EX10.9/Ex10_9.sce | 19 +++++++++ 3908/CH10/EX10.9/Example10_9.sce | 18 +++++++++ 3908/CH12/EX12.1/Ex12_1.sce | 30 ++++++++++++++ 3908/CH12/EX12.1/Example12_1.sce | 30 ++++++++++++++ 3908/CH12/EX12.2/Ex12_2.sce | 21 ++++++++++ 3908/CH12/EX12.2/Example12_2.sce | 21 ++++++++++ 3908/CH12/EX12.3/Ex12_3.sce | 31 ++++++++++++++ 3908/CH12/EX12.3/Example12_3.sce | 30 ++++++++++++++ 3908/CH12/EX12.4/Ex12_4.sce | 34 ++++++++++++++++ 3908/CH12/EX12.4/Example12_4.sce | 33 +++++++++++++++ 3908/CH12/EX12.5/Ex12_5.sce | 36 +++++++++++++++++ 3908/CH12/EX12.5/Example12_5.sce | 34 ++++++++++++++++ 3908/CH14/EX14.1/Ex14_1.sce | 19 +++++++++ 3908/CH14/EX14.1/Example14_1.sce | 19 +++++++++ 3908/CH14/EX14.10/Ex14_10.sce | 45 +++++++++++++++++++++ 3908/CH14/EX14.10/Example14_10.sce | 45 +++++++++++++++++++++ 3908/CH14/EX14.11/Ex14_11.sce | 22 ++++++++++ 3908/CH14/EX14.11/Example14_11.sce | 22 ++++++++++ 3908/CH14/EX14.12/Ex14_12.sce | 22 ++++++++++ 3908/CH14/EX14.12/Example14_12.sce | 22 ++++++++++ 3908/CH14/EX14.13/Ex14_13.sce | 37 +++++++++++++++++ 3908/CH14/EX14.13/Example14_13.sce | 37 +++++++++++++++++ 3908/CH14/EX14.14/Ex14_14.sce | 21 ++++++++++ 3908/CH14/EX14.14/Example14_14.sce | 20 ++++++++++ 3908/CH14/EX14.15/Ex14_15.sce | 16 ++++++++ 3908/CH14/EX14.15/Example14_15.sce | 16 ++++++++ 3908/CH14/EX14.16/Ex14_16.sce | 24 +++++++++++ 3908/CH14/EX14.16/Example14_16.sce | 24 +++++++++++ 3908/CH14/EX14.17/Ex14_17.sce | 36 +++++++++++++++++ 3908/CH14/EX14.17/Example14_17.sce | 35 ++++++++++++++++ 3908/CH14/EX14.18/Ex14_18.sce | 36 +++++++++++++++++ 3908/CH14/EX14.18/Example14_18.sce | 35 ++++++++++++++++ 3908/CH14/EX14.19/Ex14_19.sce | 26 ++++++++++++ 3908/CH14/EX14.19/Example14_19.sce | 26 ++++++++++++ 3908/CH14/EX14.2/Ex14_2.sce | 28 +++++++++++++ 3908/CH14/EX14.2/Example14_2.sce | 28 +++++++++++++ 3908/CH14/EX14.20/Ex14_20.sce | 26 ++++++++++++ 3908/CH14/EX14.20/Example14_20.sce | 26 ++++++++++++ 3908/CH14/EX14.3/Ex14_3.sce | 18 +++++++++ 3908/CH14/EX14.3/Example14_3.sce | 17 ++++++++ 3908/CH14/EX14.4/Ex14_4.sce | 33 +++++++++++++++ 3908/CH14/EX14.4/Example14_4.sce | 32 +++++++++++++++ 3908/CH14/EX14.5/Ex14_5.sce | 75 ++++++++++++++++++++++++++++++++++ 3908/CH14/EX14.5/Example14_5.sce | 75 ++++++++++++++++++++++++++++++++++ 3908/CH14/EX14.6/Ex14_6.sce | 65 ++++++++++++++++++++++++++++++ 3908/CH14/EX14.6/Example14_6.sce | 65 ++++++++++++++++++++++++++++++ 3908/CH14/EX14.7/Ex14_7.sce | 82 ++++++++++++++++++++++++++++++++++++++ 3908/CH14/EX14.7/Example14_7.sce | 79 ++++++++++++++++++++++++++++++++++++ 3908/CH14/EX14.9/Ex14_9.sce | 28 +++++++++++++ 3908/CH14/EX14.9/Example14_9.sce | 28 +++++++++++++ 3908/CH15/EX15.1/Ex15_1.sce | 11 +++++ 3908/CH15/EX15.1/Example15_1.sce | 11 +++++ 3908/CH15/EX15.10/Ex15_10.sce | 17 ++++++++ 3908/CH15/EX15.10/Example15_10.sce | 17 ++++++++ 3908/CH15/EX15.15/Ex15_15.sce | 25 ++++++++++++ 3908/CH15/EX15.15/Example15_15.sce | 24 +++++++++++ 3908/CH15/EX15.18/Ex15_18.sce | 22 ++++++++++ 3908/CH15/EX15.18/Example15_18.sce | 20 ++++++++++ 3908/CH15/EX15.19/Ex15_19.sce | 24 +++++++++++ 3908/CH15/EX15.19/Example15_19.sce | 24 +++++++++++ 3908/CH15/EX15.2/Ex15_2.sce | 13 ++++++ 3908/CH15/EX15.2/Example15_2.sce | 13 ++++++ 3908/CH15/EX15.20/Ex15_20.sce | 25 ++++++++++++ 3908/CH15/EX15.20/Example15_20.sce | 25 ++++++++++++ 3908/CH15/EX15.21/Ex15_21.sce | 24 +++++++++++ 3908/CH15/EX15.21/Example15_21.sce | 24 +++++++++++ 3908/CH15/EX15.22/Ex15_22.sce | 31 ++++++++++++++ 3908/CH15/EX15.22/Example15_22.sce | 31 ++++++++++++++ 3908/CH15/EX15.27/Ex15_27.sce | 11 +++++ 3908/CH15/EX15.27/Example15_27.sce | 12 ++++++ 3908/CH15/EX15.28/Ex15_28.sce | 19 +++++++++ 3908/CH15/EX15.28/Example15_28.sce | 19 +++++++++ 3908/CH15/EX15.29/Ex15_29.sce | 21 ++++++++++ 3908/CH15/EX15.29/Example15_29.sce | 21 ++++++++++ 3908/CH15/EX15.3/Ex15_3.sce | 21 ++++++++++ 3908/CH15/EX15.3/Example15_3.sce | 21 ++++++++++ 3908/CH15/EX15.31/Ex15_31.sce | 33 +++++++++++++++ 3908/CH15/EX15.31/Example15_31.sce | 32 +++++++++++++++ 3908/CH15/EX15.33/Ex15_33.sce | 31 ++++++++++++++ 3908/CH15/EX15.33/Example15_33.sce | 31 ++++++++++++++ 3908/CH15/EX15.34/Ex15_34.sce | 19 +++++++++ 3908/CH15/EX15.34/Example15_34.sce | 19 +++++++++ 3908/CH15/EX15.36/Ex15_36.sce | 26 ++++++++++++ 3908/CH15/EX15.36/Example15_36.sce | 26 ++++++++++++ 3908/CH15/EX15.4/Ex15_4.sce | 20 ++++++++++ 3908/CH15/EX15.4/Example15_4.sce | 20 ++++++++++ 3908/CH15/EX15.41/Ex15_41.sce | 22 ++++++++++ 3908/CH15/EX15.41/Example15_41.sce | 22 ++++++++++ 3908/CH15/EX15.44/Ex15_44.sce | 17 ++++++++ 3908/CH15/EX15.44/Example15_44.sce | 17 ++++++++ 3908/CH15/EX15.5/Ex15_5.sce | 41 +++++++++++++++++++ 3908/CH15/EX15.5/Example15_5.sce | 41 +++++++++++++++++++ 3908/CH15/EX15.7/Ex15_7.sce | 55 +++++++++++++++++++++++++ 3908/CH15/EX15.7/Example15_7.sce | 55 +++++++++++++++++++++++++ 3908/CH15/EX15.8/Ex15_8.sce | 48 ++++++++++++++++++++++ 3908/CH15/EX15.8/Example15_8.sce | 48 ++++++++++++++++++++++ 3908/CH15/EX15.9/Ex15_9.sce | 31 ++++++++++++++ 3908/CH15/EX15.9/Example15_9.sce | 31 ++++++++++++++ 3908/CH16/EX16.1/Ex16_1.sce | 15 +++++++ 3908/CH16/EX16.1/Example16_1.sce | 15 +++++++ 3908/CH16/EX16.2/Ex16_2.sce | 22 ++++++++++ 3908/CH16/EX16.2/Example16_2.sce | 22 ++++++++++ 3908/CH16/EX16.3/Ex16_3.sce | 21 ++++++++++ 3908/CH16/EX16.3/Example16_3.sce | 21 ++++++++++ 3908/CH16/EX16.4/Ex16_4.sce | 25 ++++++++++++ 3908/CH16/EX16.4/Example16_4.sce | 24 +++++++++++ 3908/CH16/EX16.5/Ex16_5.sce | 25 ++++++++++++ 3908/CH16/EX16.5/Example16_5.sce | 24 +++++++++++ 3908/CH16/EX16.6/Ex16_6.sce | 22 ++++++++++ 3908/CH16/EX16.6/Example16_6.sce | 22 ++++++++++ 3908/CH16/EX16.7/Ex16_7.sce | 23 +++++++++++ 3908/CH16/EX16.7/Example16_7.sce | 23 +++++++++++ 3908/CH16/EX16.8/Ex16_8.sce | 24 +++++++++++ 3908/CH16/EX16.8/Example16_8.sce | 20 ++++++++++ 3908/CH17/EX17.1/Ex17_1.sce | 17 ++++++++ 3908/CH17/EX17.1/Example17_1.sce | 17 ++++++++ 3908/CH17/EX17.10/Ex17_10.sce | 26 ++++++++++++ 3908/CH17/EX17.10/Example17_10.sce | 26 ++++++++++++ 3908/CH17/EX17.11/Ex17_11.sce | 16 ++++++++ 3908/CH17/EX17.11/Example17_11.sce | 16 ++++++++ 3908/CH17/EX17.12/Ex17_12.sce | 34 ++++++++++++++++ 3908/CH17/EX17.12/Example17_12.sce | 34 ++++++++++++++++ 3908/CH17/EX17.2/Ex17_2.sce | 14 +++++++ 3908/CH17/EX17.2/Example17_2.sce | 14 +++++++ 3908/CH17/EX17.3/Example17_3.sce | 13 ++++++ 3908/CH17/EX17.5/Ex17_5.sce | 20 ++++++++++ 3908/CH17/EX17.5/Example17_5.sce | 20 ++++++++++ 3908/CH17/EX17.6/Ex17_6.sce | 30 ++++++++++++++ 3908/CH17/EX17.6/Example17_6.sce | 30 ++++++++++++++ 3908/CH17/EX17.7/Ex17_7.sce | 23 +++++++++++ 3908/CH17/EX17.7/Example17_7.sce | 23 +++++++++++ 3908/CH17/EX17.8/Ex17_8.sce | 16 ++++++++ 3908/CH17/EX17.8/Example17_8.sce | 16 ++++++++ 3908/CH17/EX17.9/Ex17_9.sce | 19 +++++++++ 3908/CH17/EX17.9/Example17_9.sce | 19 +++++++++ 3908/CH18/EX18.1/Ex18_1.sce | 20 ++++++++++ 3908/CH18/EX18.1/Example18_1.sce | 19 +++++++++ 3908/CH18/EX18.2/Ex18_2.sce | 27 +++++++++++++ 3908/CH18/EX18.2/Example18_2.sce | 25 ++++++++++++ 3908/CH18/EX18.21/Ex18_21.sce | 19 +++++++++ 3908/CH18/EX18.21/Example18_21.sce | 18 +++++++++ 3908/CH18/EX18.22/Example18_22.sce | 21 ++++++++++ 3908/CH18/EX18.23/Example18_23.sce | 33 +++++++++++++++ 3908/CH18/EX18.3/Ex18_3.sce | 14 +++++++ 3908/CH18/EX18.3/Example18_3.sce | 14 +++++++ 3908/CH18/EX18.4/Ex18_4.sce | 12 ++++++ 3908/CH18/EX18.4/Example18_4.sce | 12 ++++++ 3908/CH18/EX18.5/Ex18_5.sce | 17 ++++++++ 3908/CH18/EX18.5/Example18_5.sce | 16 ++++++++ 3908/CH18/EX18.6/Ex18_6.sce | 18 +++++++++ 3908/CH18/EX18.6/Example18_6.sce | 16 ++++++++ 3908/CH18/EX18.7/Ex18_7.sce | 23 +++++++++++ 3908/CH18/EX18.7/Example18_7.sce | 22 ++++++++++ 3908/CH19/EX19.1/Ex19_1.sce | 15 +++++++ 3908/CH19/EX19.1/Example19_1.sce | 15 +++++++ 3908/CH19/EX19.2/Ex19_2.sce | 16 ++++++++ 3908/CH19/EX19.2/Example19_2.sce | 16 ++++++++ 3908/CH19/EX19.3/Ex19_3.sce | 19 +++++++++ 3908/CH19/EX19.3/Example19_3.sce | 19 +++++++++ 3908/CH2/EX2.1/Ex2_1.sce | 12 ++++++ 3908/CH2/EX2.1/Example2_1.sce | 11 +++++ 3908/CH2/EX2.10/Ex2_10.sce | 22 ++++++++++ 3908/CH2/EX2.10/Example2_10.sce | 20 ++++++++++ 3908/CH2/EX2.11/Ex2_11.sce | 20 ++++++++++ 3908/CH2/EX2.11/Example2_11.sce | 18 +++++++++ 3908/CH2/EX2.12/Ex2_12.sce | 30 ++++++++++++++ 3908/CH2/EX2.12/Example2_12.sce | 26 ++++++++++++ 3908/CH2/EX2.13/Ex2_13.sce | 16 ++++++++ 3908/CH2/EX2.13/Example2_13.sce | 14 +++++++ 3908/CH2/EX2.14/Ex2_14.sce | 15 +++++++ 3908/CH2/EX2.14/Example2_14.sce | 13 ++++++ 3908/CH2/EX2.15/Ex2_15.sce | 18 +++++++++ 3908/CH2/EX2.15/Example2_15.sce | 17 ++++++++ 3908/CH2/EX2.16/Ex2_16.sce | 27 +++++++++++++ 3908/CH2/EX2.16/Example2_16.sce | 26 ++++++++++++ 3908/CH2/EX2.19/Ex2_19.sce | 22 ++++++++++ 3908/CH2/EX2.19/Example2_19.sce | 21 ++++++++++ 3908/CH2/EX2.2/Ex2_2.sce | 14 +++++++ 3908/CH2/EX2.2/Example2_2.sce | 13 ++++++ 3908/CH2/EX2.20/Ex2_20.sce | 19 +++++++++ 3908/CH2/EX2.20/Example2_20.sce | 18 +++++++++ 3908/CH2/EX2.21/Ex2_21.sce | 11 +++++ 3908/CH2/EX2.21/Example2_21.sce | 10 +++++ 3908/CH2/EX2.22/Ex2_22.sce | 19 +++++++++ 3908/CH2/EX2.22/Example2_22.sce | 18 +++++++++ 3908/CH2/EX2.23/Ex2_23.sce | 17 ++++++++ 3908/CH2/EX2.23/Example2_23.sce | 15 +++++++ 3908/CH2/EX2.24/Ex2_24.sce | 16 ++++++++ 3908/CH2/EX2.24/Example2_24.sce | 15 +++++++ 3908/CH2/EX2.25/Ex2_25.sce | 13 ++++++ 3908/CH2/EX2.25/Example2_25.sce | 12 ++++++ 3908/CH2/EX2.26/Ex2_26.sce | 15 +++++++ 3908/CH2/EX2.26/Example2_26.sce | 14 +++++++ 3908/CH2/EX2.27/Ex2_27.sce | 16 ++++++++ 3908/CH2/EX2.27/Example2_27.sce | 15 +++++++ 3908/CH2/EX2.28/Ex2_28.sce | 30 ++++++++++++++ 3908/CH2/EX2.28/Example2_28.sce | 29 ++++++++++++++ 3908/CH2/EX2.3/Ex2_3.sce | 12 ++++++ 3908/CH2/EX2.3/Example2_3.sce | 11 +++++ 3908/CH2/EX2.4/Ex2_4.sce | 14 +++++++ 3908/CH2/EX2.4/Example2_4.sce | 14 +++++++ 3908/CH2/EX2.5/Ex2_5.sce | 26 ++++++++++++ 3908/CH2/EX2.5/Example2_5.sce | 25 ++++++++++++ 3908/CH2/EX2.6/Ex2_6.sce | 12 ++++++ 3908/CH2/EX2.6/Example2_6.sce | 11 +++++ 3908/CH2/EX2.8/Ex2_8.sce | 18 +++++++++ 3908/CH2/EX2.8/Example2_8.sce | 17 ++++++++ 3908/CH2/EX2.9/Ex2_9.sce | 24 +++++++++++ 3908/CH2/EX2.9/Example2_9.sce | 21 ++++++++++ 3908/CH21/EX21.1/Ex21_1.sce | 29 ++++++++++++++ 3908/CH21/EX21.1/Example21_1.sce | 29 ++++++++++++++ 3908/CH21/EX21.2/Ex21_2.sce | 29 ++++++++++++++ 3908/CH21/EX21.2/Example21_2.sce | 29 ++++++++++++++ 3908/CH21/EX21.20/Ex21_20.sce | 17 ++++++++ 3908/CH21/EX21.20/Example21_20.sce | 15 +++++++ 3908/CH21/EX21.3/Ex21_3.sce | 24 +++++++++++ 3908/CH21/EX21.3/Example21_3.sce | 24 +++++++++++ 3908/CH21/EX21.4/Ex21_4.sce | 22 ++++++++++ 3908/CH21/EX21.4/Example21_4.sce | 22 ++++++++++ 3908/CH21/EX21.8/Ex21_8.sce | 18 +++++++++ 3908/CH21/EX21.8/Example21_8.sce | 16 ++++++++ 3908/CH21/EX21.9/Ex21_9.sce | 18 +++++++++ 3908/CH21/EX21.9/Example21_9.sce | 18 +++++++++ 3908/CH5/EX5.1/Ex5_1.sce | 24 +++++++++++ 3908/CH5/EX5.1/Example5_1.sce | 24 +++++++++++ 3908/CH8/EX8.10/Ex8_10.sce | 18 +++++++++ 3908/CH8/EX8.10/Example8_10.sce | 18 +++++++++ 3908/CH8/EX8.11/Ex8_11.sce | 30 ++++++++++++++ 3908/CH8/EX8.11/Example8_11.sce | 30 ++++++++++++++ 3908/CH8/EX8.12/Ex8_12.sce | 26 ++++++++++++ 3908/CH8/EX8.12/Example8_12.sce | 26 ++++++++++++ 3908/CH8/EX8.13/Ex8_13.sce | 26 ++++++++++++ 3908/CH8/EX8.13/Example8_13.sce | 26 ++++++++++++ 3908/CH8/EX8.4/Ex8_4.sce | 15 +++++++ 3908/CH8/EX8.4/Example8_4.sce | 15 +++++++ 3908/CH8/EX8.5/Ex8_5.sce | 35 ++++++++++++++++ 3908/CH8/EX8.5/Example8_5.sce | 35 ++++++++++++++++ 3908/CH8/EX8.6/Ex8_6.sce | 30 ++++++++++++++ 3908/CH8/EX8.6/Example8_6.sce | 30 ++++++++++++++ 3908/CH8/EX8.7/Ex8_7.sce | 47 ++++++++++++++++++++++ 3908/CH8/EX8.7/Example8_7.sce | 47 ++++++++++++++++++++++ 3908/CH8/EX8.8/Ex8_8.sce | 29 ++++++++++++++ 3908/CH8/EX8.8/Example8_8.sce | 29 ++++++++++++++ 3908/CH8/EX8.9/Ex8_9.sce | 18 +++++++++ 3908/CH8/EX8.9/Example8_9.sce | 18 +++++++++ 3908/CH9/EX9.1/Ex9_1.sce | 40 +++++++++++++++++++ 3908/CH9/EX9.1/Example9_1.sce | 39 ++++++++++++++++++ 3908/CH9/EX9.2/Ex9_2.sce | 44 ++++++++++++++++++++ 3908/CH9/EX9.2/Example9_2.sce | 43 ++++++++++++++++++++ 295 files changed, 7254 insertions(+) create mode 100644 3908/CH1/EX1.5/Ex1_5.sce create mode 100644 3908/CH1/EX1.5/Example1_5.sce create mode 100644 3908/CH1/EX1.6/Ex1_6.sce create mode 100644 3908/CH1/EX1.6/Example1_6.sce create mode 100644 3908/CH1/EX1.7/Ex1_7.sce create mode 100644 3908/CH1/EX1.7/Example1_7.sce create mode 100644 3908/CH1/EX1.8/Ex1_8.sce create mode 100644 3908/CH1/EX1.8/Example1_8.sce create mode 100644 3908/CH10/EX10.1/Ex10_1.sce create mode 100644 3908/CH10/EX10.1/Example10_1.sce create mode 100644 3908/CH10/EX10.10/Ex10_10.sce create mode 100644 3908/CH10/EX10.10/Example10_10.sce create mode 100644 3908/CH10/EX10.11/Ex10_11.sce create mode 100644 3908/CH10/EX10.11/Example10_11.sce create mode 100644 3908/CH10/EX10.12/Ex10_12.sce create mode 100644 3908/CH10/EX10.12/Example10_12.sce create mode 100644 3908/CH10/EX10.13/Ex10_13.sce create mode 100644 3908/CH10/EX10.13/Example10_13.sce create mode 100644 3908/CH10/EX10.15/Ex10_15.sce create mode 100644 3908/CH10/EX10.15/Example10_15.sce create mode 100644 3908/CH10/EX10.16/Ex10_16.sce create mode 100644 3908/CH10/EX10.16/Example10_16.sce create mode 100644 3908/CH10/EX10.17/Ex10_17.sce create mode 100644 3908/CH10/EX10.17/Example10_17.sce create mode 100644 3908/CH10/EX10.18/Ex10_18.sce create mode 100644 3908/CH10/EX10.18/Example10_18.sce create mode 100644 3908/CH10/EX10.19/Ex10_19.sce create mode 100644 3908/CH10/EX10.19/Example10_19.sce create mode 100644 3908/CH10/EX10.2/Ex10_2.sce create mode 100644 3908/CH10/EX10.2/Example10_2.sce create mode 100644 3908/CH10/EX10.20/Ex10_20.sce create mode 100644 3908/CH10/EX10.20/Example10_20.sce create mode 100644 3908/CH10/EX10.21/Ex10_21.sce create mode 100644 3908/CH10/EX10.21/Example10_21.sce create mode 100644 3908/CH10/EX10.3/Ex10_3.sce create mode 100644 3908/CH10/EX10.3/Example10_3.sce create mode 100644 3908/CH10/EX10.4/Ex10_4.sce create mode 100644 3908/CH10/EX10.4/Example10_4.sce create mode 100644 3908/CH10/EX10.5/Ex10_5.sce create mode 100644 3908/CH10/EX10.5/Example10_5.sce create mode 100644 3908/CH10/EX10.6/Ex10_6.sce create mode 100644 3908/CH10/EX10.6/Example10_6.sce create mode 100644 3908/CH10/EX10.7/Ex10_7.sce create mode 100644 3908/CH10/EX10.7/Example10_7.sce create mode 100644 3908/CH10/EX10.8/Ex10_8.sce create mode 100644 3908/CH10/EX10.8/Example10_8.sce create mode 100644 3908/CH10/EX10.9/Ex10_9.sce create mode 100644 3908/CH10/EX10.9/Example10_9.sce create mode 100644 3908/CH12/EX12.1/Ex12_1.sce create mode 100644 3908/CH12/EX12.1/Example12_1.sce create mode 100644 3908/CH12/EX12.2/Ex12_2.sce create mode 100644 3908/CH12/EX12.2/Example12_2.sce create mode 100644 3908/CH12/EX12.3/Ex12_3.sce create mode 100644 3908/CH12/EX12.3/Example12_3.sce create mode 100644 3908/CH12/EX12.4/Ex12_4.sce create mode 100644 3908/CH12/EX12.4/Example12_4.sce create mode 100644 3908/CH12/EX12.5/Ex12_5.sce create mode 100644 3908/CH12/EX12.5/Example12_5.sce create mode 100644 3908/CH14/EX14.1/Ex14_1.sce create mode 100644 3908/CH14/EX14.1/Example14_1.sce create mode 100644 3908/CH14/EX14.10/Ex14_10.sce create mode 100644 3908/CH14/EX14.10/Example14_10.sce create mode 100644 3908/CH14/EX14.11/Ex14_11.sce create mode 100644 3908/CH14/EX14.11/Example14_11.sce create mode 100644 3908/CH14/EX14.12/Ex14_12.sce create mode 100644 3908/CH14/EX14.12/Example14_12.sce create mode 100644 3908/CH14/EX14.13/Ex14_13.sce create mode 100644 3908/CH14/EX14.13/Example14_13.sce create mode 100644 3908/CH14/EX14.14/Ex14_14.sce create mode 100644 3908/CH14/EX14.14/Example14_14.sce create mode 100644 3908/CH14/EX14.15/Ex14_15.sce create mode 100644 3908/CH14/EX14.15/Example14_15.sce create mode 100644 3908/CH14/EX14.16/Ex14_16.sce create mode 100644 3908/CH14/EX14.16/Example14_16.sce create mode 100644 3908/CH14/EX14.17/Ex14_17.sce create mode 100644 3908/CH14/EX14.17/Example14_17.sce create mode 100644 3908/CH14/EX14.18/Ex14_18.sce create mode 100644 3908/CH14/EX14.18/Example14_18.sce create mode 100644 3908/CH14/EX14.19/Ex14_19.sce create mode 100644 3908/CH14/EX14.19/Example14_19.sce create mode 100644 3908/CH14/EX14.2/Ex14_2.sce create mode 100644 3908/CH14/EX14.2/Example14_2.sce create mode 100644 3908/CH14/EX14.20/Ex14_20.sce create mode 100644 3908/CH14/EX14.20/Example14_20.sce create mode 100644 3908/CH14/EX14.3/Ex14_3.sce create mode 100644 3908/CH14/EX14.3/Example14_3.sce create mode 100644 3908/CH14/EX14.4/Ex14_4.sce create mode 100644 3908/CH14/EX14.4/Example14_4.sce create mode 100644 3908/CH14/EX14.5/Ex14_5.sce create mode 100644 3908/CH14/EX14.5/Example14_5.sce create mode 100644 3908/CH14/EX14.6/Ex14_6.sce create mode 100644 3908/CH14/EX14.6/Example14_6.sce create mode 100644 3908/CH14/EX14.7/Ex14_7.sce create mode 100644 3908/CH14/EX14.7/Example14_7.sce create mode 100644 3908/CH14/EX14.9/Ex14_9.sce create mode 100644 3908/CH14/EX14.9/Example14_9.sce create mode 100644 3908/CH15/EX15.1/Ex15_1.sce create mode 100644 3908/CH15/EX15.1/Example15_1.sce create mode 100644 3908/CH15/EX15.10/Ex15_10.sce create mode 100644 3908/CH15/EX15.10/Example15_10.sce create mode 100644 3908/CH15/EX15.15/Ex15_15.sce create mode 100644 3908/CH15/EX15.15/Example15_15.sce create mode 100644 3908/CH15/EX15.18/Ex15_18.sce create mode 100644 3908/CH15/EX15.18/Example15_18.sce create mode 100644 3908/CH15/EX15.19/Ex15_19.sce create mode 100644 3908/CH15/EX15.19/Example15_19.sce create mode 100644 3908/CH15/EX15.2/Ex15_2.sce create mode 100644 3908/CH15/EX15.2/Example15_2.sce create mode 100644 3908/CH15/EX15.20/Ex15_20.sce create mode 100644 3908/CH15/EX15.20/Example15_20.sce create mode 100644 3908/CH15/EX15.21/Ex15_21.sce create mode 100644 3908/CH15/EX15.21/Example15_21.sce create mode 100644 3908/CH15/EX15.22/Ex15_22.sce create mode 100644 3908/CH15/EX15.22/Example15_22.sce create mode 100644 3908/CH15/EX15.27/Ex15_27.sce create mode 100644 3908/CH15/EX15.27/Example15_27.sce create mode 100644 3908/CH15/EX15.28/Ex15_28.sce create mode 100644 3908/CH15/EX15.28/Example15_28.sce create mode 100644 3908/CH15/EX15.29/Ex15_29.sce create mode 100644 3908/CH15/EX15.29/Example15_29.sce create mode 100644 3908/CH15/EX15.3/Ex15_3.sce create mode 100644 3908/CH15/EX15.3/Example15_3.sce create mode 100644 3908/CH15/EX15.31/Ex15_31.sce create mode 100644 3908/CH15/EX15.31/Example15_31.sce create mode 100644 3908/CH15/EX15.33/Ex15_33.sce create mode 100644 3908/CH15/EX15.33/Example15_33.sce create mode 100644 3908/CH15/EX15.34/Ex15_34.sce create mode 100644 3908/CH15/EX15.34/Example15_34.sce create mode 100644 3908/CH15/EX15.36/Ex15_36.sce create mode 100644 3908/CH15/EX15.36/Example15_36.sce create mode 100644 3908/CH15/EX15.4/Ex15_4.sce create mode 100644 3908/CH15/EX15.4/Example15_4.sce create mode 100644 3908/CH15/EX15.41/Ex15_41.sce create mode 100644 3908/CH15/EX15.41/Example15_41.sce create mode 100644 3908/CH15/EX15.44/Ex15_44.sce create mode 100644 3908/CH15/EX15.44/Example15_44.sce create mode 100644 3908/CH15/EX15.5/Ex15_5.sce create mode 100644 3908/CH15/EX15.5/Example15_5.sce create mode 100644 3908/CH15/EX15.7/Ex15_7.sce create mode 100644 3908/CH15/EX15.7/Example15_7.sce create mode 100644 3908/CH15/EX15.8/Ex15_8.sce create mode 100644 3908/CH15/EX15.8/Example15_8.sce create mode 100644 3908/CH15/EX15.9/Ex15_9.sce create mode 100644 3908/CH15/EX15.9/Example15_9.sce create mode 100644 3908/CH16/EX16.1/Ex16_1.sce create mode 100644 3908/CH16/EX16.1/Example16_1.sce create mode 100644 3908/CH16/EX16.2/Ex16_2.sce create mode 100644 3908/CH16/EX16.2/Example16_2.sce create mode 100644 3908/CH16/EX16.3/Ex16_3.sce create mode 100644 3908/CH16/EX16.3/Example16_3.sce create mode 100644 3908/CH16/EX16.4/Ex16_4.sce create mode 100644 3908/CH16/EX16.4/Example16_4.sce create mode 100644 3908/CH16/EX16.5/Ex16_5.sce create mode 100644 3908/CH16/EX16.5/Example16_5.sce create mode 100644 3908/CH16/EX16.6/Ex16_6.sce create mode 100644 3908/CH16/EX16.6/Example16_6.sce create mode 100644 3908/CH16/EX16.7/Ex16_7.sce create mode 100644 3908/CH16/EX16.7/Example16_7.sce create mode 100644 3908/CH16/EX16.8/Ex16_8.sce create mode 100644 3908/CH16/EX16.8/Example16_8.sce create mode 100644 3908/CH17/EX17.1/Ex17_1.sce create mode 100644 3908/CH17/EX17.1/Example17_1.sce create mode 100644 3908/CH17/EX17.10/Ex17_10.sce create mode 100644 3908/CH17/EX17.10/Example17_10.sce create mode 100644 3908/CH17/EX17.11/Ex17_11.sce create mode 100644 3908/CH17/EX17.11/Example17_11.sce create mode 100644 3908/CH17/EX17.12/Ex17_12.sce create mode 100644 3908/CH17/EX17.12/Example17_12.sce create mode 100644 3908/CH17/EX17.2/Ex17_2.sce create mode 100644 3908/CH17/EX17.2/Example17_2.sce create mode 100644 3908/CH17/EX17.3/Example17_3.sce create mode 100644 3908/CH17/EX17.5/Ex17_5.sce create mode 100644 3908/CH17/EX17.5/Example17_5.sce create mode 100644 3908/CH17/EX17.6/Ex17_6.sce create mode 100644 3908/CH17/EX17.6/Example17_6.sce create mode 100644 3908/CH17/EX17.7/Ex17_7.sce create mode 100644 3908/CH17/EX17.7/Example17_7.sce create mode 100644 3908/CH17/EX17.8/Ex17_8.sce create mode 100644 3908/CH17/EX17.8/Example17_8.sce create mode 100644 3908/CH17/EX17.9/Ex17_9.sce create mode 100644 3908/CH17/EX17.9/Example17_9.sce create mode 100644 3908/CH18/EX18.1/Ex18_1.sce create mode 100644 3908/CH18/EX18.1/Example18_1.sce create mode 100644 3908/CH18/EX18.2/Ex18_2.sce create mode 100644 3908/CH18/EX18.2/Example18_2.sce create mode 100644 3908/CH18/EX18.21/Ex18_21.sce create mode 100644 3908/CH18/EX18.21/Example18_21.sce create mode 100644 3908/CH18/EX18.22/Example18_22.sce create mode 100644 3908/CH18/EX18.23/Example18_23.sce create mode 100644 3908/CH18/EX18.3/Ex18_3.sce create mode 100644 3908/CH18/EX18.3/Example18_3.sce create mode 100644 3908/CH18/EX18.4/Ex18_4.sce create mode 100644 3908/CH18/EX18.4/Example18_4.sce create mode 100644 3908/CH18/EX18.5/Ex18_5.sce create mode 100644 3908/CH18/EX18.5/Example18_5.sce create mode 100644 3908/CH18/EX18.6/Ex18_6.sce create mode 100644 3908/CH18/EX18.6/Example18_6.sce create mode 100644 3908/CH18/EX18.7/Ex18_7.sce create mode 100644 3908/CH18/EX18.7/Example18_7.sce create mode 100644 3908/CH19/EX19.1/Ex19_1.sce create mode 100644 3908/CH19/EX19.1/Example19_1.sce create mode 100644 3908/CH19/EX19.2/Ex19_2.sce create mode 100644 3908/CH19/EX19.2/Example19_2.sce create mode 100644 3908/CH19/EX19.3/Ex19_3.sce create mode 100644 3908/CH19/EX19.3/Example19_3.sce create mode 100644 3908/CH2/EX2.1/Ex2_1.sce create mode 100644 3908/CH2/EX2.1/Example2_1.sce create mode 100644 3908/CH2/EX2.10/Ex2_10.sce create mode 100644 3908/CH2/EX2.10/Example2_10.sce create mode 100644 3908/CH2/EX2.11/Ex2_11.sce create mode 100644 3908/CH2/EX2.11/Example2_11.sce create mode 100644 3908/CH2/EX2.12/Ex2_12.sce create mode 100644 3908/CH2/EX2.12/Example2_12.sce create mode 100644 3908/CH2/EX2.13/Ex2_13.sce create mode 100644 3908/CH2/EX2.13/Example2_13.sce create mode 100644 3908/CH2/EX2.14/Ex2_14.sce create mode 100644 3908/CH2/EX2.14/Example2_14.sce create mode 100644 3908/CH2/EX2.15/Ex2_15.sce create mode 100644 3908/CH2/EX2.15/Example2_15.sce create mode 100644 3908/CH2/EX2.16/Ex2_16.sce create mode 100644 3908/CH2/EX2.16/Example2_16.sce create mode 100644 3908/CH2/EX2.19/Ex2_19.sce create mode 100644 3908/CH2/EX2.19/Example2_19.sce create mode 100644 3908/CH2/EX2.2/Ex2_2.sce create mode 100644 3908/CH2/EX2.2/Example2_2.sce create mode 100644 3908/CH2/EX2.20/Ex2_20.sce create mode 100644 3908/CH2/EX2.20/Example2_20.sce create mode 100644 3908/CH2/EX2.21/Ex2_21.sce create mode 100644 3908/CH2/EX2.21/Example2_21.sce create mode 100644 3908/CH2/EX2.22/Ex2_22.sce create mode 100644 3908/CH2/EX2.22/Example2_22.sce create mode 100644 3908/CH2/EX2.23/Ex2_23.sce create mode 100644 3908/CH2/EX2.23/Example2_23.sce create mode 100644 3908/CH2/EX2.24/Ex2_24.sce create mode 100644 3908/CH2/EX2.24/Example2_24.sce create mode 100644 3908/CH2/EX2.25/Ex2_25.sce create mode 100644 3908/CH2/EX2.25/Example2_25.sce create mode 100644 3908/CH2/EX2.26/Ex2_26.sce create mode 100644 3908/CH2/EX2.26/Example2_26.sce create mode 100644 3908/CH2/EX2.27/Ex2_27.sce create mode 100644 3908/CH2/EX2.27/Example2_27.sce create mode 100644 3908/CH2/EX2.28/Ex2_28.sce create mode 100644 3908/CH2/EX2.28/Example2_28.sce create mode 100644 3908/CH2/EX2.3/Ex2_3.sce create mode 100644 3908/CH2/EX2.3/Example2_3.sce create mode 100644 3908/CH2/EX2.4/Ex2_4.sce create mode 100644 3908/CH2/EX2.4/Example2_4.sce create mode 100644 3908/CH2/EX2.5/Ex2_5.sce create mode 100644 3908/CH2/EX2.5/Example2_5.sce create mode 100644 3908/CH2/EX2.6/Ex2_6.sce create mode 100644 3908/CH2/EX2.6/Example2_6.sce create mode 100644 3908/CH2/EX2.8/Ex2_8.sce create mode 100644 3908/CH2/EX2.8/Example2_8.sce create mode 100644 3908/CH2/EX2.9/Ex2_9.sce create mode 100644 3908/CH2/EX2.9/Example2_9.sce create mode 100644 3908/CH21/EX21.1/Ex21_1.sce create mode 100644 3908/CH21/EX21.1/Example21_1.sce create mode 100644 3908/CH21/EX21.2/Ex21_2.sce create mode 100644 3908/CH21/EX21.2/Example21_2.sce create mode 100644 3908/CH21/EX21.20/Ex21_20.sce create mode 100644 3908/CH21/EX21.20/Example21_20.sce create mode 100644 3908/CH21/EX21.3/Ex21_3.sce create mode 100644 3908/CH21/EX21.3/Example21_3.sce create mode 100644 3908/CH21/EX21.4/Ex21_4.sce create mode 100644 3908/CH21/EX21.4/Example21_4.sce create mode 100644 3908/CH21/EX21.8/Ex21_8.sce create mode 100644 3908/CH21/EX21.8/Example21_8.sce create mode 100644 3908/CH21/EX21.9/Ex21_9.sce create mode 100644 3908/CH21/EX21.9/Example21_9.sce create mode 100644 3908/CH5/EX5.1/Ex5_1.sce create mode 100644 3908/CH5/EX5.1/Example5_1.sce create mode 100644 3908/CH8/EX8.10/Ex8_10.sce create mode 100644 3908/CH8/EX8.10/Example8_10.sce create mode 100644 3908/CH8/EX8.11/Ex8_11.sce create mode 100644 3908/CH8/EX8.11/Example8_11.sce create mode 100644 3908/CH8/EX8.12/Ex8_12.sce create mode 100644 3908/CH8/EX8.12/Example8_12.sce create mode 100644 3908/CH8/EX8.13/Ex8_13.sce create mode 100644 3908/CH8/EX8.13/Example8_13.sce create mode 100644 3908/CH8/EX8.4/Ex8_4.sce create mode 100644 3908/CH8/EX8.4/Example8_4.sce create mode 100644 3908/CH8/EX8.5/Ex8_5.sce create mode 100644 3908/CH8/EX8.5/Example8_5.sce create mode 100644 3908/CH8/EX8.6/Ex8_6.sce create mode 100644 3908/CH8/EX8.6/Example8_6.sce create mode 100644 3908/CH8/EX8.7/Ex8_7.sce create mode 100644 3908/CH8/EX8.7/Example8_7.sce create mode 100644 3908/CH8/EX8.8/Ex8_8.sce create mode 100644 3908/CH8/EX8.8/Example8_8.sce create mode 100644 3908/CH8/EX8.9/Ex8_9.sce create mode 100644 3908/CH8/EX8.9/Example8_9.sce create mode 100644 3908/CH9/EX9.1/Ex9_1.sce create mode 100644 3908/CH9/EX9.1/Example9_1.sce create mode 100644 3908/CH9/EX9.2/Ex9_2.sce create mode 100644 3908/CH9/EX9.2/Example9_2.sce diff --git a/3908/CH1/EX1.5/Ex1_5.sce b/3908/CH1/EX1.5/Ex1_5.sce new file mode 100644 index 000000000..dd9bb7293 --- /dev/null +++ b/3908/CH1/EX1.5/Ex1_5.sce @@ -0,0 +1,17 @@ +//Example 1_5 +clc; +clear; +close; + +//Given data : +n=5;// number of divisions(no unit) +l=0.002;// length in m +D=80;// distance in m +s1=1.675;// reading of bubble at centre in m +s2=1.705;// reading of bubble shifted five divisions off-centre in m +s=s2-s1;// difference in reading in m +R=n*l*D/s;// radius of curvature in m +disp(R,"Radius of curvature in m"); +S= 206265*s/(n*D);// sensitivity of bubble in s +disp(S,"Sensitivity of bubble in s"); +// The answers vary due to round off error diff --git a/3908/CH1/EX1.5/Example1_5.sce b/3908/CH1/EX1.5/Example1_5.sce new file mode 100644 index 000000000..95a2ce8f4 --- /dev/null +++ b/3908/CH1/EX1.5/Example1_5.sce @@ -0,0 +1,16 @@ +//Example 1_5 +clc; +clear; +close; + +//Given data : +n=5;// number of divisions(no unit) +l=0.002;// length in m +D=80;// distance in m +s1=1.675;// reading of bubble at centre in m +s2=1.705;// reading of bubble shifted fivr divisions off-centre in m +s=s2-s1;// difference in reading in m +R=n*l*D/s;// radius of curvature in m +disp(R,"radius of curvature in m"); +S= 206265*s/(n*D);// sensitivity of bubble in s +disp(S,"sensitivity of bubble in s"); diff --git a/3908/CH1/EX1.6/Ex1_6.sce b/3908/CH1/EX1.6/Ex1_6.sce new file mode 100644 index 000000000..9a7e31741 --- /dev/null +++ b/3908/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,13 @@ +//Example 1_6 +clc; +clear; +close; + +//Given data : +n=3;// number of divisions(no unit) +l=0.002;// length in m +D=50;// distance in m +S=40;// sensitivity in s +R=l*206265/S;// radius of curvature in m +e=n*l*D/R;// error in staff reading in m +disp(e,"error in staff reading in m"); diff --git a/3908/CH1/EX1.6/Example1_6.sce b/3908/CH1/EX1.6/Example1_6.sce new file mode 100644 index 000000000..9a7e31741 --- /dev/null +++ b/3908/CH1/EX1.6/Example1_6.sce @@ -0,0 +1,13 @@ +//Example 1_6 +clc; +clear; +close; + +//Given data : +n=3;// number of divisions(no unit) +l=0.002;// length in m +D=50;// distance in m +S=40;// sensitivity in s +R=l*206265/S;// radius of curvature in m +e=n*l*D/R;// error in staff reading in m +disp(e,"error in staff reading in m"); diff --git a/3908/CH1/EX1.7/Ex1_7.sce b/3908/CH1/EX1.7/Ex1_7.sce new file mode 100644 index 000000000..deb513f45 --- /dev/null +++ b/3908/CH1/EX1.7/Ex1_7.sce @@ -0,0 +1,16 @@ +//Example 1_7 +clc; +clear; +close; + +//Given data : +l=0.002;// length in m +//Case 1 +S=10;// sensitivity of bubble in s +R=l*206265/S;// radius of curvature in m +disp(R,"radius of curvature in m"); +//Case 2 +S=60;// sensitivity of bubble in s +R=l*206265/S;// radius of curvature in m +disp(R,"radius of curvature in m"); +// The answers vary due to round off error diff --git a/3908/CH1/EX1.7/Example1_7.sce b/3908/CH1/EX1.7/Example1_7.sce new file mode 100644 index 000000000..df53ea3c2 --- /dev/null +++ b/3908/CH1/EX1.7/Example1_7.sce @@ -0,0 +1,15 @@ +//Example 1_7 +clc; +clear; +close; + +//Given data : +l=0.002;// length in m +//Case 1 +S=10;// sensitivity of bubble in s +R=l*206265/S;// radius of curvature in m +disp(R,"radius of curvature in m"); +//Case 2 +S=60;// sensitivity of bubble in s +R=l*206265/S;// radius of curvature in m +disp(R,"radius of curvature in m"); diff --git a/3908/CH1/EX1.8/Ex1_8.sce b/3908/CH1/EX1.8/Ex1_8.sce new file mode 100644 index 000000000..e806cd600 --- /dev/null +++ b/3908/CH1/EX1.8/Ex1_8.sce @@ -0,0 +1,26 @@ +//Example 1_8 +clc; +clear; +close; + +//Given data : +D=50;// distance in m +//Case 1 +r1=20;// bubble reading at left end in divisions +r2=10;// bubble reading at right end in divisions +s1=1.865;// staff reding in m +//Case 2 +r3=10;// bubble reading at left end in divisions +r4=20;// bubble reading at right end in divisions +s2=1.785;// staff reding in m +sh1=(r1-r2)/2;// shift in divisions(Case 1) +sh2=(r4-r3)/2;// shift in divisions(Case 2) +sh=sh1+sh2;// total shift in divisions +s=s1-s2;// change in staff reading in m +n=sh;// number of divisions +l=0.002;// length in m +R=n*l*D/s;// radius of curvature of bubble in m +disp(R,"radius of curvature of bubble in m"); +S=l*206265/R;// sensitivity of bubble in s +disp(S,"sensitivity of bubble in s"); +// The answers vary due to round off error diff --git a/3908/CH1/EX1.8/Example1_8.sce b/3908/CH1/EX1.8/Example1_8.sce new file mode 100644 index 000000000..0fb917987 --- /dev/null +++ b/3908/CH1/EX1.8/Example1_8.sce @@ -0,0 +1,25 @@ +//Example 1_8 +clc; +clear; +close; + +//Given data : +D=50;// distance in m +//Case 1 +r1=20;// bubble reading at left end in divisions +r2=10;// bubble reading at right end in divisions +s1=1.865;// staff reding in m +//Case 2 +r3=10;// bubble reading at left end in divisions +r4=20;// bubble reading at right end in divisions +s2=1.785;// staff reding in m +sh1=(r1-r2)/2;// shift in divisions(Case 1) +sh2=(r4-r3)/2;// shift in divisions(Case 2) +sh=sh1+sh2;// total shift in divisions +s=s1-s2;// change in staff reading in m +n=sh;// number of divisions +l=0.002;// length in m +R=n*l*D/s;// radius of curvature in m +disp(R,"radius of curvature in m"); +S=l*206265/R;// sensitivity in s +disp(S,"sensitivity in s"); diff --git a/3908/CH10/EX10.1/Ex10_1.sce b/3908/CH10/EX10.1/Ex10_1.sce new file mode 100644 index 000000000..711155b6d --- /dev/null +++ b/3908/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,13 @@ +//Example 10_1 +clc; +clear; +close; + +//Given data : +b=6;// Width of subgrade in m +h=1.85;// Height at centre in m +s=2;// Side slope +a=b+(2*h*s);// Top width in m +A=(a+b)*(h/2);// Area of section in sq. m +disp(A,"Area of section in sq. m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.1/Example10_1.sce b/3908/CH10/EX10.1/Example10_1.sce new file mode 100644 index 000000000..3306abd33 --- /dev/null +++ b/3908/CH10/EX10.1/Example10_1.sce @@ -0,0 +1,12 @@ +//Example 10_1 +clc; +clear; +close; + +//Given data : +b=6;// Width of subgrade in m +h=1.85;// Height at centre in m +s=2;// Side slope +a=b+(2*h*s);// Top width in m +A=(a+b)*(h/2);// Area of section in sq. m +disp(A,"Area of section in sq. m"); diff --git a/3908/CH10/EX10.10/Ex10_10.sce b/3908/CH10/EX10.10/Ex10_10.sce new file mode 100644 index 000000000..d0c77a369 --- /dev/null +++ b/3908/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,39 @@ +//Example 10_10 +clc; +clear; +close; + +//Given data : +b=6;// Formation width in m +s=2;// side slope +i=20;// Interval in m +g1=214.2,r1=212.66; +g2=214.8,r2=213.16; +g3=215.1,r3=213.66; +g4=216.1,r4=214.16; +g5=216.9,r5=214.66; +g6=217.4,r6=215.16; +g7=218.2,r7=215.66; +h1=g1-r1; +h2=g2-r2; +h3=g3-r3; +h4=g4-r4; +h5=g5-r5; +h6=g6-r6; +h7=g7-r7; +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 20 m in sq. m +A3=h3*(b+(s*h3));// Area at 40 m in sq. m +A4=h4*(b+(s*h4));// Area at 60 m in sq. m +A5=h5*(b+(s*h5));// Area at 80 m in sq. m +A6=h6*(b+(s*h6));// Area at 100 m in sq. m +A7=h7*(b+(s*h7));// Area at 120 m in sq. m + +// By trapezoidal formula +V=(i/2)*(A1+A7+(2*(A2+A3+A4+A5+A6)));// Total volume in cubic m +disp(V,"Total volume by trapezoidal formula in cubic m"); + +// By prismoidal formula +V=(i/3)*(A1+A7+(4*(A2+A4+A6))+(2*(A3+A5)));// Total volume in cubic m +disp(V,"Total volume by prismoidal formula in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.10/Example10_10.sce b/3908/CH10/EX10.10/Example10_10.sce new file mode 100644 index 000000000..d0c77a369 --- /dev/null +++ b/3908/CH10/EX10.10/Example10_10.sce @@ -0,0 +1,39 @@ +//Example 10_10 +clc; +clear; +close; + +//Given data : +b=6;// Formation width in m +s=2;// side slope +i=20;// Interval in m +g1=214.2,r1=212.66; +g2=214.8,r2=213.16; +g3=215.1,r3=213.66; +g4=216.1,r4=214.16; +g5=216.9,r5=214.66; +g6=217.4,r6=215.16; +g7=218.2,r7=215.66; +h1=g1-r1; +h2=g2-r2; +h3=g3-r3; +h4=g4-r4; +h5=g5-r5; +h6=g6-r6; +h7=g7-r7; +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 20 m in sq. m +A3=h3*(b+(s*h3));// Area at 40 m in sq. m +A4=h4*(b+(s*h4));// Area at 60 m in sq. m +A5=h5*(b+(s*h5));// Area at 80 m in sq. m +A6=h6*(b+(s*h6));// Area at 100 m in sq. m +A7=h7*(b+(s*h7));// Area at 120 m in sq. m + +// By trapezoidal formula +V=(i/2)*(A1+A7+(2*(A2+A3+A4+A5+A6)));// Total volume in cubic m +disp(V,"Total volume by trapezoidal formula in cubic m"); + +// By prismoidal formula +V=(i/3)*(A1+A7+(4*(A2+A4+A6))+(2*(A3+A5)));// Total volume in cubic m +disp(V,"Total volume by prismoidal formula in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.11/Ex10_11.sce b/3908/CH10/EX10.11/Ex10_11.sce new file mode 100644 index 000000000..1c8460231 --- /dev/null +++ b/3908/CH10/EX10.11/Ex10_11.sce @@ -0,0 +1,28 @@ +//Example 10_11 +clc; +clear; +close; + +//Given data : +gl=125.96;// Ground level in m +rl=121.22;// Reduced level in m +d=gl-rl;// Depth of the tank in m +l=72; +b=48; +sl=2;// Side slope for length +sb=1.5;// Side slope for width + +// By trapezoidal formula +L=l+4.4+(4.4*sl);// Length of the tank in m +B=b+4.4+(4.4*sb);// Width of the tank in m +A1=l*b;// Area A1 in sq. m +A2=L*B;// Area A2 in sq.m +V=(A1+A2)*4.4/2;// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// By prismoidal formula +L=l+2.2+(2.2*sl);// Length of the tank in m +B=b+2.2+(2.2*sb);// Width of the tank in m +A=L*B;// Area at mid-depth in sq. m +V=(2.2/3)*(A1+A2+(4*A));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); diff --git a/3908/CH10/EX10.11/Example10_11.sce b/3908/CH10/EX10.11/Example10_11.sce new file mode 100644 index 000000000..1c8460231 --- /dev/null +++ b/3908/CH10/EX10.11/Example10_11.sce @@ -0,0 +1,28 @@ +//Example 10_11 +clc; +clear; +close; + +//Given data : +gl=125.96;// Ground level in m +rl=121.22;// Reduced level in m +d=gl-rl;// Depth of the tank in m +l=72; +b=48; +sl=2;// Side slope for length +sb=1.5;// Side slope for width + +// By trapezoidal formula +L=l+4.4+(4.4*sl);// Length of the tank in m +B=b+4.4+(4.4*sb);// Width of the tank in m +A1=l*b;// Area A1 in sq. m +A2=L*B;// Area A2 in sq.m +V=(A1+A2)*4.4/2;// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// By prismoidal formula +L=l+2.2+(2.2*sl);// Length of the tank in m +B=b+2.2+(2.2*sb);// Width of the tank in m +A=L*B;// Area at mid-depth in sq. m +V=(2.2/3)*(A1+A2+(4*A));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); diff --git a/3908/CH10/EX10.12/Ex10_12.sce b/3908/CH10/EX10.12/Ex10_12.sce new file mode 100644 index 000000000..2042ddfa7 --- /dev/null +++ b/3908/CH10/EX10.12/Ex10_12.sce @@ -0,0 +1,31 @@ +//Example 10_12 +clc; +clear; +close; + +//Given data : +b=10;// Formation width in m +s=2;// side slope +r=8;// Transverse slope +h1=2;// Central height at 0 chainage in m +h2=2.4;// Central height at 20 chainage in m +h3=3;// Central height at 60 chainage in m +a=r^2*s/((r^2)-(s^2)); +b1=(h1+(b/(2*s)))^2; +b2=(h2+(b/(2*s)))^2; +b3=(h3+(b/(2*s)))^2; +c=b^2/(4*s); +A1=(a*b1)-c;// Area at chainage 0 in sq. m +A2=(a*b2)-c;// Area at chainage 0 in sq. m +A3=(a*b3)-c;// Area at chainage 0 in sq. m + +// Volume by trapezoidal formula +i=20;// Interval in m +V=((i/2)*(A1+A2))+((i/2)*(A2+A3));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +i=20;// Interval in m +V=(i/3)*(A1+A3+(4*A2));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.12/Example10_12.sce b/3908/CH10/EX10.12/Example10_12.sce new file mode 100644 index 000000000..2042ddfa7 --- /dev/null +++ b/3908/CH10/EX10.12/Example10_12.sce @@ -0,0 +1,31 @@ +//Example 10_12 +clc; +clear; +close; + +//Given data : +b=10;// Formation width in m +s=2;// side slope +r=8;// Transverse slope +h1=2;// Central height at 0 chainage in m +h2=2.4;// Central height at 20 chainage in m +h3=3;// Central height at 60 chainage in m +a=r^2*s/((r^2)-(s^2)); +b1=(h1+(b/(2*s)))^2; +b2=(h2+(b/(2*s)))^2; +b3=(h3+(b/(2*s)))^2; +c=b^2/(4*s); +A1=(a*b1)-c;// Area at chainage 0 in sq. m +A2=(a*b2)-c;// Area at chainage 0 in sq. m +A3=(a*b3)-c;// Area at chainage 0 in sq. m + +// Volume by trapezoidal formula +i=20;// Interval in m +V=((i/2)*(A1+A2))+((i/2)*(A2+A3));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +i=20;// Interval in m +V=(i/3)*(A1+A3+(4*A2));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.13/Ex10_13.sce b/3908/CH10/EX10.13/Ex10_13.sce new file mode 100644 index 000000000..c321c38eb --- /dev/null +++ b/3908/CH10/EX10.13/Ex10_13.sce @@ -0,0 +1,42 @@ +//Example 10_13 +clc; +clear; +close; + +//Given data : +i=30;// Interval in m +j=40;// slope 1 in 40 +x=30/40;// change in reduced level at each chainage in m +g1=181.5;// Ground level at 0 chainage in m +r1=179;// Reduced level at 0 chainage in m +g2=181.8;// Ground level at 0 chainage in m +r2=r1-x;// Reduced level at 0 chainage in m +g3=182.4;// Ground level at 0 chainage in m +r3=r2-x;// Reduced level at 0 chainage in m +h1=g1-r1;// Depth of the cutting at 0 chainage in m +h2=g2-r2;// Depth of the cutting at 0 chainage in m +h3=g3-r3;// Depth of the cutting at 0 chainage in m +b=9;// Formation width in m +s=2;// side slope +r=6;// Transverse slope +// Area=(s*((b/2)^2) + r^2*((b*h)+(s*h^2)))/((r^2)-(s^2)) +a=r^2*s/((r^2)-(s^2)); +b1=(h1+(b/(2*s)))^2; +b2=(h2+(b/(2*s)))^2; +b3=(h3+(b/(2*s)))^2; +c=b^2/(4*s); +A1=(a*b1)-c;// Area at chainage 0 in sq. m +A2=(a*b2)-c;// Area at chainage 0 in sq. m +A3=(a*b3)-c;// Area at chainage 0 in sq. m + +// Volume by trapezoidal formula +V=(i/2)*((A1+A3)+(2*(A2)));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +V=(i/3)*(A1+A3+(4*A2));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); + +PC=(i*s/3)*((r^2)/((r^2)-(s^2)))*((h2-h1)^2+(h3-h2)^2);// Prismoidal Correction in cubic m +disp(PC,"Prismoidal Correction in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.13/Example10_13.sce b/3908/CH10/EX10.13/Example10_13.sce new file mode 100644 index 000000000..9d9b63ac1 --- /dev/null +++ b/3908/CH10/EX10.13/Example10_13.sce @@ -0,0 +1,41 @@ +//Example 10_13 +clc; +clear; +close; + +//Given data : +i=30;// Interval in m +j=40;// slope 1 in 40 +x=30/40;// change in reduced level at each chainage in m +g1=181.5;// Ground level at 0 chainage in m +r1=179;// Reduced level at 0 chainage in m +g2=181.8;// Ground level at 0 chainage in m +r2=r1-x;// Reduced level at 0 chainage in m +g3=182.4;// Ground level at 0 chainage in m +r3=r2-x;// Reduced level at 0 chainage in m +h1=g1-r1;// Depth of the cutting at 0 chainage in m +h2=g2-r2;// Depth of the cutting at 0 chainage in m +h3=g3-r3;// Depth of the cutting at 0 chainage in m +b=9;// Formation width in m +s=2;// side slope +r=6;// Transverse slope +// Area=(s*((b/2)^2) + r^2*((b*h)+(s*h^2)))/((r^2)-(s^2)) +a=r^2*s/((r^2)-(s^2)); +b1=(h1+(b/(2*s)))^2; +b2=(h2+(b/(2*s)))^2; +b3=(h3+(b/(2*s)))^2; +c=b^2/(4*s); +A1=(a*b1)-c;// Area at chainage 0 in sq. m +A2=(a*b2)-c;// Area at chainage 0 in sq. m +A3=(a*b3)-c;// Area at chainage 0 in sq. m + +// Volume by trapezoidal formula +V=(i/2)*((A1+A3)+(2*(A2)));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +V=(i/3)*(A1+A3+(4*A2));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); + +PC=(i*s/3)*((r^2)/((r^2)-(s^2)))*((h2-h1)^2+(h3-h2)^2);// Prismoidal Correction in cubic m +disp(PC,"Prismoidal Correction in cubic m"); diff --git a/3908/CH10/EX10.15/Ex10_15.sce b/3908/CH10/EX10.15/Ex10_15.sce new file mode 100644 index 000000000..83033a0be --- /dev/null +++ b/3908/CH10/EX10.15/Ex10_15.sce @@ -0,0 +1,23 @@ +//Example 10_15 +clc; +clear; +close; + +//Given data : +h=2;// Height along centre line in m +b=10;// Formation width in m +s=1.5;// Side slope +r=8;// Transverse slope +h1=((8*h)-(b/2))/9.5;// Height in m +h2=((b/2)+(8*h))/6.5;// Heght in m +w1=(h-h1)*8;// Width in m +w2=(h2-h)*8;// Width in m +A=((s*((b/2)^2))+((r^2)*b*h)+((r^2)*s*(h^2)))/((r^2)-(s^2));// Area od section in sq. m +E=w1*w2*(w1+w2)/(3*A*r);// Eccentricity of centroid in m +R=180;// Radius of the curve in m +a=30; +pi=22/7; +l=R*a*pi/R;// Length in m +CC=A*E*l/R;// Curvature Correction in cubic m +disp(CC,"Curvature Correction in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.15/Example10_15.sce b/3908/CH10/EX10.15/Example10_15.sce new file mode 100644 index 000000000..83033a0be --- /dev/null +++ b/3908/CH10/EX10.15/Example10_15.sce @@ -0,0 +1,23 @@ +//Example 10_15 +clc; +clear; +close; + +//Given data : +h=2;// Height along centre line in m +b=10;// Formation width in m +s=1.5;// Side slope +r=8;// Transverse slope +h1=((8*h)-(b/2))/9.5;// Height in m +h2=((b/2)+(8*h))/6.5;// Heght in m +w1=(h-h1)*8;// Width in m +w2=(h2-h)*8;// Width in m +A=((s*((b/2)^2))+((r^2)*b*h)+((r^2)*s*(h^2)))/((r^2)-(s^2));// Area od section in sq. m +E=w1*w2*(w1+w2)/(3*A*r);// Eccentricity of centroid in m +R=180;// Radius of the curve in m +a=30; +pi=22/7; +l=R*a*pi/R;// Length in m +CC=A*E*l/R;// Curvature Correction in cubic m +disp(CC,"Curvature Correction in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.16/Ex10_16.sce b/3908/CH10/EX10.16/Ex10_16.sce new file mode 100644 index 000000000..cbab866d0 --- /dev/null +++ b/3908/CH10/EX10.16/Ex10_16.sce @@ -0,0 +1,29 @@ +//Example 10_16 +clc; +clear; +close; + +//Given data : +c1=260;// Contour 1 +c2=258;// Contour 2 +i=c1-c2;// Interval between contour +// scale 1 in 4000 => 1 cm = 40 m +x=40^2;// This factor x is multiplied with areas measured by planimeter to get area in sq. m +A1=400*x;// Area of contour 260 in m +A2=367.5*x;// Area of contour 258 in m +A3=327.5*x;// Area of contour 256 in m +A4=310*x;// Area of contour 254 in m +A5=277.5*x;// Area of contour 252 in m +A6=243.75*x;// Area of contour 250 in m +A7=205*x;// Area of contour 248 in m +A8=177.5*x;// Area of contour 246 in m +A9=147.5*x;// Area of contour 244 in m +A10=115*x;// Area of contour 242 in m +A11=0*x;// Area of contour 240 in m +// Volume by trapezoidal formula +V=(i/2)*(A1+A11+(2*(A2+A3+A4+A5+A6+A7+A8+A9+A10)));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +V=(i/3)*(A1+A11+(4*(A2+A4+A6+A8+A10))+(2*(A3+A5+A7+A9)));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); diff --git a/3908/CH10/EX10.16/Example10_16.sce b/3908/CH10/EX10.16/Example10_16.sce new file mode 100644 index 000000000..cbab866d0 --- /dev/null +++ b/3908/CH10/EX10.16/Example10_16.sce @@ -0,0 +1,29 @@ +//Example 10_16 +clc; +clear; +close; + +//Given data : +c1=260;// Contour 1 +c2=258;// Contour 2 +i=c1-c2;// Interval between contour +// scale 1 in 4000 => 1 cm = 40 m +x=40^2;// This factor x is multiplied with areas measured by planimeter to get area in sq. m +A1=400*x;// Area of contour 260 in m +A2=367.5*x;// Area of contour 258 in m +A3=327.5*x;// Area of contour 256 in m +A4=310*x;// Area of contour 254 in m +A5=277.5*x;// Area of contour 252 in m +A6=243.75*x;// Area of contour 250 in m +A7=205*x;// Area of contour 248 in m +A8=177.5*x;// Area of contour 246 in m +A9=147.5*x;// Area of contour 244 in m +A10=115*x;// Area of contour 242 in m +A11=0*x;// Area of contour 240 in m +// Volume by trapezoidal formula +V=(i/2)*(A1+A11+(2*(A2+A3+A4+A5+A6+A7+A8+A9+A10)));// Volume by trapezoidal formula in cubic m +disp(V,"Volume by trapezoidal formula in cubic m"); + +// Volume by prismoidal formula +V=(i/3)*(A1+A11+(4*(A2+A4+A6+A8+A10))+(2*(A3+A5+A7+A9)));// Volume by prismoidal formula in cubic m +disp(V,"Volume by prismoidal formula in cubic m"); diff --git a/3908/CH10/EX10.17/Ex10_17.sce b/3908/CH10/EX10.17/Ex10_17.sce new file mode 100644 index 000000000..76e4ef016 --- /dev/null +++ b/3908/CH10/EX10.17/Ex10_17.sce @@ -0,0 +1,23 @@ +//Example 10_17 +clc; +clear; +close; + +//Given data : +p=121.38;// Reduced level at P in m +q=119.64;// Reduced level at Q in m +r=120.32;// Reduced level at R in m +s=121.68;// Reduced level at S in m +rl=118.17;// Reduced level of excavation in m +l1=3;// Length of PS in m +l2=7.5;// Length of QR in m +d=6;// Distance between PS and QR in m +A=(l1+l2)*d/2;// Area of excavation in sq. m +hp=p-rl;// Height at P in m +hq=q-rl;// Height at Q in m +hr=r-rl;// Height at R in m +hs=s-rl;// Height at S in m +ah=(hp+hq+hr+hs)/4;// Average height in m +V=A*ah;// Volume in cubic m +disp(V,"Volume in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.17/Example10_17.sce b/3908/CH10/EX10.17/Example10_17.sce new file mode 100644 index 000000000..82953f7d3 --- /dev/null +++ b/3908/CH10/EX10.17/Example10_17.sce @@ -0,0 +1,22 @@ +//Example 10_17 +clc; +clear; +close; + +//Given data : +p=121.38;// Reduced level at P in m +q=119.64;// Reduced level at Q in m +r=120.32;// Reduced level at R in m +s=121.68;// Reduced level at S in m +rl=118.17;// Reduced level of excavation in m +l1=3;// Length of PS in m +l2=7.5;// Length of QR in m +d=6;// Distance between PS and QR in m +A=(l1+l2)*d/2;// Area of excavation in sq. m +hp=p-rl;// Height at P in m +hq=q-rl;// Height at Q in m +hr=r-rl;// Height at R in m +hs=s-rl;// Height at S in m +ah=(hp+hq+hr+hs)/4;// Average height in m +V=A*ah;// Volume in cubic m +disp(V,"Volume in cubic m"); diff --git a/3908/CH10/EX10.18/Ex10_18.sce b/3908/CH10/EX10.18/Ex10_18.sce new file mode 100644 index 000000000..70cc03dbe --- /dev/null +++ b/3908/CH10/EX10.18/Ex10_18.sce @@ -0,0 +1,23 @@ +//Example 10_18 +clc; +clear; +close; + +//Given data : +A=2.8;// Depth at point A in m +B=3.2;// Depth at point B in m +C=2.6;// Depth at point C in m +D=2.6;// Depth at point D in m +E=3.1;// Depth at point E in m +F=2.4;// Depth at point F in m +G=2.4;// Depth at point G in m +H=2.9;// Depth at point H in m +I=2.2;// Depth at point I in m +h1=A+C+G+I;// A,C,G,I are used once +h2=B+D+F+H;// B,D,F,H are used twice +h3=0;// Nothing is used thrice +h4=E;// E is used four times +a=10;// side of square in m +A=a*a;// Area in sq. m +V=A*(h1+(2*h2)+(3*h3)+(4*h4))/4;// Volume of excavation in cubic m +disp(V,"Volume of excavation in cubic m"); diff --git a/3908/CH10/EX10.18/Example10_18.sce b/3908/CH10/EX10.18/Example10_18.sce new file mode 100644 index 000000000..70cc03dbe --- /dev/null +++ b/3908/CH10/EX10.18/Example10_18.sce @@ -0,0 +1,23 @@ +//Example 10_18 +clc; +clear; +close; + +//Given data : +A=2.8;// Depth at point A in m +B=3.2;// Depth at point B in m +C=2.6;// Depth at point C in m +D=2.6;// Depth at point D in m +E=3.1;// Depth at point E in m +F=2.4;// Depth at point F in m +G=2.4;// Depth at point G in m +H=2.9;// Depth at point H in m +I=2.2;// Depth at point I in m +h1=A+C+G+I;// A,C,G,I are used once +h2=B+D+F+H;// B,D,F,H are used twice +h3=0;// Nothing is used thrice +h4=E;// E is used four times +a=10;// side of square in m +A=a*a;// Area in sq. m +V=A*(h1+(2*h2)+(3*h3)+(4*h4))/4;// Volume of excavation in cubic m +disp(V,"Volume of excavation in cubic m"); diff --git a/3908/CH10/EX10.19/Ex10_19.sce b/3908/CH10/EX10.19/Ex10_19.sce new file mode 100644 index 000000000..f120e2e85 --- /dev/null +++ b/3908/CH10/EX10.19/Ex10_19.sce @@ -0,0 +1,50 @@ +//Example 10_19 +clc; +clear; +close; + +//Given data : +a=103.71;// Reduced level at A in m +b=103.85;// Reduced level at B in m +c=104.35;// Reduced level at C in m +d=104.95;// Reduced level at D in m +e=104.09;// Reduced level at E in m +f=104.05;// Reduced level at F in m +g=104.25;// Reduced level at G in m +h=104.65;// Reduced level at H in m +i=104.95;// Reduced level at I in m +j=104.29;// Reduced level at J in m +k=104.45;// Reduced level at K in m +l=104.95;// Reduced level at L in m +m=104.75;// Reduced level at M in m +n=105;// Reduced level at N in m +o=104.7;// Reduced level at O in m +p=105.05;// Reduced level at P in m +q=104.85;// Reduced level at Q in m +rl=101.85;// Reduced level of excavation in m +A=a-rl;// Depth at A in m +B=b-rl;// Depth at B in m +C=c-rl;// Depth at C in m +D=d-rl;// Depth at D in m +E=e-rl;// Depth at E in m +F=f-rl;// Depth at F in m +G=g-rl;// Depth at G in m +H=h-rl;// Depth at H in m +I=i-rl;// Depth at I in m +J=j-rl;// Depth at J in m +K=k-rl;// Depth at K in m +L=l-rl;// Depth at L in m +M=m-rl;// Depth at M in m +N=n-rl;// Depth at N in m +O=o-rl;// Depth at O in m +P=p-rl;// Depth at P in m +Q=q-rl;// Depth at Q in m +h1=A+E+J+N+Q+O;// A,E,J,N,Q,O are used once +h2=B+C+D+F+K+P;// B,C,D,F,K,P are used twice +h3=I+M;// I,M are used thrice +h4=G+H+L;// G,H,L is used four times +a=10;// side of square in m +A=a*a;// Area in sq. m +V=A*(h1+(2*h2)+(3*h3)+(4*h4))/4;// Volume of excavation in cubic m +disp(V,"Volume of excavation in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.19/Example10_19.sce b/3908/CH10/EX10.19/Example10_19.sce new file mode 100644 index 000000000..f120e2e85 --- /dev/null +++ b/3908/CH10/EX10.19/Example10_19.sce @@ -0,0 +1,50 @@ +//Example 10_19 +clc; +clear; +close; + +//Given data : +a=103.71;// Reduced level at A in m +b=103.85;// Reduced level at B in m +c=104.35;// Reduced level at C in m +d=104.95;// Reduced level at D in m +e=104.09;// Reduced level at E in m +f=104.05;// Reduced level at F in m +g=104.25;// Reduced level at G in m +h=104.65;// Reduced level at H in m +i=104.95;// Reduced level at I in m +j=104.29;// Reduced level at J in m +k=104.45;// Reduced level at K in m +l=104.95;// Reduced level at L in m +m=104.75;// Reduced level at M in m +n=105;// Reduced level at N in m +o=104.7;// Reduced level at O in m +p=105.05;// Reduced level at P in m +q=104.85;// Reduced level at Q in m +rl=101.85;// Reduced level of excavation in m +A=a-rl;// Depth at A in m +B=b-rl;// Depth at B in m +C=c-rl;// Depth at C in m +D=d-rl;// Depth at D in m +E=e-rl;// Depth at E in m +F=f-rl;// Depth at F in m +G=g-rl;// Depth at G in m +H=h-rl;// Depth at H in m +I=i-rl;// Depth at I in m +J=j-rl;// Depth at J in m +K=k-rl;// Depth at K in m +L=l-rl;// Depth at L in m +M=m-rl;// Depth at M in m +N=n-rl;// Depth at N in m +O=o-rl;// Depth at O in m +P=p-rl;// Depth at P in m +Q=q-rl;// Depth at Q in m +h1=A+E+J+N+Q+O;// A,E,J,N,Q,O are used once +h2=B+C+D+F+K+P;// B,C,D,F,K,P are used twice +h3=I+M;// I,M are used thrice +h4=G+H+L;// G,H,L is used four times +a=10;// side of square in m +A=a*a;// Area in sq. m +V=A*(h1+(2*h2)+(3*h3)+(4*h4))/4;// Volume of excavation in cubic m +disp(V,"Volume of excavation in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.2/Ex10_2.sce b/3908/CH10/EX10.2/Ex10_2.sce new file mode 100644 index 000000000..aaedd995c --- /dev/null +++ b/3908/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,14 @@ +//Example 10_2 +clc; +clear; +close; + +//Given data : +// Area = {s*((b/2)^2)+((b/2)^2)*((b*h)+(s*h^2))}/((r^2)-(s^2)) +s=1.5;// Side slope +b=8;// Width in m +h=2.8;// Height in m +r=4;// transverse slope +A = (s*((b/2)^2)+((b/2)^2)*((b*h)+(s*h^2)))/((r^2)-(s^2));// Area in sq. m +disp(A,"Area in sq. m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.2/Example10_2.sce b/3908/CH10/EX10.2/Example10_2.sce new file mode 100644 index 000000000..b3a33320f --- /dev/null +++ b/3908/CH10/EX10.2/Example10_2.sce @@ -0,0 +1,13 @@ +//Example 10_2 +clc; +clear; +close; + +//Given data : +// Area = {s*((b/2)^2)+((b/2)^2)*((b*h)+(s*h^2))}/((r^2)-(s^2)) +s=1.5;// Side slope +b=8;// Width in m +h=2.8;// Height in m +r=4;// transverse slope +A = (s*((b/2)^2)+((b/2)^2)*((b*h)+(s*h^2)))/((r^2)-(s^2));// Area in sq. m +disp(A,"Area in sq. m"); diff --git a/3908/CH10/EX10.20/Ex10_20.sce b/3908/CH10/EX10.20/Ex10_20.sce new file mode 100644 index 000000000..56496f5a7 --- /dev/null +++ b/3908/CH10/EX10.20/Ex10_20.sce @@ -0,0 +1,33 @@ +//Example 10_20 +clc; +clear; +close; + +//Given data : +a=30;// side of square in m +A=a*15/2;// Base area in sq. m +// Base area for each triangular prism is the same +h1=2.85;// Height at P in m +h2=2.45;// Height at Q in m +h3=3.15;// Height at R in m +h4=3.55;// Height at S in m +h5=2.95;// Height at T in m + +// Prism PQT +H1=(h1+h2+h5)/3;// Average height in m +V1=H1*A;// Volume in cubic m + +// Prism QTR +H2=(h2+h5+h3)/3;// Average height in m +V2=H2*A;// Volume in cubic m + +// Prism STR +H3=(h4+h5+h3)/3;// Average height in m +V3=H3*A;// Volume in cubic m + +// Prism PTS +H4=(h1+h5+h4)/3;// Average height in m +V4=H4*A;// Volume in cubic m + +V=V1+V2+V3+V4;// Total volume of excavation in cubic m +disp(V,"Total volume of excavation in cubic m"); diff --git a/3908/CH10/EX10.20/Example10_20.sce b/3908/CH10/EX10.20/Example10_20.sce new file mode 100644 index 000000000..56496f5a7 --- /dev/null +++ b/3908/CH10/EX10.20/Example10_20.sce @@ -0,0 +1,33 @@ +//Example 10_20 +clc; +clear; +close; + +//Given data : +a=30;// side of square in m +A=a*15/2;// Base area in sq. m +// Base area for each triangular prism is the same +h1=2.85;// Height at P in m +h2=2.45;// Height at Q in m +h3=3.15;// Height at R in m +h4=3.55;// Height at S in m +h5=2.95;// Height at T in m + +// Prism PQT +H1=(h1+h2+h5)/3;// Average height in m +V1=H1*A;// Volume in cubic m + +// Prism QTR +H2=(h2+h5+h3)/3;// Average height in m +V2=H2*A;// Volume in cubic m + +// Prism STR +H3=(h4+h5+h3)/3;// Average height in m +V3=H3*A;// Volume in cubic m + +// Prism PTS +H4=(h1+h5+h4)/3;// Average height in m +V4=H4*A;// Volume in cubic m + +V=V1+V2+V3+V4;// Total volume of excavation in cubic m +disp(V,"Total volume of excavation in cubic m"); diff --git a/3908/CH10/EX10.21/Ex10_21.sce b/3908/CH10/EX10.21/Ex10_21.sce new file mode 100644 index 000000000..384b6590b --- /dev/null +++ b/3908/CH10/EX10.21/Ex10_21.sce @@ -0,0 +1,55 @@ +//Example 10_21 +clc; +clear; +close; + +//Given data : + +// PQRS +l1=52;// Length in m +b1=24;// Width in m +A1=l1*b1;// Base area in sq. m +h1=2.5;// Height in m +h2=2.5;// Height in m +h3=5.8;// Height in m +h4=5.8;// Height in m +H1=(h1+h2+h3+h4)/4;// Average height in m +V1=H1*A1;// Volume in cubic m + +// QUVR +l2=b1;// Length in m +b2=l2+(2*11.6);// Width in m +A2=(l2+b2)*11.6/2;// Base area in sq. m +h1=5.8;// Height in m +h2=5.8;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H2=(h1+h2+h3+h4)/4;// Average height in m +V2=H2*A2;// Volume in cubic m + +// TPSW +l3=b1;// Length in m +b3=l3+5+5;// Width in m +A3=(l3+b3)*5/2;// Base area in sq. m +h1=2.5;// Height in m +h2=2.5;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H3=(h1+h2+h3+h4)/4;// Average height in m +V3=H3*A3;// Volume in cubic m + +// TUQP +l4=l1+5+11.6;// Length in m +A4=(l4*(11.6+5)/2)-(((5^2)+(11.6^2))/2);// Base area in sq. m +h1=5.8;// Height in m +h2=11.6;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H4=(h1+h2+h3+h4)/4;// Average height in m +V4=H4*A4;// Volume in cubic m + +// WSRV +V5=V4;// Volume in cubic m +V=V1+V2+V3+V4+V5;// Total volume in cubic m +disp(V,"Total volume in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.21/Example10_21.sce b/3908/CH10/EX10.21/Example10_21.sce new file mode 100644 index 000000000..384b6590b --- /dev/null +++ b/3908/CH10/EX10.21/Example10_21.sce @@ -0,0 +1,55 @@ +//Example 10_21 +clc; +clear; +close; + +//Given data : + +// PQRS +l1=52;// Length in m +b1=24;// Width in m +A1=l1*b1;// Base area in sq. m +h1=2.5;// Height in m +h2=2.5;// Height in m +h3=5.8;// Height in m +h4=5.8;// Height in m +H1=(h1+h2+h3+h4)/4;// Average height in m +V1=H1*A1;// Volume in cubic m + +// QUVR +l2=b1;// Length in m +b2=l2+(2*11.6);// Width in m +A2=(l2+b2)*11.6/2;// Base area in sq. m +h1=5.8;// Height in m +h2=5.8;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H2=(h1+h2+h3+h4)/4;// Average height in m +V2=H2*A2;// Volume in cubic m + +// TPSW +l3=b1;// Length in m +b3=l3+5+5;// Width in m +A3=(l3+b3)*5/2;// Base area in sq. m +h1=2.5;// Height in m +h2=2.5;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H3=(h1+h2+h3+h4)/4;// Average height in m +V3=H3*A3;// Volume in cubic m + +// TUQP +l4=l1+5+11.6;// Length in m +A4=(l4*(11.6+5)/2)-(((5^2)+(11.6^2))/2);// Base area in sq. m +h1=5.8;// Height in m +h2=11.6;// Height in m +h3=0;// Height in m +h4=0;// Height in m +H4=(h1+h2+h3+h4)/4;// Average height in m +V4=H4*A4;// Volume in cubic m + +// WSRV +V5=V4;// Volume in cubic m +V=V1+V2+V3+V4+V5;// Total volume in cubic m +disp(V,"Total volume in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.3/Ex10_3.sce b/3908/CH10/EX10.3/Ex10_3.sce new file mode 100644 index 000000000..bb4a94807 --- /dev/null +++ b/3908/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,25 @@ +//Example 10_3 +clc; +clear; +close; + +//Given data : +b=16;// Width in m +s=1;// Side slope +r=4;// Transverse slope +h=1;// Height at mid-section in m +h1=((b/2)-(h*r))/(r-s);// Height 1 in m +h2=((b/2)+(h*r))/(r-s);// Height 2 in m +w1=(b/2)+(h1*s);// Width 1 in m +w2=(b/2)+(h2*s);// Width 2 in m +// Area of the section = area of triangle OAC + area of triangle OBD +// The bases of triangles OAC and OBC are AO and OB, the lengths of which can be determined from the principle of similarity of triangles +// 4/(4/3)=(8+x)/(8-x) +// On simplifying we get 16x = 64 +x=64/16;// Distance by which O is shifted from centre in m +AO=8-x;// Length of AO in m +OB=8+x;// Length of OB in m +A=(1/2)*AO*h1*s;// Area in filling in sq. m +disp(A,"Area in filling in sq. m"); +A=(1/2)*OB*h2*s;// Area in cutting in sq. m +disp(A,"Area in cutting in sq. m"); diff --git a/3908/CH10/EX10.3/Example10_3.sce b/3908/CH10/EX10.3/Example10_3.sce new file mode 100644 index 000000000..bb4a94807 --- /dev/null +++ b/3908/CH10/EX10.3/Example10_3.sce @@ -0,0 +1,25 @@ +//Example 10_3 +clc; +clear; +close; + +//Given data : +b=16;// Width in m +s=1;// Side slope +r=4;// Transverse slope +h=1;// Height at mid-section in m +h1=((b/2)-(h*r))/(r-s);// Height 1 in m +h2=((b/2)+(h*r))/(r-s);// Height 2 in m +w1=(b/2)+(h1*s);// Width 1 in m +w2=(b/2)+(h2*s);// Width 2 in m +// Area of the section = area of triangle OAC + area of triangle OBD +// The bases of triangles OAC and OBC are AO and OB, the lengths of which can be determined from the principle of similarity of triangles +// 4/(4/3)=(8+x)/(8-x) +// On simplifying we get 16x = 64 +x=64/16;// Distance by which O is shifted from centre in m +AO=8-x;// Length of AO in m +OB=8+x;// Length of OB in m +A=(1/2)*AO*h1*s;// Area in filling in sq. m +disp(A,"Area in filling in sq. m"); +A=(1/2)*OB*h2*s;// Area in cutting in sq. m +disp(A,"Area in cutting in sq. m"); diff --git a/3908/CH10/EX10.4/Ex10_4.sce b/3908/CH10/EX10.4/Ex10_4.sce new file mode 100644 index 000000000..d85c2ab66 --- /dev/null +++ b/3908/CH10/EX10.4/Ex10_4.sce @@ -0,0 +1,18 @@ +//Example 10_4 +clc; +clear; +close; + +//Given data : +b=9.2;// Formation width in m +s=2;// Side slope +r1=8;// Transverse slope of higher half +r2=15;// Transverse slope of lower half +h=2.15;// Height at mid-section in m +h1=((h*r1)-(b/2))/(r1+s);// Height 1 in m +h2=((b/2)+(h*r2))/(r2-s);// Height 2 in m +w1=(b/2)+(h1*s);// Width 1 in m +w2=(b/2)+(h2*s);// Width 2 in m +A=((h1+h2)*b/4)+((w1+w2)*h/2);// Area in sq. m +disp(A,"Area in sq. m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.4/Example10_4.sce b/3908/CH10/EX10.4/Example10_4.sce new file mode 100644 index 000000000..a9558ed67 --- /dev/null +++ b/3908/CH10/EX10.4/Example10_4.sce @@ -0,0 +1,17 @@ +//Example 10_4 +clc; +clear; +close; + +//Given data : +b=9.2;// Formation width in m +s=2;// Side slope +r1=8;// Transverse slope of higher half +r2=15;// Transverse slope of lower half +h=2.15;// Height at mid-section in m +h1=((h*r1)-(b/2))/(r1+s);// Height 1 in m +h2=((b/2)+(h*r2))/(r2-s);// Height 2 in m +w1=(b/2)+(h1*s);// Width 1 in m +w2=(b/2)+(h2*s);// Width 2 in m +A=((h1+h2)*b/4)+((w1+w2)*h/2);// Area in sq. m +disp(A,"Area in sq. m"); diff --git a/3908/CH10/EX10.5/Ex10_5.sce b/3908/CH10/EX10.5/Ex10_5.sce new file mode 100644 index 000000000..c692a05d8 --- /dev/null +++ b/3908/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,27 @@ +//Example 10_5 +clc; +clear; +close; + +//Given data : +// Area of triange AFD +b=4;// Breath in m +h=5.6;// Height in m +A1=1/2*b*h;// Area of AFD in sq. m +// Area of trapezium AFEO +a=5.6;// Side 1 in m +b=7.8;// Side 2 in m +h=4;// Height in m +A2=1/2*(a+b)*h;// Area of AFEO in sq. m +// Area of trapezium OEDB +a=7.8;// Side 1 in m +b=8.2;// Side 2 in m +h=4;// Height in m +A3=1/2*(a+b)*h;// Area of AFEO in sq. m +// Area of triange BDG +b=4;// Breath in m +h=8.2;// Height in m +A4=1/2*b*h;// Area of AFD in sq. m +A=A1+A2+A3+A4;// Total Area in sq. m +disp(A,"Total Area in sq. m"); +//The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.5/Example10_5.sce b/3908/CH10/EX10.5/Example10_5.sce new file mode 100644 index 000000000..c692a05d8 --- /dev/null +++ b/3908/CH10/EX10.5/Example10_5.sce @@ -0,0 +1,27 @@ +//Example 10_5 +clc; +clear; +close; + +//Given data : +// Area of triange AFD +b=4;// Breath in m +h=5.6;// Height in m +A1=1/2*b*h;// Area of AFD in sq. m +// Area of trapezium AFEO +a=5.6;// Side 1 in m +b=7.8;// Side 2 in m +h=4;// Height in m +A2=1/2*(a+b)*h;// Area of AFEO in sq. m +// Area of trapezium OEDB +a=7.8;// Side 1 in m +b=8.2;// Side 2 in m +h=4;// Height in m +A3=1/2*(a+b)*h;// Area of AFEO in sq. m +// Area of triange BDG +b=4;// Breath in m +h=8.2;// Height in m +A4=1/2*b*h;// Area of AFD in sq. m +A=A1+A2+A3+A4;// Total Area in sq. m +disp(A,"Total Area in sq. m"); +//The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.6/Ex10_6.sce b/3908/CH10/EX10.6/Ex10_6.sce new file mode 100644 index 000000000..feac7c9bd --- /dev/null +++ b/3908/CH10/EX10.6/Ex10_6.sce @@ -0,0 +1,13 @@ +//Example 10_6 +clc; +clear; +close; + +//Given data : +h=2.4;// Central height in m +b=12;// Formation width in m +s=1.5;// side slope +l=200;// Length in m +A=h*(b+(s*h));// Area in sq. m +V=A*l;// Volume in cubic m +disp(V,"Volume in cubic m"); diff --git a/3908/CH10/EX10.6/Example10_6.sce b/3908/CH10/EX10.6/Example10_6.sce new file mode 100644 index 000000000..feac7c9bd --- /dev/null +++ b/3908/CH10/EX10.6/Example10_6.sce @@ -0,0 +1,13 @@ +//Example 10_6 +clc; +clear; +close; + +//Given data : +h=2.4;// Central height in m +b=12;// Formation width in m +s=1.5;// side slope +l=200;// Length in m +A=h*(b+(s*h));// Area in sq. m +V=A*l;// Volume in cubic m +disp(V,"Volume in cubic m"); diff --git a/3908/CH10/EX10.7/Ex10_7.sce b/3908/CH10/EX10.7/Ex10_7.sce new file mode 100644 index 000000000..1002be18c --- /dev/null +++ b/3908/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,20 @@ +//Example 10_7 +clc; +clear; +close; + +//Given data : +b=8.8;// Formation width in m +s=1.5;// side slope +i=20;// Interval in m +h1=1.8;// Height at centre at 0 m in m +h2=2.4;// Height at centre at 20 m in m +h3=3.0;// Height at centre at 40 m in m +h4=3.6;// Height at centre at 60 m in m +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 20 m in sq. m +A3=h3*(b+(s*h3));// Area at 40 m in sq. m +A4=h4*(b+(s*h4));// Area at 60 m in sq. m +V=i*(((A1+A4)/2)+A2+A3);// Total volume in cubic m +disp(V,"Total volume in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.7/Example10_7.sce b/3908/CH10/EX10.7/Example10_7.sce new file mode 100644 index 000000000..1002be18c --- /dev/null +++ b/3908/CH10/EX10.7/Example10_7.sce @@ -0,0 +1,20 @@ +//Example 10_7 +clc; +clear; +close; + +//Given data : +b=8.8;// Formation width in m +s=1.5;// side slope +i=20;// Interval in m +h1=1.8;// Height at centre at 0 m in m +h2=2.4;// Height at centre at 20 m in m +h3=3.0;// Height at centre at 40 m in m +h4=3.6;// Height at centre at 60 m in m +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 20 m in sq. m +A3=h3*(b+(s*h3));// Area at 40 m in sq. m +A4=h4*(b+(s*h4));// Area at 60 m in sq. m +V=i*(((A1+A4)/2)+A2+A3);// Total volume in cubic m +disp(V,"Total volume in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.8/Ex10_8.sce b/3908/CH10/EX10.8/Ex10_8.sce new file mode 100644 index 000000000..a7ddd0b49 --- /dev/null +++ b/3908/CH10/EX10.8/Ex10_8.sce @@ -0,0 +1,29 @@ +//Example 10_8 +clc; +clear; +close; + +//Given data : +b=7.5;// Formation width in m +s=2;// side slope +i=30;// Interval in m +h1=1.8;// Height at centre at 0 m in m +h2=2.175;// Height at centre at 30 m in m +h3=2.55;// Height at centre at 60 m in m +h4=2.925;// Height at centre at 90 m in m +h5=3;// Height at centre at 120 m in m +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 30 m in sq. m +A3=h3*(b+(s*h3));// Area at 60 m in sq. m +A4=h4*(b+(s*h4));// Area at 90 m in sq. m +A5=h5*(b+(s*h5));// Area at 120 m in sq. m + +// By prismoidal formula +V=(i/3)*(A1+A5+(4*(A2+A4))+(2*A3));// Total volume in cubic m +disp(V,"Total volume by prismoidal formula in cubic m"); +// The answers vary due to round off error + +// By trapezoidal formula +V=(i/2)*(A1+A5+(2*(A2+A3+A4)));// Total volume in cubic m +disp(V,"Total volume by trapezoidal formula in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.8/Example10_8.sce b/3908/CH10/EX10.8/Example10_8.sce new file mode 100644 index 000000000..d938e1611 --- /dev/null +++ b/3908/CH10/EX10.8/Example10_8.sce @@ -0,0 +1,28 @@ +//Example 10_8 +clc; +clear; +close; + +//Given data : +b=7.5;// Formation width in m +s=2;// side slope +i=30;// Interval in m +h1=1.8;// Height at centre at 0 m in m +h2=2.175;// Height at centre at 30 m in m +h3=2.55;// Height at centre at 60 m in m +h4=2.925;// Height at centre at 90 m in m +h5=3;// Height at centre at 120 m in m +A1=h1*(b+(s*h1));// Area at 0 m in sq. m +A2=h2*(b+(s*h2));// Area at 30 m in sq. m +A3=h3*(b+(s*h3));// Area at 60 m in sq. m +A4=h4*(b+(s*h4));// Area at 90 m in sq. m +A5=h5*(b+(s*h5));// Area at 120 m in sq. m + +// By prismoidal formula +V=(i/3)*(A1+A5+(4*(A2+A4))+(2*A3));// Total volume in cubic m +disp(V,"Total volume by prismoidal formula in cubic m"); + +// By trapezoidal formula +V=(i/2)*(A1+A5+(2*(A2+A3+A4)));// Total volume in cubic m +disp(V,"Total volume by trapezoidal formula in cubic m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH10/EX10.9/Ex10_9.sce b/3908/CH10/EX10.9/Ex10_9.sce new file mode 100644 index 000000000..352e8db5c --- /dev/null +++ b/3908/CH10/EX10.9/Ex10_9.sce @@ -0,0 +1,19 @@ +//Example 10_9 +clc; +clear; +close; + +//Given data : +l=120;// Length in m +s=2;// Side slope +r=20;// Transverse slope +b=5;// Formation width in m +h=2.2;// Central height in m +// Area=(s*((b/2)^2) + r^2*((b*h)+(s*h^2)))/((r^2)-(s^2)) +a=s*((b/2)^2); +b=r^2*((b*h)+(s*h^2)); +c=(r^2)-(s^2); +A=(a+b)/c;// Area in sq. m +V=A*l;// Volume of earthwork in cubic m +disp(V,"Volume of earthwork in cubic m"); +// The answers vary due to round off error diff --git a/3908/CH10/EX10.9/Example10_9.sce b/3908/CH10/EX10.9/Example10_9.sce new file mode 100644 index 000000000..e2461bf61 --- /dev/null +++ b/3908/CH10/EX10.9/Example10_9.sce @@ -0,0 +1,18 @@ +//Example 10_9 +clc; +clear; +close; + +//Given data : +l=120;// Length in m +s=2;// Side slope +r=20;// Transverse slope +b=5;// Formation width in m +h=2.2;// Central height in m +// Area=(s*((b/2)^2) + r^2*((b*h)+(s*h^2)))/((r^2)-(s^2)) +a=s*((b/2)^2); +b=r^2*((b*h)+(s*h^2)); +c=(r^2)-(s^2); +A=(a+b)/c;// Area in sq. m +V=A*l;// Volume of earthwork in cubic m +disp(V,"Volume of earthwork in cubic m"); diff --git a/3908/CH12/EX12.1/Ex12_1.sce b/3908/CH12/EX12.1/Ex12_1.sce new file mode 100644 index 000000000..50c72d3b0 --- /dev/null +++ b/3908/CH12/EX12.1/Ex12_1.sce @@ -0,0 +1,30 @@ +//Example 12_1 +clc; +clear; +close; + +//Given data : +d=100;// Distance between points A and B in m +A=2.340;// Reading at point A in m +B=1.795;// Reading at point B in m +e=A-B;// True difference in elevation in m +A1=1.985;// Reading at point A when held at C in m +B1=1.435;// Reading at point B when held at C in m +ec=A1-B1;// Apparent difference in elevation when held at C in m +A=1.435;// Reading at A in m +// Add the true difference with A to get reading B +B=A+e;// Reading at B in m +disp(A,"Reading at A in m"); +disp(B,"Reading at B in m"); +if B1 f0=N-7.3 +// N=f0+7.3 +// K=(f*f0)/((f+f0-N)*i) +// K=(f*f0)/((f+f0-f0-7.3)*i) +// Therefore +f0=K*(f-a)*i/f;// Focal length of anallactic lens in cm +disp(f0,"Focal length of anallactic lens in cm"); +N=f0+a;// Distance between anallactic lens and objective lens in cm +disp(N,"Distance between anallactic lens and objective lens in cm"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.16/Example14_16.sce b/3908/CH14/EX14.16/Example14_16.sce new file mode 100644 index 000000000..0bb65769c --- /dev/null +++ b/3908/CH14/EX14.16/Example14_16.sce @@ -0,0 +1,24 @@ +//Example 14_16 +clc; +clear; +close; + +//Given data +f=24;// Focal length of objective lens in cm +d=10.5;// Distance from objective lens to vertical axis in cm +K=100;// Multiplying constant +i=0.17;// Stadia interval in cm +// N=f0+(f*d/(f+d)) +// f0=N-(f*d/(f+d)) +// Let a=(f*d/(f+d)), then +a=(f*d/(f+d)); +// f0=N-a => f0=N-7.3 +// N=f0+7.3 +// K=(f*f0)/((f+f0-N)*i) +// K=(f*f0)/((f+f0-f0-7.3)*i) +// Therefore +f0=K*(f-a)*i/f;// Focal length of anallactic lens in cm +disp(f0,"Focal length of anallactic lens in cm"); +N=f0+a;// Distance between anallactic lens and objective lens in cm +disp(N,"Distance between anallactic lens and objective lens in cm"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.17/Ex14_17.sce b/3908/CH14/EX14.17/Ex14_17.sce new file mode 100644 index 000000000..2f382612c --- /dev/null +++ b/3908/CH14/EX14.17/Ex14_17.sce @@ -0,0 +1,36 @@ +//Example 14_17 +clc; +clear; +close; + +//Given data +r1=1; +r2=4; +s1=r2-r1;// Intercept in m +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +d=6;// Degree +m=15;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +D=s1/(tand(teta2)-tand(teta1));// Horizontal distance PQ in m +disp(D,"Horizontal distance PQ in m"); +V=D*tand(teta1);// Difference in height in m +RL1=985.55;// RL of BM in m +a=2.345;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V-r1;// RL of P in m +disp(RL2,"RL of P in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.17/Example14_17.sce b/3908/CH14/EX14.17/Example14_17.sce new file mode 100644 index 000000000..1e3208714 --- /dev/null +++ b/3908/CH14/EX14.17/Example14_17.sce @@ -0,0 +1,35 @@ +//Example 14_17 +clc; +clear; +close; + +//Given data +r1=1; +r2=4; +s1=r2-r1;// Intercept in m +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +d=6;// Degree +m=15;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +D=s1/(tand(teta2)-tand(teta1));// Horizontal distance PQ in m +disp(D,"Horizontal distance PQ in m"); +V=D*tand(teta1);// Difference in height in m +RL1=985.55;// RL of BM in m +a=2.345;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V-r1;// RL of P in m +disp(RL2,"RL of P in m"); diff --git a/3908/CH14/EX14.18/Ex14_18.sce b/3908/CH14/EX14.18/Ex14_18.sce new file mode 100644 index 000000000..82505a81b --- /dev/null +++ b/3908/CH14/EX14.18/Ex14_18.sce @@ -0,0 +1,36 @@ +//Example 14_18 +clc; +clear; +close; + +//Given data +r1=1; +r2=5; +s1=r2-r1;// Intercept in m +d=2;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +d=3;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +D=s1/(tand(teta1)+tand(teta2));// Horizontal distance PQ in m +disp(D,"Horizontal distance PQ in m"); +V=D*tand(teta1);// Difference in height in m +RL1=258.5;// RL of BM in m +a=1.875;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL-V-r1;// RL of P in m +disp(RL2,"RL of P in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.18/Example14_18.sce b/3908/CH14/EX14.18/Example14_18.sce new file mode 100644 index 000000000..450ad5799 --- /dev/null +++ b/3908/CH14/EX14.18/Example14_18.sce @@ -0,0 +1,35 @@ +//Example 14_18 +clc; +clear; +close; + +//Given data +r1=1; +r2=5; +s1=r2-r1;// Intercept in m +d=2;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +d=3;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +D=s1/(tand(teta1)+tand(teta2));// Horizontal distance PQ in m +disp(D,"Horizontal distance PQ in m"); +V=D*tand(teta1);// Difference in height in m +RL1=258.5;// RL of BM in m +a=1.875;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL-V-r1;// RL of P in m +disp(RL2,"RL of P in m"); diff --git a/3908/CH14/EX14.19/Ex14_19.sce b/3908/CH14/EX14.19/Ex14_19.sce new file mode 100644 index 000000000..58111f35b --- /dev/null +++ b/3908/CH14/EX14.19/Ex14_19.sce @@ -0,0 +1,26 @@ +//Example 14_19 +clc; +clear; +close; + +//Given data +r1=1.235;// Reading 1 at P in m +r2=2.2// Reading 2 at P in m +r3=3.165;// Reading 3 at P in m +s1=r3-r1;// Intercept in m +D=100*s1;// Horizontal distance in m +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +I=s1*cosd(teta);// Intercept normal to the line of sight in m +CD=100*I;// Correct distance in m +e=D-CD;// Error in m +ep=e*100/D;// Error percentage +disp(ep,"Error percentage"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.19/Example14_19.sce b/3908/CH14/EX14.19/Example14_19.sce new file mode 100644 index 000000000..58111f35b --- /dev/null +++ b/3908/CH14/EX14.19/Example14_19.sce @@ -0,0 +1,26 @@ +//Example 14_19 +clc; +clear; +close; + +//Given data +r1=1.235;// Reading 1 at P in m +r2=2.2// Reading 2 at P in m +r3=3.165;// Reading 3 at P in m +s1=r3-r1;// Intercept in m +D=100*s1;// Horizontal distance in m +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +I=s1*cosd(teta);// Intercept normal to the line of sight in m +CD=100*I;// Correct distance in m +e=D-CD;// Error in m +ep=e*100/D;// Error percentage +disp(ep,"Error percentage"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.2/Ex14_2.sce b/3908/CH14/EX14.2/Ex14_2.sce new file mode 100644 index 000000000..868d2c777 --- /dev/null +++ b/3908/CH14/EX14.2/Ex14_2.sce @@ -0,0 +1,28 @@ +//Example 14_2 +clc; +clear; +close; + +//Given data +q1=1.354;// Observed reading 1 at Q for instrument at P in m +q2=1.603;// Observed reading 2 at Q for instrument at P in m +q3=1.852;// Observed reading 3 at Q for instrument at P in m +r1=1.152;// Observed reading 1 at R for instrument at P in m +r2=1.65;// Observed reading 2 at R for instrument at P in m +r3=2.149;// Observed reading 3 at R for instrument at P in m +D1=50;// Distance at Q for instrument at P in m +D2=100;// Distance at R for instrument at P in m +// D=(K*s)+C - eq 1 +// For observation from P to Q +s1=q3-q1;// Difference between staff reading q3 and q1 in m +// For observation from P to R +s2=r3-r1;// Difference between staff reading p3 and p1 in m +// substituting values in eq 1 +// D1=(K*s1)+C +// D2=(k*s2)+C +// Solving the equations by eliminating C, then equating K +K=(D2-D1)/(s2-s1);// Stadia contsant K +disp(K,"Stadia contsant K") +C=D2-(K*s2);// Stadia constant C +disp(C,"Stadia contsant C") +// The answers vary due to round off error diff --git a/3908/CH14/EX14.2/Example14_2.sce b/3908/CH14/EX14.2/Example14_2.sce new file mode 100644 index 000000000..868d2c777 --- /dev/null +++ b/3908/CH14/EX14.2/Example14_2.sce @@ -0,0 +1,28 @@ +//Example 14_2 +clc; +clear; +close; + +//Given data +q1=1.354;// Observed reading 1 at Q for instrument at P in m +q2=1.603;// Observed reading 2 at Q for instrument at P in m +q3=1.852;// Observed reading 3 at Q for instrument at P in m +r1=1.152;// Observed reading 1 at R for instrument at P in m +r2=1.65;// Observed reading 2 at R for instrument at P in m +r3=2.149;// Observed reading 3 at R for instrument at P in m +D1=50;// Distance at Q for instrument at P in m +D2=100;// Distance at R for instrument at P in m +// D=(K*s)+C - eq 1 +// For observation from P to Q +s1=q3-q1;// Difference between staff reading q3 and q1 in m +// For observation from P to R +s2=r3-r1;// Difference between staff reading p3 and p1 in m +// substituting values in eq 1 +// D1=(K*s1)+C +// D2=(k*s2)+C +// Solving the equations by eliminating C, then equating K +K=(D2-D1)/(s2-s1);// Stadia contsant K +disp(K,"Stadia contsant K") +C=D2-(K*s2);// Stadia constant C +disp(C,"Stadia contsant C") +// The answers vary due to round off error diff --git a/3908/CH14/EX14.20/Ex14_20.sce b/3908/CH14/EX14.20/Ex14_20.sce new file mode 100644 index 000000000..2d4cae57f --- /dev/null +++ b/3908/CH14/EX14.20/Ex14_20.sce @@ -0,0 +1,26 @@ +//Example 14_20 +clc; +clear; +close; + +//Given data +l=4;// Length of staff in m +x=0.12;// length out of plumb in m +alpha=atand(x/l);// angle in degree +r1=2.385;// Reading 1 in m +r2=1.063;// Reading 2 in m +s1=r1-r2;// Staff intercept in m +d=8;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +Cs=s1*cosd(teta+alpha)/cosd(teta);// Correct value of intercept in m +CD=100*Cs*(cosd(teta)^2);// Correct horizontal distance in m +E=100*(cosd(teta)^2)*(s1-Cs);// Error in disatnce in m +disp(E,"Error in disatnce in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.20/Example14_20.sce b/3908/CH14/EX14.20/Example14_20.sce new file mode 100644 index 000000000..2d4cae57f --- /dev/null +++ b/3908/CH14/EX14.20/Example14_20.sce @@ -0,0 +1,26 @@ +//Example 14_20 +clc; +clear; +close; + +//Given data +l=4;// Length of staff in m +x=0.12;// length out of plumb in m +alpha=atand(x/l);// angle in degree +r1=2.385;// Reading 1 in m +r2=1.063;// Reading 2 in m +s1=r1-r2;// Staff intercept in m +d=8;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +Cs=s1*cosd(teta+alpha)/cosd(teta);// Correct value of intercept in m +CD=100*Cs*(cosd(teta)^2);// Correct horizontal distance in m +E=100*(cosd(teta)^2)*(s1-Cs);// Error in disatnce in m +disp(E,"Error in disatnce in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.3/Ex14_3.sce b/3908/CH14/EX14.3/Ex14_3.sce new file mode 100644 index 000000000..75b0499d0 --- /dev/null +++ b/3908/CH14/EX14.3/Ex14_3.sce @@ -0,0 +1,18 @@ +//Example 14_3 +clc; +clear; +close; + +//Given data +f=0.25;// Focal length of objective lens in m +d=0.15;// Distance from the objective lens to the vertical axis in m +C=f+d;// Constant C +r1=1.460;// Reading 1 in m +r2=2.055;// reading 2 in m +s=r2-r1;// Staff intercept in m +D=60;// Distance in m +K=(D-C)/s;// Constant K +// K=f/i, where i is stadia interval in m +i=f/K*1000;// Stadia interval in mm +disp(i,"Stadia interval in mm"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.3/Example14_3.sce b/3908/CH14/EX14.3/Example14_3.sce new file mode 100644 index 000000000..a4b7145c2 --- /dev/null +++ b/3908/CH14/EX14.3/Example14_3.sce @@ -0,0 +1,17 @@ +//Example 14_3 +clc; +clear; +close; + +//Given data +f=0.25;// Focal length of objective lens in m +d=0.15;// Distance from the objective lens to the vertical axis in m +C=f+d;// Constant C +r1=1.460;// Reading 1 in m +r2=2.055;// reading 2 in m +s=r2-r1;// Staff intercept in m +D=60;// Distance in m +K=(D-C)/s;// Constant K +// K=f/i, where i is stadia interval in m +i=f/K;// Stadia interval in m +disp(i,"Stadia interval in m"); diff --git a/3908/CH14/EX14.4/Ex14_4.sce b/3908/CH14/EX14.4/Ex14_4.sce new file mode 100644 index 000000000..604914444 --- /dev/null +++ b/3908/CH14/EX14.4/Ex14_4.sce @@ -0,0 +1,33 @@ +//Example 14_4 +clc; +clear; +close; + +//Given data +r1=1.905;// Reading 1 in m +r2=2.480;// Reading 2 in m +r3=3.055;// Reading 3 in m +s=r3-r1;// Intercept in m +// As the staff is held normal to the line of sight +K=100;// Instrument constant +C=0.5;// Instrument constant +L=(K*s)+C;// Inclined length in m +d=6;// Degree +m=36;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +D=L*cosd(teta);// Horizontal distance in m +disp(D,"Horizontal distance in m"); +V=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V,"Difference in height from the instrument height at P in m"); +RL1=852.55;// RL of BM in m +a=1.855;// Reading from P with the line of sight horizontal to a BM of RL 852.55 in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V-r2;// RL of Q in m +disp(RL2,"RL of Q in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.4/Example14_4.sce b/3908/CH14/EX14.4/Example14_4.sce new file mode 100644 index 000000000..86eae76be --- /dev/null +++ b/3908/CH14/EX14.4/Example14_4.sce @@ -0,0 +1,32 @@ +//Example 14_4 +clc; +clear; +close; + +//Given data +r1=1.905;// Reading 1 in m +r2=2.480;// Reading 2 in m +r3=3.055;// Reading 3 in m +s=r3-r1;// Intercept in m +// As the staff is held normal to the line of sight +K=100;// Instrument constant +C=0.5;// Instrument constant +L=(K*s)+C;// Inclined length in m +d=6;// Degree +m=36;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +D=L*cosd(teta);// Horizontal distance in m +disp(D,"Horizontal distance in m"); +V=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V,"Difference in height from the instrument height at P in m"); +RL1=852.55;// RL of BM in m +a=1.855;// Reading from P with the line of sight horizontal to a BM of RL 852.55 in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V-r2;// RL of Q in m +disp(RL2,"RL of Q in m"); diff --git a/3908/CH14/EX14.5/Ex14_5.sce b/3908/CH14/EX14.5/Ex14_5.sce new file mode 100644 index 000000000..a2437032d --- /dev/null +++ b/3908/CH14/EX14.5/Ex14_5.sce @@ -0,0 +1,75 @@ +//Example 14_5 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// Observation to Q +disp("(a) Observation to Q"); +q1=2.105;// Reading 1 at Q in m +q2=2.470;// Reading 2 at Q in m +q3=2.835;// Reading 3 at Q in m +s1=q3-q1;// Intercept in m +d=5;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s1*cosd(teta))+C;// Inclined length in m +D1=L*cosd(teta);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); + +// Observation to R +disp("(b) Observation to R"); +r1=2.215;// Reading 1 at R in m +r2=2.560;// Reading 2 at R in m +r3=2.905;// Reading 3 at R in m +s2=r3-r1;// Intercept in m +d=1;// Degree +m=08;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s2*cosd(teta))+C;// Inclined length in m +D2=L*cosd(teta);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); + +PQ=D1;// Length in m +PR=D2;// Length in m +d=58;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle QPR in degree +QR=sqrt((PQ^2)+(PR^2)-(2*PQ*PR*cosd(teta)));// Length in m +RL1=285.35;// RL of BM in m +a=2.255;// Reading from P with the line of sight horizontal to a BM of RL 285.35 in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V1-q2;// RL of Q in m +disp(RL2,"RL of Q in m"); +RL3=RL+V2-r2;// RL of R in m +disp(RL3,"RL of R in m"); +d=RL2-RL3;// Difference in elevation of Q and R in m +disp(d,"Difference in elevation of Q and R in m"); +G=d/QR;// Gradient from Q t R +disp(G,"Gradient from Q t R"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.5/Example14_5.sce b/3908/CH14/EX14.5/Example14_5.sce new file mode 100644 index 000000000..a2437032d --- /dev/null +++ b/3908/CH14/EX14.5/Example14_5.sce @@ -0,0 +1,75 @@ +//Example 14_5 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// Observation to Q +disp("(a) Observation to Q"); +q1=2.105;// Reading 1 at Q in m +q2=2.470;// Reading 2 at Q in m +q3=2.835;// Reading 3 at Q in m +s1=q3-q1;// Intercept in m +d=5;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s1*cosd(teta))+C;// Inclined length in m +D1=L*cosd(teta);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); + +// Observation to R +disp("(b) Observation to R"); +r1=2.215;// Reading 1 at R in m +r2=2.560;// Reading 2 at R in m +r3=2.905;// Reading 3 at R in m +s2=r3-r1;// Intercept in m +d=1;// Degree +m=08;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s2*cosd(teta))+C;// Inclined length in m +D2=L*cosd(teta);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); + +PQ=D1;// Length in m +PR=D2;// Length in m +d=58;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle QPR in degree +QR=sqrt((PQ^2)+(PR^2)-(2*PQ*PR*cosd(teta)));// Length in m +RL1=285.35;// RL of BM in m +a=2.255;// Reading from P with the line of sight horizontal to a BM of RL 285.35 in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V1-q2;// RL of Q in m +disp(RL2,"RL of Q in m"); +RL3=RL+V2-r2;// RL of R in m +disp(RL3,"RL of R in m"); +d=RL2-RL3;// Difference in elevation of Q and R in m +disp(d,"Difference in elevation of Q and R in m"); +G=d/QR;// Gradient from Q t R +disp(G,"Gradient from Q t R"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.6/Ex14_6.sce b/3908/CH14/EX14.6/Ex14_6.sce new file mode 100644 index 000000000..e1dc920c4 --- /dev/null +++ b/3908/CH14/EX14.6/Ex14_6.sce @@ -0,0 +1,65 @@ +//Example 14_6 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// Observation from A to P +disp("(a) Observation from A to P"); +a1=2.235;// Reading 1 at P in m +a2=2.795// Reading 2 at P in m +a3=3.355;// Reading 3 at P in m +s1=a3-a1;// Intercept in m +d=3;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s1*cosd(teta))+C;// Inclined length in m +D1=L*cosd(teta);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); +RL1=235.455;// RL of BM in m +a=1.75;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V1-a2;// RL of P in m +disp(RL2,"RL of P in m"); +x=RL2; + +// Observation from B to P +disp("(b) Observation from B to P"); +b1=0.945;// Reading 1 at P in m +b2=1.490// Reading 2 at P in m +b3=2.035;// Reading 3 at P in m +s2=b3-b1;// Intercept in m +d=2;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=((K+s2)*cosd(teta))+C;// Inclined length in m +D2=L*cosd(teta);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=(1/2)*((K+s2)*sind(2*teta))+(C*sind(teta));// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); +RL1=235.455;// RL of BM in m +a=2.25;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V2-b2;// RL of P in m +disp(RL2,"RL of P in m"); +y=RL2; +RL=(x+y)/2;// Average RL of P in m +disp(RL,"Average RL of P in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.6/Example14_6.sce b/3908/CH14/EX14.6/Example14_6.sce new file mode 100644 index 000000000..e1dc920c4 --- /dev/null +++ b/3908/CH14/EX14.6/Example14_6.sce @@ -0,0 +1,65 @@ +//Example 14_6 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// Observation from A to P +disp("(a) Observation from A to P"); +a1=2.235;// Reading 1 at P in m +a2=2.795// Reading 2 at P in m +a3=3.355;// Reading 3 at P in m +s1=a3-a1;// Intercept in m +d=3;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=(K*s1*cosd(teta))+C;// Inclined length in m +D1=L*cosd(teta);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); +RL1=235.455;// RL of BM in m +a=1.75;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V1-a2;// RL of P in m +disp(RL2,"RL of P in m"); +x=RL2; + +// Observation from B to P +disp("(b) Observation from B to P"); +b1=0.945;// Reading 1 at P in m +b2=1.490// Reading 2 at P in m +b3=2.035;// Reading 3 at P in m +s2=b3-b1;// Intercept in m +d=2;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta=d+(m*1/60)+(s*1/3600);// angle in degree +L=((K+s2)*cosd(teta))+C;// Inclined length in m +D2=L*cosd(teta);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=(1/2)*((K+s2)*sind(2*teta))+(C*sind(teta));// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); +RL1=235.455;// RL of BM in m +a=2.25;// Reading at BM in m +RL=RL1+a;// RL of line of sight in m +RL2=RL+V2-b2;// RL of P in m +disp(RL2,"RL of P in m"); +y=RL2; +RL=(x+y)/2;// Average RL of P in m +disp(RL,"Average RL of P in m"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.7/Ex14_7.sce b/3908/CH14/EX14.7/Ex14_7.sce new file mode 100644 index 000000000..fa6cc34eb --- /dev/null +++ b/3908/CH14/EX14.7/Ex14_7.sce @@ -0,0 +1,82 @@ +//Example 14_7 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// (a) Observation to P +disp("(a) Observation from A to P"); +p1=1.35;// Reading 1 at P in m +p2=2.10;// Reading 2 at P in m +p3=2.85;// Reading 3 at P in m +s1=p3-p1;// Intercept in m +d=84;// Degree +m=36;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Bearing angle in degree +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +L=(K*s1)+C;// Inclined length in m +D1=L*cosd(teta2);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta2);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); + +// (b) Observation to Q +disp("(b) Observation from A to Q"); +q1=1.955;// Reading 1 at Q in m +q2=2.875;// Reading 2 at Q in m +q3=3.765;// Reading 3 at Q in m +s2=q3-q1;// Intercept in m +d=142;// Degree +m=24;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta3=d+(m*1/60)+(s*1/3600);// Bearing angle in degree +d=2;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta4=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +L=(K*s2)+C;// Inclined length in m +D2=L*cosd(teta4);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=L*sind(teta4);// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); +teta5=teta3-teta1;// Angle PAQ in degree +// Using cosine rule +AP=D1; +AQ=D2; +PQ=sqrt((AP^2)+(AQ^2)-(2*AP*AQ*cosd(teta5)));// Length of PQ in m +// Assuming the horizontal line of sight at A as datum +EP=V1-p2;// Elevation of P in m +EQ=V2-q2;// Elevation of Q in m +DE=EP-EQ;// Difference in elevation in m +disp(DE,"Difference in elevation in m"); +Gr=DE/PQ;// Gradient from P to Q +disp(Gr,"Gradient from P to Q"); +// The answers vary due to round off error +// The answer provided in the textbook is wrong diff --git a/3908/CH14/EX14.7/Example14_7.sce b/3908/CH14/EX14.7/Example14_7.sce new file mode 100644 index 000000000..6ff845c2f --- /dev/null +++ b/3908/CH14/EX14.7/Example14_7.sce @@ -0,0 +1,79 @@ +//Example 14_7 +clc; +clear; +close; + +//Given data +K=100;// Instrument constant +C=0.3;// Instrument constant + +// Observation to P +disp("(a) Observation from A to P"); +p1=1.35;// Reading 1 at P in m +p2=2.10;// Reading 2 at P in m +p3=2.85;// Reading 3 at P in m +s1=p3-p1;// Intercept in m +d=84;// Degree +m=36;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta1=d+(m*1/60)+(s*1/3600);// Bearing angle in degree +d=3;// Degree +m=30;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta2=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +L=(K*s1)+C;// Inclined length in m +D1=L*cosd(teta2);// Horizontal distance in m +disp(D1,"Horizontal distance in m"); +V1=L*sind(teta2);// Difference in height from the instrument height at P in m +disp(V1,"Difference in height in m"); + +// Observation to Q +disp("(b) Observation from A to Q"); +q1=1.955;// Reading 1 at Q in m +q2=2.875;// Reading 2 at Q in m +q3=3.765;// Reading 3 at Q in m +s2=q3-q1;// Intercept in m +d=142;// Degree +m=24;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta3=d+(m*1/60)+(s*1/3600);// Bearing angle in degree +d=2;// Degree +m=45;// Minutes +// 1 degree = 60 minutes. +// Therefore 1 minute = 1/60 degree +s=0;// Seconds +// 1 minute = 60 seconds +// 1 degree = 3600 seconds. +// Therefore 1 second = 1/3600 degree +teta4=d+(m*1/60)+(s*1/3600);// Vertical angle in degree +L=(K*s2)+C;// Inclined length in m +D2=L*cosd(teta4);// Horizontal distance in m +disp(D2,"Horizontal distance in m"); +V2=L*sind(teta4);// Difference in height from the instrument height at P in m +disp(V2,"Difference in height in m"); +teta5=teta3-teta1;// Angle PAQ in degree +// Using cosine rule +AP=D1; +AQ=D2; +PQ=sqrt((AP^2)+(AQ^2)-(2*AP*AQ*cos(teta5)));// Length of PQ in m +// Assuming the horizontal line of sight at A as datum +EP=V1-p2;// Elevation of P in m +EQ=V2-q2;// Elevation of Q in m +DE=EP-EQ;// Difference in elevation in m +disp(DE,"Difference in elevation in m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH14/EX14.9/Ex14_9.sce b/3908/CH14/EX14.9/Ex14_9.sce new file mode 100644 index 000000000..84d2f670d --- /dev/null +++ b/3908/CH14/EX14.9/Ex14_9.sce @@ -0,0 +1,28 @@ +//Example 14_9 +clc; +clear; +close; + +//Given data +p1=1.135;// Observed reading 1 at P for instrument at O in m +p2=1.284;// Observed reading 2 at P for instrument at O in m +p3=1.433;// Observed reading 3 at P for instrument at O in m +q1=1.025;// Observed reading 1 at Q for instrument at O in m +q2=1.325;// Observed reading 2 at Q for instrument at O in m +q3=1.624;// Observed reading 3 at Q for instrument at O in m +D1=30;// Distance at P for instrument at O in m +D2=60;// Distance at Q for instrument at O in m +// D=(K*s)+C - eq 1 +// For observation from O to P +s1=p3-p1;// Difference between staff reading q3 and q1 in m +// For observation from O to Q +s2=q3-q1;// Difference between staff reading p3 and p1 in m +// substituting values in eq 1 +// D1=(K*s1)+C +// D2=(k*s2)+C +// Solving the equations by eliminating C, then equating K +K=(D2-D1)/(s2-s1);// Stadia contsant K +disp(K,"Stadia contsant K"); +C=D2-(K*s2);// Stadia constant C +disp(C,"Stadia contsant C"); +// The answers vary due to round off error diff --git a/3908/CH14/EX14.9/Example14_9.sce b/3908/CH14/EX14.9/Example14_9.sce new file mode 100644 index 000000000..84d2f670d --- /dev/null +++ b/3908/CH14/EX14.9/Example14_9.sce @@ -0,0 +1,28 @@ +//Example 14_9 +clc; +clear; +close; + +//Given data +p1=1.135;// Observed reading 1 at P for instrument at O in m +p2=1.284;// Observed reading 2 at P for instrument at O in m +p3=1.433;// Observed reading 3 at P for instrument at O in m +q1=1.025;// Observed reading 1 at Q for instrument at O in m +q2=1.325;// Observed reading 2 at Q for instrument at O in m +q3=1.624;// Observed reading 3 at Q for instrument at O in m +D1=30;// Distance at P for instrument at O in m +D2=60;// Distance at Q for instrument at O in m +// D=(K*s)+C - eq 1 +// For observation from O to P +s1=p3-p1;// Difference between staff reading q3 and q1 in m +// For observation from O to Q +s2=q3-q1;// Difference between staff reading p3 and p1 in m +// substituting values in eq 1 +// D1=(K*s1)+C +// D2=(k*s2)+C +// Solving the equations by eliminating C, then equating K +K=(D2-D1)/(s2-s1);// Stadia contsant K +disp(K,"Stadia contsant K"); +C=D2-(K*s2);// Stadia constant C +disp(C,"Stadia contsant C"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.1/Ex15_1.sce b/3908/CH15/EX15.1/Ex15_1.sce new file mode 100644 index 000000000..26796ccf4 --- /dev/null +++ b/3908/CH15/EX15.1/Ex15_1.sce @@ -0,0 +1,11 @@ +//Example 15_1 +clc; +clear; +close; + +//Given data +d=3*3.14/180;// Degree of curve in radian +a=30;// Length of arc in m +R=a/d;// Radius of the curve in m +disp(R,"Radius of the curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.1/Example15_1.sce b/3908/CH15/EX15.1/Example15_1.sce new file mode 100644 index 000000000..26796ccf4 --- /dev/null +++ b/3908/CH15/EX15.1/Example15_1.sce @@ -0,0 +1,11 @@ +//Example 15_1 +clc; +clear; +close; + +//Given data +d=3*3.14/180;// Degree of curve in radian +a=30;// Length of arc in m +R=a/d;// Radius of the curve in m +disp(R,"Radius of the curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.10/Ex15_10.sce b/3908/CH15/EX15.10/Ex15_10.sce new file mode 100644 index 000000000..d8650bbf2 --- /dev/null +++ b/3908/CH15/EX15.10/Ex15_10.sce @@ -0,0 +1,17 @@ +//Example 15_10 +clc; +clear; +close; + +//Given data +R=300;// Radius of the curve in m +x=100;// Distance along tangent in m +Yr=sqrt((R^2)+(x^2))-R;// Radial offset Yr in m +disp(Yr,"Radial offset Yr in m"); +alpha=acosd(R/(R+Yr))/2;// in degree +ca=2*alpha;// Central angle for chord in degree +T1P=R*ca*3.14/180;// Chord length T1P in m +disp(T1P,"Chord length T1P in m") +T1R=T1P/(2*cosd(alpha));// Chord length T1R in m +disp(T1R,"Chord length T1R in m") +// The answers vary due to round off error diff --git a/3908/CH15/EX15.10/Example15_10.sce b/3908/CH15/EX15.10/Example15_10.sce new file mode 100644 index 000000000..d8650bbf2 --- /dev/null +++ b/3908/CH15/EX15.10/Example15_10.sce @@ -0,0 +1,17 @@ +//Example 15_10 +clc; +clear; +close; + +//Given data +R=300;// Radius of the curve in m +x=100;// Distance along tangent in m +Yr=sqrt((R^2)+(x^2))-R;// Radial offset Yr in m +disp(Yr,"Radial offset Yr in m"); +alpha=acosd(R/(R+Yr))/2;// in degree +ca=2*alpha;// Central angle for chord in degree +T1P=R*ca*3.14/180;// Chord length T1P in m +disp(T1P,"Chord length T1P in m") +T1R=T1P/(2*cosd(alpha));// Chord length T1R in m +disp(T1R,"Chord length T1R in m") +// The answers vary due to round off error diff --git a/3908/CH15/EX15.15/Ex15_15.sce b/3908/CH15/EX15.15/Ex15_15.sce new file mode 100644 index 000000000..002c5f273 --- /dev/null +++ b/3908/CH15/EX15.15/Ex15_15.sce @@ -0,0 +1,25 @@ +//Example 15_15 +clc; +clear; +close; + +//Given data +R=350;// Radius of the curve in m +PR=50;// Length of PR in m +RQ=68;// Length of RQ in m +d=110;// Angle PRQ in degree +PQ=sqrt((PR^2)+(RQ^2)-(2*PR*RQ*cosd(d)));// Length of PQ in m +disp(PQ) +P=1138.535;// Chainage of P in m +teta=48;// Angle of deflection in degree +TL=R*tand(teta/2);// Tangent length in m +IQ=133.48;// in m +QT1=TL-IQ;// in m +T1=P+PQ-QT1;// Chainage of T1 in m +disp(T1,"Chainage of T1 in m"); +l=R*teta*3.14/180;// Length of arc in m +T2=T1+l;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +I=T1+TL;// Chainage of I in m +disp(I,"Chainage of I in m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH15/EX15.15/Example15_15.sce b/3908/CH15/EX15.15/Example15_15.sce new file mode 100644 index 000000000..e73d94272 --- /dev/null +++ b/3908/CH15/EX15.15/Example15_15.sce @@ -0,0 +1,24 @@ +//Example 15_15 +clc; +clear; +close; + +//Given data +R=350;// Radius of the curve in m +PR=50;// Length of PR in m +RQ=68;// Length of RQ in m +d=110;// Angle PRQ in degree +PQ=sqrt((PR^2)+(RQ^2)-(2*PR*RQ*cosd(d)));// Length of PQ in m +P=1138.535;// Chainage of P in m +teta=48;// Angle of deflection in degree +TL=R*tand(teta/2);// Tangent length in m +IQ=133.48;// in m +QT1=TL-IQ;// in m +T1=P+PQ-QT1;// Chainage of T1 in m +disp(T1,"Chainage of T1 in m"); +l=R*teta*3.14/180;// Length of arc in m +T2=T1+l;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +I=T1+TL;// Chainage of I in m +disp(I,"Chainage of I in m"); +// The answer provided in the textbook is wrong diff --git a/3908/CH15/EX15.18/Ex15_18.sce b/3908/CH15/EX15.18/Ex15_18.sce new file mode 100644 index 000000000..862e8865d --- /dev/null +++ b/3908/CH15/EX15.18/Ex15_18.sce @@ -0,0 +1,22 @@ +//Example 15_18 +clc; +clear; +close; + +//Given data +QS=410;// Length of QS in m +teta1=58+(45/60);// in degree +teta2=66+(45/60);// in degree +R=QS/(tand(teta1/2)+tand(teta2/2));// Radius of the curve in m +disp(R,"Radius of the curve in m"); +PQ=R*tand(teta1/2);// Tangent length PQ in m +disp(PQ,"Tangent length PQ in m"); +T1Q=PQ;// Tangent length T1Q in m +disp(T1Q,"Tangent length T1Q in m"); +T3Q=T1Q;// Tangent length T3Q in m +disp(T3Q,"Tangent length T3Q in m"); +ST2=R*tand(teta2/2);// Tangent length ST2 in m +disp(ST2,"Tangent length ST2 in m"); +ST3=R*tand(teta2/2);// Tangent length ST3 in m +disp(ST3,"Tangent length ST3 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.18/Example15_18.sce b/3908/CH15/EX15.18/Example15_18.sce new file mode 100644 index 000000000..2423fb155 --- /dev/null +++ b/3908/CH15/EX15.18/Example15_18.sce @@ -0,0 +1,20 @@ +//Example 15_18 +clc; +clear; +close; + +//Given data +QS=410;// Length of QS in m +teta1=58+(45/60);// in degree +teta2=66+(45/60);// in degree +R=QS/(tand(teta1/2)+tand(teta2/2));// Radius of the curve in m +PQ=R*tand(teta1/2);// Tangent length PQ in m +disp(PQ,"Tangent length PQ in m"); +T1Q=PQ;// Tangent length T1Q in m +disp(T1Q,"Tangent length T1Q in m"); +T3Q=T1Q;// Tangent length T3Q in m +disp(T3Q,"Tangent length T3Q in m"); +ST2=R*tand(teta2/2);// Tangent length ST2 in m +disp(ST2,"Tangent length ST2 in m"); +ST3=R*tand(teta2/2);// Tangent length ST3 in m +disp(ST3,"Tangent length ST3 in m"); diff --git a/3908/CH15/EX15.19/Ex15_19.sce b/3908/CH15/EX15.19/Ex15_19.sce new file mode 100644 index 000000000..1796c5e6c --- /dev/null +++ b/3908/CH15/EX15.19/Ex15_19.sce @@ -0,0 +1,24 @@ +//Example 15_19 +clc; +clear; +close; + +//Given data +// As the radius remains same, T1T1'=II'=T2T2'=OO' +l=20;// Length of arc in m +d=3;// Degree of curve in degree +teta=68;// Deflection angle in degree +T2P=10;// Length of T2P in m +u=T2P/sind(teta);// Length of T2T2' in m +R=l/(d*3.14/180);// Radius of the curve in m +disp(R,"Radius of the curve in m"); +TL=R*tand(teta/2);// Tangent length in m +T1=183.65;// Chainage of T1 in m +v=T1+u;// Chainage of T1' in m +disp(v,"Chainage of T1 dash in m") +x=v+TL;// Chainage of I' in m +disp(x,"Chainage of I dash in m"); +L=R*teta*3.14/180;// Length of arc in m +y=v+L;// Chainage of T2' in m +disp(y,"Chainage of T2 dash in m") +// The answers vary due to round off error diff --git a/3908/CH15/EX15.19/Example15_19.sce b/3908/CH15/EX15.19/Example15_19.sce new file mode 100644 index 000000000..1796c5e6c --- /dev/null +++ b/3908/CH15/EX15.19/Example15_19.sce @@ -0,0 +1,24 @@ +//Example 15_19 +clc; +clear; +close; + +//Given data +// As the radius remains same, T1T1'=II'=T2T2'=OO' +l=20;// Length of arc in m +d=3;// Degree of curve in degree +teta=68;// Deflection angle in degree +T2P=10;// Length of T2P in m +u=T2P/sind(teta);// Length of T2T2' in m +R=l/(d*3.14/180);// Radius of the curve in m +disp(R,"Radius of the curve in m"); +TL=R*tand(teta/2);// Tangent length in m +T1=183.65;// Chainage of T1 in m +v=T1+u;// Chainage of T1' in m +disp(v,"Chainage of T1 dash in m") +x=v+TL;// Chainage of I' in m +disp(x,"Chainage of I dash in m"); +L=R*teta*3.14/180;// Length of arc in m +y=v+L;// Chainage of T2' in m +disp(y,"Chainage of T2 dash in m") +// The answers vary due to round off error diff --git a/3908/CH15/EX15.2/Ex15_2.sce b/3908/CH15/EX15.2/Ex15_2.sce new file mode 100644 index 000000000..539390bd9 --- /dev/null +++ b/3908/CH15/EX15.2/Ex15_2.sce @@ -0,0 +1,13 @@ +//Example 15_2 +clc; +clear; +close; + +//Given data +a=20;// Length of arc in m +R=380;// Radius of the curve in m +d=a/R;// Degree of curve in radian +d=d*180/3.14;// Degree of curve in degree +D=d;// Degree destination of the curve in degree +disp(D,"Degree destination of the curve in degree"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.2/Example15_2.sce b/3908/CH15/EX15.2/Example15_2.sce new file mode 100644 index 000000000..539390bd9 --- /dev/null +++ b/3908/CH15/EX15.2/Example15_2.sce @@ -0,0 +1,13 @@ +//Example 15_2 +clc; +clear; +close; + +//Given data +a=20;// Length of arc in m +R=380;// Radius of the curve in m +d=a/R;// Degree of curve in radian +d=d*180/3.14;// Degree of curve in degree +D=d;// Degree destination of the curve in degree +disp(D,"Degree destination of the curve in degree"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.20/Ex15_20.sce b/3908/CH15/EX15.20/Ex15_20.sce new file mode 100644 index 000000000..0c0d650f0 --- /dev/null +++ b/3908/CH15/EX15.20/Ex15_20.sce @@ -0,0 +1,25 @@ +//Example 15_20 +clc; +clear; +close; + +//Given data +R=400;// Radius of the curve in m +teta=75;// Angle of deflection in degree +IT2=R*tand(teta/2);// Tangent length IT2 in m +II1=IT2*sind(10)/sind(teta+10);// Length of II' in m +I1T2=IT2*sind(teta)/sind(teta+10);// Length of I'T2 in m +R1=I1T2/tand((teta+10)/2);// New radius R' in m +disp(R1,"New radius R dash in m"); +IT1=IT2; +T1I1=I1T2; +T1T1=IT1+II1-T1I1;// Length of T1T1' in m +T1=986.45;// Chainage of T1 in m +CT1=T1+T1T1;// Chainage of T1' in m +disp(CT1,"Chainage of T1 dash in m"); +CI=CT1+I1T2;// Chainage of I' in m +disp(CI,"Chainage of I dash in m"); +L=R1*(teta+10)*3.14/180;// Length of new arc in m +CT2=CT1+L;// Chainage of T2' in m +disp(CT2,"Chainage of T2 dash in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.20/Example15_20.sce b/3908/CH15/EX15.20/Example15_20.sce new file mode 100644 index 000000000..0c0d650f0 --- /dev/null +++ b/3908/CH15/EX15.20/Example15_20.sce @@ -0,0 +1,25 @@ +//Example 15_20 +clc; +clear; +close; + +//Given data +R=400;// Radius of the curve in m +teta=75;// Angle of deflection in degree +IT2=R*tand(teta/2);// Tangent length IT2 in m +II1=IT2*sind(10)/sind(teta+10);// Length of II' in m +I1T2=IT2*sind(teta)/sind(teta+10);// Length of I'T2 in m +R1=I1T2/tand((teta+10)/2);// New radius R' in m +disp(R1,"New radius R dash in m"); +IT1=IT2; +T1I1=I1T2; +T1T1=IT1+II1-T1I1;// Length of T1T1' in m +T1=986.45;// Chainage of T1 in m +CT1=T1+T1T1;// Chainage of T1' in m +disp(CT1,"Chainage of T1 dash in m"); +CI=CT1+I1T2;// Chainage of I' in m +disp(CI,"Chainage of I dash in m"); +L=R1*(teta+10)*3.14/180;// Length of new arc in m +CT2=CT1+L;// Chainage of T2' in m +disp(CT2,"Chainage of T2 dash in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.21/Ex15_21.sce b/3908/CH15/EX15.21/Ex15_21.sce new file mode 100644 index 000000000..3b6377a76 --- /dev/null +++ b/3908/CH15/EX15.21/Ex15_21.sce @@ -0,0 +1,24 @@ +//Example 15_21 +clc; +clear; +close; + +//Given data +d=3.5;// in degree +l=20;// Length of the arc in m +R=l*180/(d*3.14);// Radius of the curve in m +teta1=100;// Deflection angle in degree +teta2=15;// in degree +teta=teta1+teta2;// in degree +IT2=R*tand(teta1/2);// Length of IT2 in m +II1=IT2*sind(teta2)/sind(teta);// Length of II' in m +T1I1=IT2+II1;// Length of T1I' in m +R1=T1I1/tand(teta/2);// New radius of the curve in m +disp(R1,"New radius of the curve R dash in m"); +CT1=1163.5;// Chainage of T1 in m +CI=CT1+T1I1;// Chainage of CI' in m +disp(CI,"Chainage of CI dash in m"); +L=R1*teta*3.14/180;// Length of new arc in m +CT2=CT1+L;// Chainage of T2' in m +disp(CT2,"Chainage of T2 dash in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.21/Example15_21.sce b/3908/CH15/EX15.21/Example15_21.sce new file mode 100644 index 000000000..3b6377a76 --- /dev/null +++ b/3908/CH15/EX15.21/Example15_21.sce @@ -0,0 +1,24 @@ +//Example 15_21 +clc; +clear; +close; + +//Given data +d=3.5;// in degree +l=20;// Length of the arc in m +R=l*180/(d*3.14);// Radius of the curve in m +teta1=100;// Deflection angle in degree +teta2=15;// in degree +teta=teta1+teta2;// in degree +IT2=R*tand(teta1/2);// Length of IT2 in m +II1=IT2*sind(teta2)/sind(teta);// Length of II' in m +T1I1=IT2+II1;// Length of T1I' in m +R1=T1I1/tand(teta/2);// New radius of the curve in m +disp(R1,"New radius of the curve R dash in m"); +CT1=1163.5;// Chainage of T1 in m +CI=CT1+T1I1;// Chainage of CI' in m +disp(CI,"Chainage of CI dash in m"); +L=R1*teta*3.14/180;// Length of new arc in m +CT2=CT1+L;// Chainage of T2' in m +disp(CT2,"Chainage of T2 dash in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.22/Ex15_22.sce b/3908/CH15/EX15.22/Ex15_22.sce new file mode 100644 index 000000000..d2f775287 --- /dev/null +++ b/3908/CH15/EX15.22/Ex15_22.sce @@ -0,0 +1,31 @@ +//Example 15_22 +clc; +clear; +close; + +//Given data +teta=105;// Deflection angle of compound arc in degree +teta1=58;// Deflection angle of first arc in degree +teta2=teta-teta1;// Deflection angle of second arc in degree +R1=380;// Radius of first arc in m +R2=520;// Radius of second arc in m +EC=R1*tand(teta1/2);// Length of EC in m +ET1=EC;// Length of ET1 in m +CF=R2*tand(teta2/2);// Length of CF in m +FT2=CF;// Length of FT2 in m +EF=EC+CF;// Length of EF in m +// Applying sine rule to triangle EFI +EI=EF*sind(teta2)/sind(75);// Length of EI in m +FI=EF*sind(teta1)/sind(75);// Length of FI in m +T1I=ET1+EI;// Length of T1I in m +T2I=FT2+FI;// Length of T2I in m +T1=848.55;// Chainage of T1 in m +I=T1+T1I;// Chainage of I in m +disp(I,"Chainage of I in m"); +L1=R1*teta1*3.14/180;// Length of first arc in m +L2=R2*teta2*3.14/180;// Length of second arc in m +C=T1+L1;// Chainage of C in m +disp(C,"Chainage of C in m"); +T2=C+L2;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.22/Example15_22.sce b/3908/CH15/EX15.22/Example15_22.sce new file mode 100644 index 000000000..d2f775287 --- /dev/null +++ b/3908/CH15/EX15.22/Example15_22.sce @@ -0,0 +1,31 @@ +//Example 15_22 +clc; +clear; +close; + +//Given data +teta=105;// Deflection angle of compound arc in degree +teta1=58;// Deflection angle of first arc in degree +teta2=teta-teta1;// Deflection angle of second arc in degree +R1=380;// Radius of first arc in m +R2=520;// Radius of second arc in m +EC=R1*tand(teta1/2);// Length of EC in m +ET1=EC;// Length of ET1 in m +CF=R2*tand(teta2/2);// Length of CF in m +FT2=CF;// Length of FT2 in m +EF=EC+CF;// Length of EF in m +// Applying sine rule to triangle EFI +EI=EF*sind(teta2)/sind(75);// Length of EI in m +FI=EF*sind(teta1)/sind(75);// Length of FI in m +T1I=ET1+EI;// Length of T1I in m +T2I=FT2+FI;// Length of T2I in m +T1=848.55;// Chainage of T1 in m +I=T1+T1I;// Chainage of I in m +disp(I,"Chainage of I in m"); +L1=R1*teta1*3.14/180;// Length of first arc in m +L2=R2*teta2*3.14/180;// Length of second arc in m +C=T1+L1;// Chainage of C in m +disp(C,"Chainage of C in m"); +T2=C+L2;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.27/Ex15_27.sce b/3908/CH15/EX15.27/Ex15_27.sce new file mode 100644 index 000000000..834e52fb2 --- /dev/null +++ b/3908/CH15/EX15.27/Ex15_27.sce @@ -0,0 +1,11 @@ +//Example 15_27 +clc; +clear; +close; + +//Given data +T1T2=200;// Distance between tangent points in m +T2G=20;// Length TG2 in m +teta=2*asind(T2G/T1T2);// Angle in degree +R=(T2G/2)/(1-cosd(teta));// Radius of the arc in m +disp(R,"Radius of the arc in m"); diff --git a/3908/CH15/EX15.27/Example15_27.sce b/3908/CH15/EX15.27/Example15_27.sce new file mode 100644 index 000000000..c0b254554 --- /dev/null +++ b/3908/CH15/EX15.27/Example15_27.sce @@ -0,0 +1,12 @@ +//Example 15_27 +clc; +clear; +close; + +//Given data +T1T2=200;// Distance between tangent points in m +T2G=20;// Length TG2 in m +teta=2*asind(T2G/T1T2);// Angle in degree +disp(teta) +R=(T2G/2)/(1-cosd(teta));// Radius of the arc in m +disp(R,"Radius of the arc in m"); diff --git a/3908/CH15/EX15.28/Ex15_28.sce b/3908/CH15/EX15.28/Ex15_28.sce new file mode 100644 index 000000000..f6425e012 --- /dev/null +++ b/3908/CH15/EX15.28/Ex15_28.sce @@ -0,0 +1,19 @@ +//Example 15_28 +clc; +clear; +close; + +//Given data +teta1=180-138.5;// Deflection angle of first curve in degree +teta2=180-130.75;// Deflection angle of first curve in degree +EF=380;// Length of tangent of both curves in m +R=EF/(tand(teta1/2)+tand(teta2/2));// Radius of arc in m +disp(R,"Radius of arc in m"); +l1=R*teta1*3.14/180;// length of first arc in m +l2=R*teta2*3.14/180;// length of second arc in m +T1=980;// Chainage of T1 in m +C=T1+l1;// Chainage of C in m +disp(C,"Chainage of C in m"); +T2=C+l2;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.28/Example15_28.sce b/3908/CH15/EX15.28/Example15_28.sce new file mode 100644 index 000000000..f6425e012 --- /dev/null +++ b/3908/CH15/EX15.28/Example15_28.sce @@ -0,0 +1,19 @@ +//Example 15_28 +clc; +clear; +close; + +//Given data +teta1=180-138.5;// Deflection angle of first curve in degree +teta2=180-130.75;// Deflection angle of first curve in degree +EF=380;// Length of tangent of both curves in m +R=EF/(tand(teta1/2)+tand(teta2/2));// Radius of arc in m +disp(R,"Radius of arc in m"); +l1=R*teta1*3.14/180;// length of first arc in m +l2=R*teta2*3.14/180;// length of second arc in m +T1=980;// Chainage of T1 in m +C=T1+l1;// Chainage of C in m +disp(C,"Chainage of C in m"); +T2=C+l2;// Chainage of T2 in m +disp(T2,"Chainage of T2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.29/Ex15_29.sce b/3908/CH15/EX15.29/Ex15_29.sce new file mode 100644 index 000000000..a82f8a441 --- /dev/null +++ b/3908/CH15/EX15.29/Ex15_29.sce @@ -0,0 +1,21 @@ +//Example 15_29 +clc; +clear; +close; + +//Given data +// If O2O1P = teta, then sin(teta)=O2P/O1O2=O2P/2R +teta1=30.25;// Angle at first point in degree +teta2=20.5;// Angle at first point in degree +// O2P=O1E + O2F = R(cos(teta1) + cos(teta2)) +// sin(teta) = R(cos(teta1) + cos(teta2))/2R +// R gets cancelled and the eq is sin(teta) = (cos(teta1) + cos(teta2))/2 +x=cosd(teta1) + cosd(teta2); +teta=asind(x/2);// Angle in degree +// T1T2 = T1E + EF + FT2 = Rsin(teta1) + (2*sin(teta)) + sin(teta2) +T1T2=680;// Distance between tangent points in m +R=T1T2/(sind(teta1)+(2*sind(teta))+sind(teta2));// Radius of the curve in m +disp(R,"Radius of the curve in m"); +AI=teta1-teta2;// Angle of intersection in degree +disp(AI,"Angle of intersection in degree"); +// The answer provided in the textbook is wrong diff --git a/3908/CH15/EX15.29/Example15_29.sce b/3908/CH15/EX15.29/Example15_29.sce new file mode 100644 index 000000000..a82f8a441 --- /dev/null +++ b/3908/CH15/EX15.29/Example15_29.sce @@ -0,0 +1,21 @@ +//Example 15_29 +clc; +clear; +close; + +//Given data +// If O2O1P = teta, then sin(teta)=O2P/O1O2=O2P/2R +teta1=30.25;// Angle at first point in degree +teta2=20.5;// Angle at first point in degree +// O2P=O1E + O2F = R(cos(teta1) + cos(teta2)) +// sin(teta) = R(cos(teta1) + cos(teta2))/2R +// R gets cancelled and the eq is sin(teta) = (cos(teta1) + cos(teta2))/2 +x=cosd(teta1) + cosd(teta2); +teta=asind(x/2);// Angle in degree +// T1T2 = T1E + EF + FT2 = Rsin(teta1) + (2*sin(teta)) + sin(teta2) +T1T2=680;// Distance between tangent points in m +R=T1T2/(sind(teta1)+(2*sind(teta))+sind(teta2));// Radius of the curve in m +disp(R,"Radius of the curve in m"); +AI=teta1-teta2;// Angle of intersection in degree +disp(AI,"Angle of intersection in degree"); +// The answer provided in the textbook is wrong diff --git a/3908/CH15/EX15.3/Ex15_3.sce b/3908/CH15/EX15.3/Ex15_3.sce new file mode 100644 index 000000000..fb4a0abd0 --- /dev/null +++ b/3908/CH15/EX15.3/Ex15_3.sce @@ -0,0 +1,21 @@ +//Example 15_3 +clc; +clear; +close; + +//Given data +a=30;// Length of arc in m +d=4*3.14/180;// Degree of curve in radian +R=a/d;// Radius of the curve in m +teta=36;// Deflection angle in degree +TD=R*tand(teta/2);// Tangent distance in m +disp(TD,"Tangent distance in m"); +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +L=R*teta*3.14/180;// Length of arc in m +disp(L,"Length of arc in m"); +AD=R*(secd(teta/2)-1);// Apex distance in m +disp(AD,"Apex distance in m") +MD=R*(1-cosd(teta/2));// Mid-ordinate in m +disp(MD,"Mid-ordinate in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.3/Example15_3.sce b/3908/CH15/EX15.3/Example15_3.sce new file mode 100644 index 000000000..fb4a0abd0 --- /dev/null +++ b/3908/CH15/EX15.3/Example15_3.sce @@ -0,0 +1,21 @@ +//Example 15_3 +clc; +clear; +close; + +//Given data +a=30;// Length of arc in m +d=4*3.14/180;// Degree of curve in radian +R=a/d;// Radius of the curve in m +teta=36;// Deflection angle in degree +TD=R*tand(teta/2);// Tangent distance in m +disp(TD,"Tangent distance in m"); +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +L=R*teta*3.14/180;// Length of arc in m +disp(L,"Length of arc in m"); +AD=R*(secd(teta/2)-1);// Apex distance in m +disp(AD,"Apex distance in m") +MD=R*(1-cosd(teta/2));// Mid-ordinate in m +disp(MD,"Mid-ordinate in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.31/Ex15_31.sce b/3908/CH15/EX15.31/Ex15_31.sce new file mode 100644 index 000000000..8e5dd525a --- /dev/null +++ b/3908/CH15/EX15.31/Ex15_31.sce @@ -0,0 +1,33 @@ +//Example 15_31 +clc; +clear; +close; + +//Given data +teta=2*asind(25/220);// Central angle in degree +R=(25/2)/(1-cosd(teta));// Radius of the curve in m +disp(R,"Radius of the curve in m"); +L=2*R*sind(teta/2);// Length of the long chord in m +disp(L,"Length of the long chord in m"); +x0=0;// Distance from midpoint in m +x1=x0+10;// Distance from midpoint in m +x2=x1+10;// Distance from midpoint in m +x3=x2+10;// Distance from midpoint in m +x4=x3+10;// Distance from midpoint in m +x5=x4+10;// Distance from midpoint in m +x6=L/2;// Distance from midpoint in m +Y1=sqrt((R^2)-(x0^2))-sqrt((R^2)-((L/2)^2));// Offset Y1 from long chord in m +disp(Y1,"Offset Y1 from long chord in m"); +Y2=sqrt((R^2)-(x1^2))-sqrt((R^2)-((L/2)^2));// Offset Y2 from long chord in m +disp(Y2,"Offset Y2 from long chord in m"); +Y3=sqrt((R^2)-(x2^2))-sqrt((R^2)-((L/2)^2));// Offset Y3 from long chord in m +disp(Y3,"Offset Y3 from long chord in m"); +Y4=sqrt((R^2)-(x3^2))-sqrt((R^2)-((L/2)^2));// Offset Y4 from long chord in m +disp(Y4,"Offset Y4 from long chord in m"); +Y5=sqrt((R^2)-(x4^2))-sqrt((R^2)-((L/2)^2));// Offset Y5 from long chord in m +disp(Y5,"Offset Y5 from long chord in m"); +Y6=sqrt((R^2)-(x5^2))-sqrt((R^2)-((L/2)^2));// Offset Y6 from long chord in m +disp(Y6,"Offset Y6 from long chord in m"); +Y7=sqrt((R^2)-(x6^2))-sqrt((R^2)-((L/2)^2));// Offset Y7 from long chord in m +disp(Y7,"Offset Y7 from long chord in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.31/Example15_31.sce b/3908/CH15/EX15.31/Example15_31.sce new file mode 100644 index 000000000..85509101a --- /dev/null +++ b/3908/CH15/EX15.31/Example15_31.sce @@ -0,0 +1,32 @@ +//Example 15_31 +clc; +clear; +close; + +//Given data +teta=2*asind(25/220);// Central angle in degree +R=(25/2)/(1-cosd(teta));// Radius of the curve in m +disp(R,"Radius of the curve in m"); +L=2*R*sind(teta/2);// Length of the long chord in m +disp(L,"Length of the long chord in m"); +x0=0;// Distance from midpoint in m +x1=x0+10;// Distance from midpoint in m +x2=x1+10;// Distance from midpoint in m +x3=x2+10;// Distance from midpoint in m +x4=x3+10;// Distance from midpoint in m +x5=x4+10;// Distance from midpoint in m +x6=L/2;// Distance from midpoint in m +Y1=sqrt((R^2)-(x0^2))-sqrt((R^2)-((L/2)^2));// Offset Y1 from long chord in m +disp(Y1,"Offset Y1 from long chord in m"); +Y2=sqrt((R^2)-(x1^2))-sqrt((R^2)-((L/2)^2));// Offset Y2 from long chord in m +disp(Y2,"Offset Y2 from long chord in m"); +Y3=sqrt((R^2)-(x2^2))-sqrt((R^2)-((L/2)^2));// Offset Y3 from long chord in m +disp(Y3,"Offset Y3 from long chord in m"); +Y4=sqrt((R^2)-(x3^2))-sqrt((R^2)-((L/2)^2));// Offset Y4 from long chord in m +disp(Y4,"Offset Y4 from long chord in m"); +Y5=sqrt((R^2)-(x4^2))-sqrt((R^2)-((L/2)^2));// Offset Y5 from long chord in m +disp(Y5,"Offset Y5 from long chord in m"); +Y6=sqrt((R^2)-(x5^2))-sqrt((R^2)-((L/2)^2));// Offset Y6 from long chord in m +disp(Y6,"Offset Y6 from long chord in m"); +Y7=sqrt((R^2)-(x6^2))-sqrt((R^2)-((L/2)^2));// Offset Y7 from long chord in m +disp(Y7,"Offset Y7 from long chord in m"); diff --git a/3908/CH15/EX15.33/Ex15_33.sce b/3908/CH15/EX15.33/Ex15_33.sce new file mode 100644 index 000000000..43859fb46 --- /dev/null +++ b/3908/CH15/EX15.33/Ex15_33.sce @@ -0,0 +1,31 @@ +//Example 15_33 +clc; +clear; +close; + +//Given data +v=100*1000/3600;// Maximum speed of vehicles in m/s +cr=1/4;// Centrifugal ratio +g=9.81;// Force due to gravity in m/s^2 +R=4*v^2/g;// Radius of the circular curve in m +disp(R,"Radius of the circular curve in m"); +alpha=0.3;// Rate of change of radial acceleration in m/s^3 +L=v^3/(alpha*R);// Length of transition curve in m +disp(L,"Length of transition curve in m"); +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +teta1=60;// Deflection angle between tangents in degree +teta=teta1-(2*tetad);// Central angle of circular arc in degree +l=R*3.14*teta/180;// Length of circular arc in m +S=L^2/(24*R);// Shift in m +TL=((R+S)*tand(teta1/2))+(L/2);// Tangent length in m +LC=l+(2*L);// Length of combined curve in m +I=1850;// Chainage of I in m +C1=I-TL;// Chainage of beginning of first transition curve in m +disp(C1,"Chainage of beginning of first transition curve in m"); +C2=C1+L;// Chainage of beginning of circular arc in m +disp(C2,"Chainage of beginning of circular arc in m"); +C3=C2+l;// Chainage of end of circular arc in m +disp(C3,"Chainage of end of circular arc in m"); +C4=C3+L;// Chainage of end of combined curve in m +disp(C4,"Chainage of end of combined curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.33/Example15_33.sce b/3908/CH15/EX15.33/Example15_33.sce new file mode 100644 index 000000000..43859fb46 --- /dev/null +++ b/3908/CH15/EX15.33/Example15_33.sce @@ -0,0 +1,31 @@ +//Example 15_33 +clc; +clear; +close; + +//Given data +v=100*1000/3600;// Maximum speed of vehicles in m/s +cr=1/4;// Centrifugal ratio +g=9.81;// Force due to gravity in m/s^2 +R=4*v^2/g;// Radius of the circular curve in m +disp(R,"Radius of the circular curve in m"); +alpha=0.3;// Rate of change of radial acceleration in m/s^3 +L=v^3/(alpha*R);// Length of transition curve in m +disp(L,"Length of transition curve in m"); +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +teta1=60;// Deflection angle between tangents in degree +teta=teta1-(2*tetad);// Central angle of circular arc in degree +l=R*3.14*teta/180;// Length of circular arc in m +S=L^2/(24*R);// Shift in m +TL=((R+S)*tand(teta1/2))+(L/2);// Tangent length in m +LC=l+(2*L);// Length of combined curve in m +I=1850;// Chainage of I in m +C1=I-TL;// Chainage of beginning of first transition curve in m +disp(C1,"Chainage of beginning of first transition curve in m"); +C2=C1+L;// Chainage of beginning of circular arc in m +disp(C2,"Chainage of beginning of circular arc in m"); +C3=C2+l;// Chainage of end of circular arc in m +disp(C3,"Chainage of end of circular arc in m"); +C4=C3+L;// Chainage of end of combined curve in m +disp(C4,"Chainage of end of combined curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.34/Ex15_34.sce b/3908/CH15/EX15.34/Ex15_34.sce new file mode 100644 index 000000000..ea99b00e7 --- /dev/null +++ b/3908/CH15/EX15.34/Ex15_34.sce @@ -0,0 +1,19 @@ +//Example 15_34 +clc; +clear; +close; + +//Given data +R=300;// Radius of circular curve in m +g=9.81;// Force due to gravity in m/s^2 +v1=sqrt(15*g*R/150);// Design speed of vehicles in m/s +v=sqrt(15*g*R/150)*3600/1000;// Design speed of vehicles in km/hr +disp(v,"Design speed of vehicles in km/hr"); +alpha=0.3;// Rate of change of radial acceleration in m/s^3 +L=v1^3/(alpha*R);// Length of transition curve in m +disp(L,"Length of transition curve in m"); +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +disp(tetad,"Spiral angle in degree"); +S=L^2/(24*R)*100;// Shift in cm +disp(S,"Shift in cm"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.34/Example15_34.sce b/3908/CH15/EX15.34/Example15_34.sce new file mode 100644 index 000000000..1bba9b533 --- /dev/null +++ b/3908/CH15/EX15.34/Example15_34.sce @@ -0,0 +1,19 @@ +//Example 15_34 +clc; +clear; +close; + +//Given data +R=300;// Radius of circular curve in m +g=9.81;// Force due to gravity in m/s^2 +v1=sqrt(15*g*R/150);// Design speed of vehicles in m/s +v=sqrt(15*g*R/150)*3600/1000;// Design speed of vehicles in km/hr +disp(v,"Design speed of vehicles in km/hr"); +alpha=0.3;// Rate of change of radial acceleration in m/s^3 +L=v1^3/(alpha*R);// Length of transition curve in m +disp(L,"Length of transition curve in m"); +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +disp(tetad,"Spiral angle in degree"); +S=L^2/(24*R);// Shift in m +disp(S,"Shift in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.36/Ex15_36.sce b/3908/CH15/EX15.36/Ex15_36.sce new file mode 100644 index 000000000..b181658f5 --- /dev/null +++ b/3908/CH15/EX15.36/Ex15_36.sce @@ -0,0 +1,26 @@ +//Example 15_36 +clc; +clear; +close; + +//Given data +R=600;// Radius of the circular curve in m +L=120;// Length of transition curve in m +S=L^2/(24*R);// Shift in m +teta1=40.5;// Deflection angle between tangents in degree +TL=((R+S)*tand(teta1/2))+((L/2)*(1-S/(5*R)));// Total tangent length in m +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +teta=teta1-(2*tetad);// Central angle of circular arc in degree +l=R*3.14*teta/180;// Length of circular arc in m +S=L^2/(24*R);// Shift in m +LC=l+(2*L);// Length of combined curve in m +I=2050;// Chainage of I in m +C1=I-TL;// Chainage of beginning of first transition curve in m +disp(C1,"Chainage of beginning of first transition curve in m"); +C2=C1+L;// Chainage of beginning of circular arc in m +disp(C2,"Chainage of beginning of circular arc in m"); +C3=C2+l;// Chainage of end of circular arc in m +disp(C3,"Chainage of end of circular arc in m"); +C4=C3+L;// Chainage of end of combined curve in m +disp(C4,"Chainage of end of combined curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.36/Example15_36.sce b/3908/CH15/EX15.36/Example15_36.sce new file mode 100644 index 000000000..b181658f5 --- /dev/null +++ b/3908/CH15/EX15.36/Example15_36.sce @@ -0,0 +1,26 @@ +//Example 15_36 +clc; +clear; +close; + +//Given data +R=600;// Radius of the circular curve in m +L=120;// Length of transition curve in m +S=L^2/(24*R);// Shift in m +teta1=40.5;// Deflection angle between tangents in degree +TL=((R+S)*tand(teta1/2))+((L/2)*(1-S/(5*R)));// Total tangent length in m +tetad=L/(2*R)*180/3.14;// Spiral angle in degree +teta=teta1-(2*tetad);// Central angle of circular arc in degree +l=R*3.14*teta/180;// Length of circular arc in m +S=L^2/(24*R);// Shift in m +LC=l+(2*L);// Length of combined curve in m +I=2050;// Chainage of I in m +C1=I-TL;// Chainage of beginning of first transition curve in m +disp(C1,"Chainage of beginning of first transition curve in m"); +C2=C1+L;// Chainage of beginning of circular arc in m +disp(C2,"Chainage of beginning of circular arc in m"); +C3=C2+l;// Chainage of end of circular arc in m +disp(C3,"Chainage of end of circular arc in m"); +C4=C3+L;// Chainage of end of combined curve in m +disp(C4,"Chainage of end of combined curve in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.4/Ex15_4.sce b/3908/CH15/EX15.4/Ex15_4.sce new file mode 100644 index 000000000..3c9419e0c --- /dev/null +++ b/3908/CH15/EX15.4/Ex15_4.sce @@ -0,0 +1,20 @@ +//Example 15_4 +clc; +clear; +close; + +//Given data +teta=42;// Deflection angle in degree +TD=235.6;// Tangent distance in m +R=TD/tand(teta/2);// Radius of the curve in m +disp(R,"Radius of the curve in m"); +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +// The answer provided in the textbook is wrong +L=R*teta*3.14/180;// Length of arc in m +disp(L,"Length of arc in m"); +AD=R*(secd(teta/2)-1);// Apex distance in m +disp(AD,"Apex distance in m") +MD=R*(1-cosd(teta/2));// Mid-ordinate in m +disp(MD,"Mid-ordinate in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.4/Example15_4.sce b/3908/CH15/EX15.4/Example15_4.sce new file mode 100644 index 000000000..3c9419e0c --- /dev/null +++ b/3908/CH15/EX15.4/Example15_4.sce @@ -0,0 +1,20 @@ +//Example 15_4 +clc; +clear; +close; + +//Given data +teta=42;// Deflection angle in degree +TD=235.6;// Tangent distance in m +R=TD/tand(teta/2);// Radius of the curve in m +disp(R,"Radius of the curve in m"); +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +// The answer provided in the textbook is wrong +L=R*teta*3.14/180;// Length of arc in m +disp(L,"Length of arc in m"); +AD=R*(secd(teta/2)-1);// Apex distance in m +disp(AD,"Apex distance in m") +MD=R*(1-cosd(teta/2));// Mid-ordinate in m +disp(MD,"Mid-ordinate in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.41/Ex15_41.sce b/3908/CH15/EX15.41/Ex15_41.sce new file mode 100644 index 000000000..237c2c1f5 --- /dev/null +++ b/3908/CH15/EX15.41/Ex15_41.sce @@ -0,0 +1,22 @@ +//Example 15_41 +clc; +clear; +close; + +//Given data +g1=0.6;// Gradient 1 +g2=-0.9;// Gradient 2 +TG=g1-g2;// Total change in gradient +G=30/0.075;// Rate of change in gradient +L=TG*G;// Length in m +// The curve will be in equal lengths on either side of the apex +D=g1*L/(2*100);// difference in m +DE=D*L/(2*100);// Difference in elevaton in m +RL=1430;// Reduced level of point of intersection in m +RL1=RL-D;// Reduced level of first tangent point in m +RL2=RL-DE;// Reduced level of second tangent point in m +I=985.5;// Chainage of point of intersection in m +C1=I+(L/2);// Chainage of apex of curve in m +disp(C1,"Chainage of apex of curve in m"); +C2=C1+(L/2);// Chainage of second tangent point in m +disp(C2,"Chainage of second tangent point in m"); diff --git a/3908/CH15/EX15.41/Example15_41.sce b/3908/CH15/EX15.41/Example15_41.sce new file mode 100644 index 000000000..237c2c1f5 --- /dev/null +++ b/3908/CH15/EX15.41/Example15_41.sce @@ -0,0 +1,22 @@ +//Example 15_41 +clc; +clear; +close; + +//Given data +g1=0.6;// Gradient 1 +g2=-0.9;// Gradient 2 +TG=g1-g2;// Total change in gradient +G=30/0.075;// Rate of change in gradient +L=TG*G;// Length in m +// The curve will be in equal lengths on either side of the apex +D=g1*L/(2*100);// difference in m +DE=D*L/(2*100);// Difference in elevaton in m +RL=1430;// Reduced level of point of intersection in m +RL1=RL-D;// Reduced level of first tangent point in m +RL2=RL-DE;// Reduced level of second tangent point in m +I=985.5;// Chainage of point of intersection in m +C1=I+(L/2);// Chainage of apex of curve in m +disp(C1,"Chainage of apex of curve in m"); +C2=C1+(L/2);// Chainage of second tangent point in m +disp(C2,"Chainage of second tangent point in m"); diff --git a/3908/CH15/EX15.44/Ex15_44.sce b/3908/CH15/EX15.44/Ex15_44.sce new file mode 100644 index 000000000..979b0af66 --- /dev/null +++ b/3908/CH15/EX15.44/Ex15_44.sce @@ -0,0 +1,17 @@ +//Example 15_44 +clc; +clear; +close; + +//Given data + +// Sight distance S=L+(100*(sqrt(h1)+sqrt(h2))^2/M) +// S=1.5*L +g1=0.8;// Gradient 1 +g2=-1.2;// Gradient 1 +M=g1-g2; +h1=1.13;// Height of eye level of driver in m +h2=h1;// in m +// Rearranging the sight distance eq to 1.5L = L + 100*(sqrt(h1)+sqrt(h2))^2/M) +L=2*100*((sqrt(h1)+sqrt(h2))^2)/M;// Length of vertical curve in m +disp(L,"Length of vertical curve in m"); diff --git a/3908/CH15/EX15.44/Example15_44.sce b/3908/CH15/EX15.44/Example15_44.sce new file mode 100644 index 000000000..979b0af66 --- /dev/null +++ b/3908/CH15/EX15.44/Example15_44.sce @@ -0,0 +1,17 @@ +//Example 15_44 +clc; +clear; +close; + +//Given data + +// Sight distance S=L+(100*(sqrt(h1)+sqrt(h2))^2/M) +// S=1.5*L +g1=0.8;// Gradient 1 +g2=-1.2;// Gradient 1 +M=g1-g2; +h1=1.13;// Height of eye level of driver in m +h2=h1;// in m +// Rearranging the sight distance eq to 1.5L = L + 100*(sqrt(h1)+sqrt(h2))^2/M) +L=2*100*((sqrt(h1)+sqrt(h2))^2)/M;// Length of vertical curve in m +disp(L,"Length of vertical curve in m"); diff --git a/3908/CH15/EX15.5/Ex15_5.sce b/3908/CH15/EX15.5/Ex15_5.sce new file mode 100644 index 000000000..c598dad62 --- /dev/null +++ b/3908/CH15/EX15.5/Ex15_5.sce @@ -0,0 +1,41 @@ +//Example 15_5 +clc; +clear; +close; + +//Given data +a=20;// Length of arc in m +d=4*3.14/180;// Degree of curve in radian +R=a/d;// Radius of the curve in m +teta=40;// Deflection angle in degree +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +m1=a;// Distance from midpoint in m +m2=a+20;// Distance from midpoint in m +m3=a+40;// Distance from midpoint in m +m4=a+60;// Distance from midpoint in m +m5=l/2;// Distance from midpoint in m +// Using exact formula +disp("Using exact formula"); +Y1=sqrt((R^2)-(m1^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y1 in m +disp(Y1,"Length of Offset Y1 from centre in m"); +Y2=sqrt((R^2)-(m2^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y2 in m +disp(Y2,"Length of Offset Y2 from centre in m"); +Y3=sqrt((R^2)-(m3^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y3 in m +disp(Y3,"Length of Offset Y3 from centre in m"); +Y4=sqrt((R^2)-(m4^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y4 in m +disp(Y4,"Length of Offset Y4 from centre in m"); +Y5=sqrt((R^2)-(m5^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y5 in m +disp(Y5,"Length of Offset Y5 from centre in m"); +x1=l/2;// Distance from tangent point x1 in m +x2=x1-20;// Distance from tangent point x2 in m +x3=x1-40;// Distance from tangent point x3 in m +x4=x1-60;// Distance from tangent point x4 in m +x5=x1-80;// Distance from tangent point x5 in m +// Using approximate formula +disp("Using approximate formula"); +Y1=x1*(l-x1)/(2*R);// Length of Offset Y1 in m +disp(Y1,"Length of Offset Y1 in m"); +Y2=x2*(l-x2)/(2*R);// Length of Offset Y2 in m +disp(Y2,"Length of Offset Y2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.5/Example15_5.sce b/3908/CH15/EX15.5/Example15_5.sce new file mode 100644 index 000000000..c598dad62 --- /dev/null +++ b/3908/CH15/EX15.5/Example15_5.sce @@ -0,0 +1,41 @@ +//Example 15_5 +clc; +clear; +close; + +//Given data +a=20;// Length of arc in m +d=4*3.14/180;// Degree of curve in radian +R=a/d;// Radius of the curve in m +teta=40;// Deflection angle in degree +l=2*R*sind(teta/2);// Length of long chord in m +disp(l,"Length of long chord in m"); +m1=a;// Distance from midpoint in m +m2=a+20;// Distance from midpoint in m +m3=a+40;// Distance from midpoint in m +m4=a+60;// Distance from midpoint in m +m5=l/2;// Distance from midpoint in m +// Using exact formula +disp("Using exact formula"); +Y1=sqrt((R^2)-(m1^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y1 in m +disp(Y1,"Length of Offset Y1 from centre in m"); +Y2=sqrt((R^2)-(m2^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y2 in m +disp(Y2,"Length of Offset Y2 from centre in m"); +Y3=sqrt((R^2)-(m3^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y3 in m +disp(Y3,"Length of Offset Y3 from centre in m"); +Y4=sqrt((R^2)-(m4^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y4 in m +disp(Y4,"Length of Offset Y4 from centre in m"); +Y5=sqrt((R^2)-(m5^2))-sqrt((R^2)-((m5)^2));// Length of Offset Y5 in m +disp(Y5,"Length of Offset Y5 from centre in m"); +x1=l/2;// Distance from tangent point x1 in m +x2=x1-20;// Distance from tangent point x2 in m +x3=x1-40;// Distance from tangent point x3 in m +x4=x1-60;// Distance from tangent point x4 in m +x5=x1-80;// Distance from tangent point x5 in m +// Using approximate formula +disp("Using approximate formula"); +Y1=x1*(l-x1)/(2*R);// Length of Offset Y1 in m +disp(Y1,"Length of Offset Y1 in m"); +Y2=x2*(l-x2)/(2*R);// Length of Offset Y2 in m +disp(Y2,"Length of Offset Y2 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.7/Ex15_7.sce b/3908/CH15/EX15.7/Ex15_7.sce new file mode 100644 index 000000000..35fd77967 --- /dev/null +++ b/3908/CH15/EX15.7/Ex15_7.sce @@ -0,0 +1,55 @@ +//Example 15_7 +clc; +clear; +close; + +//Given data +x1=20;// Distance along tangent in m +x2=40;// Distance along tangent in m +x3=60;// Distance along tangent in m +x4=80;// Distance along tangent in m +x5=100;// Distance along tangent in m +x6=120;// Distance along tangent in m +R=300;// Radius of the curve in m +disp("Radial offset (exact value)"); +Yr1=sqrt((R^2)+(x1^2))-R;// Radial offset Yr1 (exact value) in m +disp(Yr1,"Radial offset Yr1 (exact value) in m"); +Yr2=sqrt((R^2)+(x2^2))-R;// Radial offset Yr2 (exact value) in m +disp(Yr2,"Radial offset Yr2 (exact value) in m"); +Yr3=sqrt((R^2)+(x3^2))-R;// Radial offset Yr3 (exact value) in m +disp(Yr3,"Radial offset Yr3 (exact value) in m"); +Yr4=sqrt((R^2)+(x4^2))-R;// Radial offset Yr4 (exact value) in m +disp(Yr4,"Radial offset Yr4 (exact value) in m"); +Yr5=sqrt((R^2)+(x5^2))-R;// Radial offset Yr5 (exact value) in m +disp(Yr5,"Radial offset Yr5 (exact value) in m"); +Yr6=sqrt((R^2)+(x6^2))-R;// Radial offset Yr6 (exact value) in m +disp(Yr6,"Radial offset Yr6 (exact value) in m"); + +disp("Perpendicular offset (exact value)"); +Yp1=R-sqrt((R^2)-(x1^2));// Perpendicular offset Yp1 (exact value) in m +disp(Yp1,"Perpendicular offset Yp1 (exact value) in m"); +Yp2=R-sqrt((R^2)-(x2^2));// Perpendicular offset Yp2 (exact value) in m +disp(Yp2,"Perpendicular offset Yp2 (exact value) in m"); +Yp3=R-sqrt((R^2)-(x3^2));// Perpendicular offset Yp3 (exact value) in m +disp(Yp3,"Perpendicular offset Yp3 (exact value) in m"); +Yp4=R-sqrt((R^2)-(x4^2));// Perpendicular offset Yp4 (exact value) in m +disp(Yp4,"Perpendicular offset Yp4 (exact value) in m"); +Yp5=R-sqrt((R^2)-(x5^2));// Perpendicular offset Yp5 (exact value) in m +disp(Yp5,"Perpendicular offset Yp5 (exact value) in m"); +Yp6=R-sqrt((R^2)-(x6^2));// Perpendicular offset Yp6 (exact value) in m +disp(Yp6,"Perpendicular offset Yp6 (exact value) in m"); + +disp("Approximate value of offset"); +Ya1=(x1^2)/(2*R);// Offset Ya1 (approximate value) in m +disp(Ya1,"Offset Ya1 (approximate value) in m"); +Ya2=(x2^2)/(2*R);// Offset Ya2 (approximate value) in m +disp(Ya2,"Offset Ya2 (approximate value) in m"); +Ya3=(x3^2)/(2*R);// Offset Ya3 (approximate value) in m +disp(Ya3,"Offset Ya3 (approximate value) in m"); +Ya4=(x4^2)/(2*R);// Offset Ya4 (approximate value) in m +disp(Ya4,"Offset Ya4 (approximate value) in m"); +Ya5=(x5^2)/(2*R);// Offset Ya5 (approximate value) in m +disp(Ya5,"Offset Ya5 (approximate value) in m"); +Ya6=(x6^2)/(2*R);// Offset Ya6 (approximate value) in m +disp(Ya6,"Offset Ya6 (approximate value) in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.7/Example15_7.sce b/3908/CH15/EX15.7/Example15_7.sce new file mode 100644 index 000000000..35fd77967 --- /dev/null +++ b/3908/CH15/EX15.7/Example15_7.sce @@ -0,0 +1,55 @@ +//Example 15_7 +clc; +clear; +close; + +//Given data +x1=20;// Distance along tangent in m +x2=40;// Distance along tangent in m +x3=60;// Distance along tangent in m +x4=80;// Distance along tangent in m +x5=100;// Distance along tangent in m +x6=120;// Distance along tangent in m +R=300;// Radius of the curve in m +disp("Radial offset (exact value)"); +Yr1=sqrt((R^2)+(x1^2))-R;// Radial offset Yr1 (exact value) in m +disp(Yr1,"Radial offset Yr1 (exact value) in m"); +Yr2=sqrt((R^2)+(x2^2))-R;// Radial offset Yr2 (exact value) in m +disp(Yr2,"Radial offset Yr2 (exact value) in m"); +Yr3=sqrt((R^2)+(x3^2))-R;// Radial offset Yr3 (exact value) in m +disp(Yr3,"Radial offset Yr3 (exact value) in m"); +Yr4=sqrt((R^2)+(x4^2))-R;// Radial offset Yr4 (exact value) in m +disp(Yr4,"Radial offset Yr4 (exact value) in m"); +Yr5=sqrt((R^2)+(x5^2))-R;// Radial offset Yr5 (exact value) in m +disp(Yr5,"Radial offset Yr5 (exact value) in m"); +Yr6=sqrt((R^2)+(x6^2))-R;// Radial offset Yr6 (exact value) in m +disp(Yr6,"Radial offset Yr6 (exact value) in m"); + +disp("Perpendicular offset (exact value)"); +Yp1=R-sqrt((R^2)-(x1^2));// Perpendicular offset Yp1 (exact value) in m +disp(Yp1,"Perpendicular offset Yp1 (exact value) in m"); +Yp2=R-sqrt((R^2)-(x2^2));// Perpendicular offset Yp2 (exact value) in m +disp(Yp2,"Perpendicular offset Yp2 (exact value) in m"); +Yp3=R-sqrt((R^2)-(x3^2));// Perpendicular offset Yp3 (exact value) in m +disp(Yp3,"Perpendicular offset Yp3 (exact value) in m"); +Yp4=R-sqrt((R^2)-(x4^2));// Perpendicular offset Yp4 (exact value) in m +disp(Yp4,"Perpendicular offset Yp4 (exact value) in m"); +Yp5=R-sqrt((R^2)-(x5^2));// Perpendicular offset Yp5 (exact value) in m +disp(Yp5,"Perpendicular offset Yp5 (exact value) in m"); +Yp6=R-sqrt((R^2)-(x6^2));// Perpendicular offset Yp6 (exact value) in m +disp(Yp6,"Perpendicular offset Yp6 (exact value) in m"); + +disp("Approximate value of offset"); +Ya1=(x1^2)/(2*R);// Offset Ya1 (approximate value) in m +disp(Ya1,"Offset Ya1 (approximate value) in m"); +Ya2=(x2^2)/(2*R);// Offset Ya2 (approximate value) in m +disp(Ya2,"Offset Ya2 (approximate value) in m"); +Ya3=(x3^2)/(2*R);// Offset Ya3 (approximate value) in m +disp(Ya3,"Offset Ya3 (approximate value) in m"); +Ya4=(x4^2)/(2*R);// Offset Ya4 (approximate value) in m +disp(Ya4,"Offset Ya4 (approximate value) in m"); +Ya5=(x5^2)/(2*R);// Offset Ya5 (approximate value) in m +disp(Ya5,"Offset Ya5 (approximate value) in m"); +Ya6=(x6^2)/(2*R);// Offset Ya6 (approximate value) in m +disp(Ya6,"Offset Ya6 (approximate value) in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.8/Ex15_8.sce b/3908/CH15/EX15.8/Ex15_8.sce new file mode 100644 index 000000000..bb9681a9d --- /dev/null +++ b/3908/CH15/EX15.8/Ex15_8.sce @@ -0,0 +1,48 @@ +//Example 15_8 +clc; +clear; +close; + +//Given data +x1=20;// Distance along tangent in m +x2=40;// Distance along tangent in m +x3=60;// Distance along tangent in m +x4=80;// Distance along tangent in m +x5=100;// Distance along tangent in m +R=800;// Radius of the curve in m +disp("Radial offset (exact value)"); +Yr1=sqrt((R^2)+(x1^2))-R;// Radial offset Yr1 (exact value) in m +disp(Yr1,"Radial offset Yr1 (exact value) in m"); +Yr2=sqrt((R^2)+(x2^2))-R;// Radial offset Yr2 (exact value) in m +disp(Yr2,"Radial offset Yr2 (exact value) in m"); +Yr3=sqrt((R^2)+(x3^2))-R;// Radial offset Yr3 (exact value) in m +disp(Yr3,"Radial offset Yr3 (exact value) in m"); +Yr4=sqrt((R^2)+(x4^2))-R;// Radial offset Yr4 (exact value) in m +disp(Yr4,"Radial offset Yr4 (exact value) in m"); +Yr5=sqrt((R^2)+(x5^2))-R;// Radial offset Yr5 (exact value) in m +disp(Yr5,"Radial offset Yr5 (exact value) in m"); + +disp("Perpendicular offset (exact value)"); +Yp1=R-sqrt((R^2)-(x1^2));// Perpendicular offset Yp1 (exact value) in m +disp(Yp1,"Perpendicular offset Yp1 (exact value) in m"); +Yp2=R-sqrt((R^2)-(x2^2));// Perpendicular offset Yp2 (exact value) in m +disp(Yp2,"Perpendicular offset Yp2 (exact value) in m"); +Yp3=R-sqrt((R^2)-(x3^2));// Perpendicular offset Yp3 (exact value) in m +disp(Yp3,"Perpendicular offset Yp3 (exact value) in m"); +Yp4=R-sqrt((R^2)-(x4^2));// Perpendicular offset Yp4 (exact value) in m +disp(Yp4,"Perpendicular offset Yp4 (exact value) in m"); +Yp5=R-sqrt((R^2)-(x5^2));// Perpendicular offset Yp5 (exact value) in m +disp(Yp5,"Perpendicular offset Yp5 (exact value) in m"); + +disp("Approximate value of offset"); +Ya1=(x1^2)/(2*R);// Offset Ya1 (approximate value) in m +disp(Ya1,"Offset Ya1 (approximate value) in m"); +Ya2=(x2^2)/(2*R);// Offset Ya2 (approximate value) in m +disp(Ya2,"Offset Ya2 (approximate value) in m"); +Ya3=(x3^2)/(2*R);// Offset Ya3 (approximate value) in m +disp(Ya3,"Offset Ya3 (approximate value) in m"); +Ya4=(x4^2)/(2*R);// Offset Ya4 (approximate value) in m +disp(Ya4,"Offset Ya4 (approximate value) in m"); +Ya5=(x5^2)/(2*R);// Offset Ya5 (approximate value) in m +disp(Ya5,"Offset Ya5 (approximate value) in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.8/Example15_8.sce b/3908/CH15/EX15.8/Example15_8.sce new file mode 100644 index 000000000..bb9681a9d --- /dev/null +++ b/3908/CH15/EX15.8/Example15_8.sce @@ -0,0 +1,48 @@ +//Example 15_8 +clc; +clear; +close; + +//Given data +x1=20;// Distance along tangent in m +x2=40;// Distance along tangent in m +x3=60;// Distance along tangent in m +x4=80;// Distance along tangent in m +x5=100;// Distance along tangent in m +R=800;// Radius of the curve in m +disp("Radial offset (exact value)"); +Yr1=sqrt((R^2)+(x1^2))-R;// Radial offset Yr1 (exact value) in m +disp(Yr1,"Radial offset Yr1 (exact value) in m"); +Yr2=sqrt((R^2)+(x2^2))-R;// Radial offset Yr2 (exact value) in m +disp(Yr2,"Radial offset Yr2 (exact value) in m"); +Yr3=sqrt((R^2)+(x3^2))-R;// Radial offset Yr3 (exact value) in m +disp(Yr3,"Radial offset Yr3 (exact value) in m"); +Yr4=sqrt((R^2)+(x4^2))-R;// Radial offset Yr4 (exact value) in m +disp(Yr4,"Radial offset Yr4 (exact value) in m"); +Yr5=sqrt((R^2)+(x5^2))-R;// Radial offset Yr5 (exact value) in m +disp(Yr5,"Radial offset Yr5 (exact value) in m"); + +disp("Perpendicular offset (exact value)"); +Yp1=R-sqrt((R^2)-(x1^2));// Perpendicular offset Yp1 (exact value) in m +disp(Yp1,"Perpendicular offset Yp1 (exact value) in m"); +Yp2=R-sqrt((R^2)-(x2^2));// Perpendicular offset Yp2 (exact value) in m +disp(Yp2,"Perpendicular offset Yp2 (exact value) in m"); +Yp3=R-sqrt((R^2)-(x3^2));// Perpendicular offset Yp3 (exact value) in m +disp(Yp3,"Perpendicular offset Yp3 (exact value) in m"); +Yp4=R-sqrt((R^2)-(x4^2));// Perpendicular offset Yp4 (exact value) in m +disp(Yp4,"Perpendicular offset Yp4 (exact value) in m"); +Yp5=R-sqrt((R^2)-(x5^2));// Perpendicular offset Yp5 (exact value) in m +disp(Yp5,"Perpendicular offset Yp5 (exact value) in m"); + +disp("Approximate value of offset"); +Ya1=(x1^2)/(2*R);// Offset Ya1 (approximate value) in m +disp(Ya1,"Offset Ya1 (approximate value) in m"); +Ya2=(x2^2)/(2*R);// Offset Ya2 (approximate value) in m +disp(Ya2,"Offset Ya2 (approximate value) in m"); +Ya3=(x3^2)/(2*R);// Offset Ya3 (approximate value) in m +disp(Ya3,"Offset Ya3 (approximate value) in m"); +Ya4=(x4^2)/(2*R);// Offset Ya4 (approximate value) in m +disp(Ya4,"Offset Ya4 (approximate value) in m"); +Ya5=(x5^2)/(2*R);// Offset Ya5 (approximate value) in m +disp(Ya5,"Offset Ya5 (approximate value) in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.9/Ex15_9.sce b/3908/CH15/EX15.9/Ex15_9.sce new file mode 100644 index 000000000..d4c8eb654 --- /dev/null +++ b/3908/CH15/EX15.9/Ex15_9.sce @@ -0,0 +1,31 @@ +//Example 15_9 +clc; +clear; +close; + +//Given data +R=400;// Radius of the curve in m +teta=42;// Deflection angle in degree +i=20;// Chord interval in m +d=2*asind(i/(2*R));// Degree of curve with 20-m chord in m +hca= teta/2;;// Half the central angle in degree +// This will give 7 chords +a=7*d;// Angle for seven chords in degree +ba=hca-a;// Balance angle in degree +c0=0;// Chord length c0 in m +c1=i*ba/d;// Chord length c1 in m +c2=i;// Chord length c2 in m +c3=i;// Chord length c3 in m +c4=i;// Chord length c4 in m +c5=i;// Chord length c5 in m +Y1=c1*(c0+c1)/(2*R);// Offset Y1 in m +disp(Y1,"Offset Y1 in m"); +Y2=c2*(c1+c2)/(2*R);// Offset Y2 in m +disp(Y2,"Offset Y2 in m"); +Y3=c3*(c2+c3)/(2*R);// Offset Y3 in m +disp(Y3,"Offset Y3 in m"); +Y4=c4*(c3+c4)/(2*R);// Offset Y4 in m +disp(Y4,"Offset Y4 in m"); +Y5=c5*(c4+c5)/(2*R);// Offset Y5 in m +disp(Y5,"Offset Y5 in m"); +// The answers vary due to round off error diff --git a/3908/CH15/EX15.9/Example15_9.sce b/3908/CH15/EX15.9/Example15_9.sce new file mode 100644 index 000000000..d4c8eb654 --- /dev/null +++ b/3908/CH15/EX15.9/Example15_9.sce @@ -0,0 +1,31 @@ +//Example 15_9 +clc; +clear; +close; + +//Given data +R=400;// Radius of the curve in m +teta=42;// Deflection angle in degree +i=20;// Chord interval in m +d=2*asind(i/(2*R));// Degree of curve with 20-m chord in m +hca= teta/2;;// Half the central angle in degree +// This will give 7 chords +a=7*d;// Angle for seven chords in degree +ba=hca-a;// Balance angle in degree +c0=0;// Chord length c0 in m +c1=i*ba/d;// Chord length c1 in m +c2=i;// Chord length c2 in m +c3=i;// Chord length c3 in m +c4=i;// Chord length c4 in m +c5=i;// Chord length c5 in m +Y1=c1*(c0+c1)/(2*R);// Offset Y1 in m +disp(Y1,"Offset Y1 in m"); +Y2=c2*(c1+c2)/(2*R);// Offset Y2 in m +disp(Y2,"Offset Y2 in m"); +Y3=c3*(c2+c3)/(2*R);// Offset Y3 in m +disp(Y3,"Offset Y3 in m"); +Y4=c4*(c3+c4)/(2*R);// Offset Y4 in m +disp(Y4,"Offset Y4 in m"); +Y5=c5*(c4+c5)/(2*R);// Offset Y5 in m +disp(Y5,"Offset Y5 in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.1/Ex16_1.sce b/3908/CH16/EX16.1/Ex16_1.sce new file mode 100644 index 000000000..f65aeca0b --- /dev/null +++ b/3908/CH16/EX16.1/Ex16_1.sce @@ -0,0 +1,15 @@ +//Example 16_1 +clc; +clear; +close; + +//Given data : +RLb=380.355;// Rl of benchmark in m +sr=2.785;// Staff reading in m +RLl=RLb+sr;// RL of line of sight in m +D=185;// Distance between the instrument and point P in m +alpha=8+(28/60)+(40/3600);// Vertical angle in degree +h=D*tand(alpha);// Height of staff mark above line of sight in m +RLp=RLl+h-3;// RL of staton P in m +disp(RLp,"RL of staton P in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.1/Example16_1.sce b/3908/CH16/EX16.1/Example16_1.sce new file mode 100644 index 000000000..f65aeca0b --- /dev/null +++ b/3908/CH16/EX16.1/Example16_1.sce @@ -0,0 +1,15 @@ +//Example 16_1 +clc; +clear; +close; + +//Given data : +RLb=380.355;// Rl of benchmark in m +sr=2.785;// Staff reading in m +RLl=RLb+sr;// RL of line of sight in m +D=185;// Distance between the instrument and point P in m +alpha=8+(28/60)+(40/3600);// Vertical angle in degree +h=D*tand(alpha);// Height of staff mark above line of sight in m +RLp=RLl+h-3;// RL of staton P in m +disp(RLp,"RL of staton P in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.2/Ex16_2.sce b/3908/CH16/EX16.2/Ex16_2.sce new file mode 100644 index 000000000..a24c4cfe1 --- /dev/null +++ b/3908/CH16/EX16.2/Ex16_2.sce @@ -0,0 +1,22 @@ +//Example 16_2 +clc; +clear; +close; + +//Given data : +RLb=1583.55;// Rl of benchmark in m +sr=1.875;// Staff reading in m +RLl=RLb+sr;// RL of line of sight in m +D1=300;// Distance between the instrument and point P in m +D2=2850;// Distance between the instrument and point Q in m +// For point P +alpha1=4+(30/60)+(0/3600);// Vertical angle at P in degree +h1=D1*tand(alpha1);// Height of staff mark above line of sight at P in m +RLp=RLl+h1-4;// RL of staton P in m +disp(RLp,"RL of staton P in m"); +// For point Q +alpha2=7+(34/60)+(30/3600);// Vertical angle at Q in degree +h2=D2*tand(alpha2);// Height of staff mark above line of sight at Q in m +C=0.06375*((D2/1000)^2);// Correction for curvature and refraction in m +RLq=RLl+h1+C-4;// RL of staton Q in m +disp(RLq,"RL of staton Q in m"); diff --git a/3908/CH16/EX16.2/Example16_2.sce b/3908/CH16/EX16.2/Example16_2.sce new file mode 100644 index 000000000..a24c4cfe1 --- /dev/null +++ b/3908/CH16/EX16.2/Example16_2.sce @@ -0,0 +1,22 @@ +//Example 16_2 +clc; +clear; +close; + +//Given data : +RLb=1583.55;// Rl of benchmark in m +sr=1.875;// Staff reading in m +RLl=RLb+sr;// RL of line of sight in m +D1=300;// Distance between the instrument and point P in m +D2=2850;// Distance between the instrument and point Q in m +// For point P +alpha1=4+(30/60)+(0/3600);// Vertical angle at P in degree +h1=D1*tand(alpha1);// Height of staff mark above line of sight at P in m +RLp=RLl+h1-4;// RL of staton P in m +disp(RLp,"RL of staton P in m"); +// For point Q +alpha2=7+(34/60)+(30/3600);// Vertical angle at Q in degree +h2=D2*tand(alpha2);// Height of staff mark above line of sight at Q in m +C=0.06375*((D2/1000)^2);// Correction for curvature and refraction in m +RLq=RLl+h1+C-4;// RL of staton Q in m +disp(RLq,"RL of staton Q in m"); diff --git a/3908/CH16/EX16.3/Ex16_3.sce b/3908/CH16/EX16.3/Ex16_3.sce new file mode 100644 index 000000000..fa5073339 --- /dev/null +++ b/3908/CH16/EX16.3/Ex16_3.sce @@ -0,0 +1,21 @@ +//Example 16_3 +clc; +clear; +close; + +//Given data : +// Let the distance of the instrument station I1 from P be D +// The distance of I2 form P = D+150 +alpha1=30+(30/60);// Vertical angle from I1 in degree +alpha2=18+(30/60);// Vertical angle from I2 in degree +// h1=D*tan(alpha1), h2=(D+150)*tan(alpha2) +// The two heights are equal, therefore h1= h2 +// Rearranging the equation as D=150*tan(alpha2)/(tan(alpha1)-tan(alpha2)) +D=150*tand(alpha2)/(tand(alpha1)-tand(alpha2));// Horizontal distance P in m +disp(D,"Horizontal distance P in m"); +h=D*tand(alpha1);// Elevation of P in m +// Corrections for curvature and refraction need not to be applied, as the distance is small +RLi=1355.765;// RL of instrument axis in m +RLp=RLi+h-4;// RL of station P in m +disp(RLp,"RL of station P in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.3/Example16_3.sce b/3908/CH16/EX16.3/Example16_3.sce new file mode 100644 index 000000000..fa5073339 --- /dev/null +++ b/3908/CH16/EX16.3/Example16_3.sce @@ -0,0 +1,21 @@ +//Example 16_3 +clc; +clear; +close; + +//Given data : +// Let the distance of the instrument station I1 from P be D +// The distance of I2 form P = D+150 +alpha1=30+(30/60);// Vertical angle from I1 in degree +alpha2=18+(30/60);// Vertical angle from I2 in degree +// h1=D*tan(alpha1), h2=(D+150)*tan(alpha2) +// The two heights are equal, therefore h1= h2 +// Rearranging the equation as D=150*tan(alpha2)/(tan(alpha1)-tan(alpha2)) +D=150*tand(alpha2)/(tand(alpha1)-tand(alpha2));// Horizontal distance P in m +disp(D,"Horizontal distance P in m"); +h=D*tand(alpha1);// Elevation of P in m +// Corrections for curvature and refraction need not to be applied, as the distance is small +RLi=1355.765;// RL of instrument axis in m +RLp=RLi+h-4;// RL of station P in m +disp(RLp,"RL of station P in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.4/Ex16_4.sce b/3908/CH16/EX16.4/Ex16_4.sce new file mode 100644 index 000000000..e8e0cbe9b --- /dev/null +++ b/3908/CH16/EX16.4/Ex16_4.sce @@ -0,0 +1,25 @@ +//Example 16_4 +clc; +clear; +close; + +//Given data : +r1=1.35;// Reading at benchmark from station I1 in m +r2=2.15;// Reading at benchmark from station I2 in m +S=r2-r1;// Difference in height of instrument axis in m +alpha1=19+(30/60);// Vertical angle from I1 in degree +alpha2=8+(15/60);// Vertical angle from I2 in degree +// If D is the distance between instrument station 1 and the object, then D*tan(alpha1) = H + S +// H - Height from station 2 +// S - Difference between the staff intercepts +// Instrument station 2 is at D+200 m from object +// (D+200)*tan(alpha2) = H +// Equating both the H values gives (D+200)*tan(alpha2) = D*tan(alpha1)-S +// Rearranging the equation as D=((200*tan(alpha2))+S)/(tan(alpha1)-tan(alpha2)) +D=((200*tand(alpha2))+S)/(tand(alpha1)-tand(alpha2));// Horizontal distance in m +disp(D,"Horizontal distance in m"); +H=(D+200)*tand(alpha2);// Height in m +RLb=1020.375;// RL of benchmark in m +RL=RLb+r2+H;// RL of the top of the chimney in m +disp(RL,"RL of the top of the chimney in m") +// The answers vary due to round off error diff --git a/3908/CH16/EX16.4/Example16_4.sce b/3908/CH16/EX16.4/Example16_4.sce new file mode 100644 index 000000000..661cb522b --- /dev/null +++ b/3908/CH16/EX16.4/Example16_4.sce @@ -0,0 +1,24 @@ +//Example 16_4 +clc; +clear; +close; + +//Given data : +r1=1.35;// Reading at benchmark from station I1 in m +r2=2.15;// Reading at benchmark from station I2 in m +S=r2-r1;// Difference in height of instrument axis in m +alpha1=19+(30/60);// Vertical angle from I1 in degree +alpha2=8+(15/60);// Vertical angle from I2 in degree +// If D is the distance between instrument station 1 and the object, then D*tan(alpha1) = H + S +// H - Height from station 2 +// S - Difference between the staff intercepts +// Instrument station 2 is at D+200 m from object +// (D+200)*tan(alpha2) = H +// Equating both the H values gives (D+200)*tan(alpha2) = D*tan(alpha1)-S +// Rearranging the equation as D=((200*tan(alpha2))+S)/(tan(alpha1)-tan(alpha2)) +D=((200*tand(alpha2))+S)/(tand(alpha1)-tand(alpha2));// Horizontal distance in m +disp(D,"Horizontal distance in m"); +H=(D+200)*tand(alpha2);// Height in m +RLb=1020.375;// RL of benchmark in m +RL=RLb+r2+H;// RL of the top of the chimney in m +disp(RL,"RL of the top of the chimney in m") diff --git a/3908/CH16/EX16.5/Ex16_5.sce b/3908/CH16/EX16.5/Ex16_5.sce new file mode 100644 index 000000000..3dab950f1 --- /dev/null +++ b/3908/CH16/EX16.5/Ex16_5.sce @@ -0,0 +1,25 @@ +//Example 16_5 +clc; +clear; +close; + +//Given data : +D=180;// Distance between the stations in m +a1=58+(30/60);// Angle PI1I2 in degree +a2=50+(50/60);// Angle PI2I1 in degree +a=180-a1-a2;// Angle in I1PI2 in m +// By sine rule, +// 180/sin(a) = I1P/sin(a1) = I2P/sin(a2) +I1P=180*sind(a2)/sind(a);// Distance from I1 to point P in m +disp(I1P,"Distance from I1 to point P in m"); +I2P=180*sind(a1)/sind(a);// Distance from I2 to point P in m +disp(I2P,"Distance from I2 to point P in m"); +alpha1=10+(50/60);// Vertical angle from I1 in degree +alpha2=9+(27/60);// Vertical angle from I2 in degree +r1=1.65;// Reading at benchmark from station I1 in m +r2=2.85;// Reading at benchmark from station I2 in m +H=I1P*tand(alpha1);// Height in m +RLb=1085.65;// RL of benchmark in m +RLp=RLb+r1+H;// RL of P in m +disp(RLp,"RL of P in m"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.5/Example16_5.sce b/3908/CH16/EX16.5/Example16_5.sce new file mode 100644 index 000000000..86ca0a73c --- /dev/null +++ b/3908/CH16/EX16.5/Example16_5.sce @@ -0,0 +1,24 @@ +//Example 16_5 +clc; +clear; +close; + +//Given data : +D=180;// Distance between the stations in m +a1=58+(30/60);// Angle PI1I2 in degree +a2=50+(50/60);// Angle PI2I1 in degree +a=180-a1-a2;// Angle in I1PI2 in m +// By sine rule, +// 180/sin(a) = I1P/sin(a1) = I2P/sin(a2) +I1P=180*sind(a2)/sind(a);// Distance from I1 to point P in m +disp(I1P,"Distance from I1 to point P in m"); +I2P=180*sind(a1)/sind(a);// Distance from I2 to point P in m +disp(I2P,"Distance from I2 to point P in m"); +alpha1=10+(50/60);// Vertical angle from I1 in degree +alpha2=9+(27/60);// Vertical angle from I2 in degree +r1=1.65;// Reading at benchmark from station I1 in m +r2=2.85;// Reading at benchmark from station I2 in m +H=I1P*tand(alpha1);// Height in m +RLb=1085.65;// RL of benchmark in m +RLp=RLb+r1+H;// RL of P in m +disp(RLp,"RL of P in m"); diff --git a/3908/CH16/EX16.6/Ex16_6.sce b/3908/CH16/EX16.6/Ex16_6.sce new file mode 100644 index 000000000..ad6091589 --- /dev/null +++ b/3908/CH16/EX16.6/Ex16_6.sce @@ -0,0 +1,22 @@ +//Example 16_6 +clc; +clear; +close; + +//Given data : +d=980;// Distance in m +// R*sin(1")=30.91 +a=30.91; +teta=d/a;// Central angle in seconds +R=6380;// Radius in m +Cc=((d/1000)^2)/(2*R);// Curvature correction in m +disp(Cc,"Curvature correction in m"); +Cr=1/7*Cc;// Correction for refraction in m +CC=Cc-Cr;// Combined Correction in m +Ac=teta/2;// Angular correction in seconds +disp(Ac,"Angular correction in seconds"); +Cr1=Cc*1000*d/a;// Correction for refraction in seconds +disp(Cr1,"Correction for refraction in seconds"); +CC1=Ac-Cr1;// Combined correction in seconds +disp(CC1,"Combined correction in seconds"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.6/Example16_6.sce b/3908/CH16/EX16.6/Example16_6.sce new file mode 100644 index 000000000..ad6091589 --- /dev/null +++ b/3908/CH16/EX16.6/Example16_6.sce @@ -0,0 +1,22 @@ +//Example 16_6 +clc; +clear; +close; + +//Given data : +d=980;// Distance in m +// R*sin(1")=30.91 +a=30.91; +teta=d/a;// Central angle in seconds +R=6380;// Radius in m +Cc=((d/1000)^2)/(2*R);// Curvature correction in m +disp(Cc,"Curvature correction in m"); +Cr=1/7*Cc;// Correction for refraction in m +CC=Cc-Cr;// Combined Correction in m +Ac=teta/2;// Angular correction in seconds +disp(Ac,"Angular correction in seconds"); +Cr1=Cc*1000*d/a;// Correction for refraction in seconds +disp(Cr1,"Correction for refraction in seconds"); +CC1=Ac-Cr1;// Combined correction in seconds +disp(CC1,"Combined correction in seconds"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.7/Ex16_7.sce b/3908/CH16/EX16.7/Ex16_7.sce new file mode 100644 index 000000000..acf9ceb64 --- /dev/null +++ b/3908/CH16/EX16.7/Ex16_7.sce @@ -0,0 +1,23 @@ +//Example 16_7 +clc; +clear; +close; + +//Given data : +d=2860;// Distance between station P and station Q in m +// R*sin(1")=30.91 +a=30.91; +teta=d/a;// Central angle in seconds +R=6380;// Radius in m +Cc=teta/2;// Curvature correction in seconds +disp(Cc,"Curvature correction in seconds"); +Cr=0.07*teta;// Correction for refraction in seconds +disp(Cr,"Correction for refraction in seconds"); +CC=Cc-Cr;// Combined correction in seconds +disp(CC,"Combined correction in seconds"); +alpha=68-CC;// Corrected angle at P in seconds +// From Cr = teta/2 - (alpha+beta)/2 => (alpha+beta)/2 = teta/2 - Cr +// alpha+beta = 2*(teta/2 - Cr) +beta=(2*((teta/2)-Cr))-alpha;// Angle measured form Q in seconds +disp(beta,"Angle measured form Q in seconds"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.7/Example16_7.sce b/3908/CH16/EX16.7/Example16_7.sce new file mode 100644 index 000000000..acf9ceb64 --- /dev/null +++ b/3908/CH16/EX16.7/Example16_7.sce @@ -0,0 +1,23 @@ +//Example 16_7 +clc; +clear; +close; + +//Given data : +d=2860;// Distance between station P and station Q in m +// R*sin(1")=30.91 +a=30.91; +teta=d/a;// Central angle in seconds +R=6380;// Radius in m +Cc=teta/2;// Curvature correction in seconds +disp(Cc,"Curvature correction in seconds"); +Cr=0.07*teta;// Correction for refraction in seconds +disp(Cr,"Correction for refraction in seconds"); +CC=Cc-Cr;// Combined correction in seconds +disp(CC,"Combined correction in seconds"); +alpha=68-CC;// Corrected angle at P in seconds +// From Cr = teta/2 - (alpha+beta)/2 => (alpha+beta)/2 = teta/2 - Cr +// alpha+beta = 2*(teta/2 - Cr) +beta=(2*((teta/2)-Cr))-alpha;// Angle measured form Q in seconds +disp(beta,"Angle measured form Q in seconds"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.8/Ex16_8.sce b/3908/CH16/EX16.8/Ex16_8.sce new file mode 100644 index 000000000..1efb67257 --- /dev/null +++ b/3908/CH16/EX16.8/Ex16_8.sce @@ -0,0 +1,24 @@ +//Example 16_8 +clc; +clear; +close; + +//Given data : +alpha=2+(34/60)+(35/3600);// Vertical angle from P to Q in degree +// R*sin(1")=30.91 +a=30.91; +d=2574;// Distance between station P and station Q in m +teta=d/a;// Central angle in seconds +teta1=alpha+(teta/3600);// Angle in degree +s=5;// Target height in m +h=1.35;// Height of instrument in m +x=teta/(2*3600); +AC=(s-h)*(cosd(teta1)^2)/(d*cosd(teta/(2*3600)));// Axis-signal correction in radian +AC=AC*180/3.14;// Axis-signal correction in degree +M=AC*60;// Axis-signal correction in minute +disp(M,"Axis-signal correction in minute"); +CE=alpha-AC;// Corrected angle of elevation in degree +CEm=(CE-int(CE))*60;// in minutes +CEs=(CEm-int(CEm))*60;// in seconds +disp(CEs,int(CEm),int(CE),"Corrected angle of elevation in degree,minutes and seconds respectively"); +// The answers vary due to round off error diff --git a/3908/CH16/EX16.8/Example16_8.sce b/3908/CH16/EX16.8/Example16_8.sce new file mode 100644 index 000000000..99a44f379 --- /dev/null +++ b/3908/CH16/EX16.8/Example16_8.sce @@ -0,0 +1,20 @@ +//Example 16_8 +clc; +clear; +close; + +//Given data : +alpha=2+(34/60)+(35/3600);// Vertical angle from P to Q in degree +// R*sin(1")=30.91 +a=30.91; +d=2574;// Distance between station P and station Q in m +teta=d/a;// Central angle in seconds +teta1=alpha+(teta/3600);// Angle in degree +s=5;// Target height in m +h=1.35;// Height of instrument in m +AC=(s-h)*(cosd(teta1)^2)/(d*cosd(teta/(2*3600)));// Axis-signal correction in radian +AC=AC*180/3.14;// Axis-signal correction in degree +disp(AC,"Axis-signal correction in degree"); +CE=alpha-AC;// Corrected angle of elevation in degree +disp(CE,"Corrected angle of elevation in degree"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.1/Ex17_1.sce b/3908/CH17/EX17.1/Ex17_1.sce new file mode 100644 index 000000000..8dbd2a26f --- /dev/null +++ b/3908/CH17/EX17.1/Ex17_1.sce @@ -0,0 +1,17 @@ +//Example 17_1 +clc; +clear; +close; + +//Given data : +n=3; +s=3; +n1=3; +s1=3; +C=(n-s+1)+(n1-(2*s1)+3); +D=6-2;// There are six angles and sides; two unknown base lines are not to be counted +A=70;// Angle A in degree +B=45;// Angle B in degree +a=7; +R=(D-C)*a/D;// Strength of figure +disp(R,"Strength of figure"); diff --git a/3908/CH17/EX17.1/Example17_1.sce b/3908/CH17/EX17.1/Example17_1.sce new file mode 100644 index 000000000..8dbd2a26f --- /dev/null +++ b/3908/CH17/EX17.1/Example17_1.sce @@ -0,0 +1,17 @@ +//Example 17_1 +clc; +clear; +close; + +//Given data : +n=3; +s=3; +n1=3; +s1=3; +C=(n-s+1)+(n1-(2*s1)+3); +D=6-2;// There are six angles and sides; two unknown base lines are not to be counted +A=70;// Angle A in degree +B=45;// Angle B in degree +a=7; +R=(D-C)*a/D;// Strength of figure +disp(R,"Strength of figure"); diff --git a/3908/CH17/EX17.10/Ex17_10.sce b/3908/CH17/EX17.10/Ex17_10.sce new file mode 100644 index 000000000..fb5ec85fc --- /dev/null +++ b/3908/CH17/EX17.10/Ex17_10.sce @@ -0,0 +1,26 @@ +//Example 17_10 +clc; +clear; +close; + +//Given data : +Rl=755.385;// Recorded length of line in m +Ts=27;// Standardised temperature in degree celcius +Tm=12;// Measured temperature in degree celcius +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Tc=Rl*alpha*(Tm-Ts);// Temperature correction in m +s1=1+(30/60);// Slope 1 in degree +s2=2+(10/60);// Slope 2 in degree +s3=3+(30/60);// Slope 3 in degree +s4=2+(45/60);// Slope 4 in degree +s5=4+(30/60);// Slope 5 in degree +l1=120;// Length of slope for 1 degree 30 minutes in m +l2=248;// Length of slope for 2 degree 10 minutes in m +l3=136;// Length of slope for 3 degree 30 minutes in m +l4=135;// Length of slope for 4 degree 45 minutes in m +l5=Rl-(l1+l2+l3+l4);// Length of slope for 4 degree 30 minutes in m +Cs=(l1*(1-cosd(s1)))+(l2*(1-cosd(s2)))+(l3*(1-cosd(s3)))+(l4*(1-cosd(s4)))+(l5*(1-cosd(s5)));// Correction for slope in m +TC=Tc-Cs;// Total correction in m +TL=Rl+TC;// True length of the line in m +disp(TL,"True length of the line in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.10/Example17_10.sce b/3908/CH17/EX17.10/Example17_10.sce new file mode 100644 index 000000000..fb5ec85fc --- /dev/null +++ b/3908/CH17/EX17.10/Example17_10.sce @@ -0,0 +1,26 @@ +//Example 17_10 +clc; +clear; +close; + +//Given data : +Rl=755.385;// Recorded length of line in m +Ts=27;// Standardised temperature in degree celcius +Tm=12;// Measured temperature in degree celcius +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Tc=Rl*alpha*(Tm-Ts);// Temperature correction in m +s1=1+(30/60);// Slope 1 in degree +s2=2+(10/60);// Slope 2 in degree +s3=3+(30/60);// Slope 3 in degree +s4=2+(45/60);// Slope 4 in degree +s5=4+(30/60);// Slope 5 in degree +l1=120;// Length of slope for 1 degree 30 minutes in m +l2=248;// Length of slope for 2 degree 10 minutes in m +l3=136;// Length of slope for 3 degree 30 minutes in m +l4=135;// Length of slope for 4 degree 45 minutes in m +l5=Rl-(l1+l2+l3+l4);// Length of slope for 4 degree 30 minutes in m +Cs=(l1*(1-cosd(s1)))+(l2*(1-cosd(s2)))+(l3*(1-cosd(s3)))+(l4*(1-cosd(s4)))+(l5*(1-cosd(s5)));// Correction for slope in m +TC=Tc-Cs;// Total correction in m +TL=Rl+TC;// True length of the line in m +disp(TL,"True length of the line in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.11/Ex17_11.sce b/3908/CH17/EX17.11/Ex17_11.sce new file mode 100644 index 000000000..fb5336713 --- /dev/null +++ b/3908/CH17/EX17.11/Ex17_11.sce @@ -0,0 +1,16 @@ +//Example 17_11 +clc; +clear; +close; + +//Given data : +A=8/(10^6);// Area of cross section of tape in sq. m +d=78500;// Density of the tape material in N/cubic m +w=A*1*d;// Weight of the tape per meter length in N/m +l=100;// Length of tape in m +n=3;// Number of spans +W=w*l/n;// Weight of tape between supports in N +P=200;// Force of pull in N +SC=n*(l/n)*(W^2)/(24*(P^2));// Sag correction in m +disp(SC,"Sag correction in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.11/Example17_11.sce b/3908/CH17/EX17.11/Example17_11.sce new file mode 100644 index 000000000..fb5336713 --- /dev/null +++ b/3908/CH17/EX17.11/Example17_11.sce @@ -0,0 +1,16 @@ +//Example 17_11 +clc; +clear; +close; + +//Given data : +A=8/(10^6);// Area of cross section of tape in sq. m +d=78500;// Density of the tape material in N/cubic m +w=A*1*d;// Weight of the tape per meter length in N/m +l=100;// Length of tape in m +n=3;// Number of spans +W=w*l/n;// Weight of tape between supports in N +P=200;// Force of pull in N +SC=n*(l/n)*(W^2)/(24*(P^2));// Sag correction in m +disp(SC,"Sag correction in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.12/Ex17_12.sce b/3908/CH17/EX17.12/Ex17_12.sce new file mode 100644 index 000000000..9a5303007 --- /dev/null +++ b/3908/CH17/EX17.12/Ex17_12.sce @@ -0,0 +1,34 @@ +//Example 17_12 +clc; +clear; +close; + +//Given data : +L=50;// Length of tape in m +h1=110.385;// Elevation of A in m +h2=110.12;// Elevation of B in m +h=h1-h2;// Difference in elevation of A and B in m +Cs=h^2/(2*L);// Correction for slope in m +Ts=25;// Standardised temperature in degree celcius +Tm=42;// Measured temperature in degree celcius +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Ct=L*alpha*(Tm-Ts);// Temperature correction in m +P=150;// Measured pull in N +P0=100;// Standard pull in N +A=8/(10^6);// Area of cross section of tape in sq. m +E=2*10^11;// Youngs modulus in GN/sq. m +Cp=(P-P0)^2/(A*E);// Correction for pull in m +d=78500;// Density of the tape material in N/cubic m +w=A*1*d;// Weight of the tape per meter length in N/m +l=100;// Length of tape in m +n=1;// Number of spans +W=w*L/n;// Weight of tape between supports in N +CS=L*W^2/(24*P^2); +TC=Ct-Cs-Cp-CS;// +Cl=L+TC;// Corrected length in m +hm=1163.853;// Height of A above mean sea level in m +R=6370*1000; +Rm=L*hm/R;// Reduction at mean sea level in m +GL=Cl-Rm;// Geodetic length in m +disp(GL,"Geodetic length in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.12/Example17_12.sce b/3908/CH17/EX17.12/Example17_12.sce new file mode 100644 index 000000000..9a5303007 --- /dev/null +++ b/3908/CH17/EX17.12/Example17_12.sce @@ -0,0 +1,34 @@ +//Example 17_12 +clc; +clear; +close; + +//Given data : +L=50;// Length of tape in m +h1=110.385;// Elevation of A in m +h2=110.12;// Elevation of B in m +h=h1-h2;// Difference in elevation of A and B in m +Cs=h^2/(2*L);// Correction for slope in m +Ts=25;// Standardised temperature in degree celcius +Tm=42;// Measured temperature in degree celcius +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Ct=L*alpha*(Tm-Ts);// Temperature correction in m +P=150;// Measured pull in N +P0=100;// Standard pull in N +A=8/(10^6);// Area of cross section of tape in sq. m +E=2*10^11;// Youngs modulus in GN/sq. m +Cp=(P-P0)^2/(A*E);// Correction for pull in m +d=78500;// Density of the tape material in N/cubic m +w=A*1*d;// Weight of the tape per meter length in N/m +l=100;// Length of tape in m +n=1;// Number of spans +W=w*L/n;// Weight of tape between supports in N +CS=L*W^2/(24*P^2); +TC=Ct-Cs-Cp-CS;// +Cl=L+TC;// Corrected length in m +hm=1163.853;// Height of A above mean sea level in m +R=6370*1000; +Rm=L*hm/R;// Reduction at mean sea level in m +GL=Cl-Rm;// Geodetic length in m +disp(GL,"Geodetic length in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.2/Ex17_2.sce b/3908/CH17/EX17.2/Ex17_2.sce new file mode 100644 index 000000000..d096192e2 --- /dev/null +++ b/3908/CH17/EX17.2/Ex17_2.sce @@ -0,0 +1,14 @@ +//Example 17_2 +clc; +clear; +close; + +//Given data : +e=1/20000;// Probable error +a=log(1); +b=log(1+e); +L=21;// Difference in sixth place +d=1;// in seconds +R=3*L^2/(4*d^2);// Maximum value of R +disp(R,"Maximum value of R"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.2/Example17_2.sce b/3908/CH17/EX17.2/Example17_2.sce new file mode 100644 index 000000000..d096192e2 --- /dev/null +++ b/3908/CH17/EX17.2/Example17_2.sce @@ -0,0 +1,14 @@ +//Example 17_2 +clc; +clear; +close; + +//Given data : +e=1/20000;// Probable error +a=log(1); +b=log(1+e); +L=21;// Difference in sixth place +d=1;// in seconds +R=3*L^2/(4*d^2);// Maximum value of R +disp(R,"Maximum value of R"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.3/Example17_3.sce b/3908/CH17/EX17.3/Example17_3.sce new file mode 100644 index 000000000..d0efd27e3 --- /dev/null +++ b/3908/CH17/EX17.3/Example17_3.sce @@ -0,0 +1,13 @@ +//Example 17_3 +clc; +clear; +close; + +//Given data : +n=11;// Total number of lines +s=6;// Total number of stations +os=6;// Number of occupied stations +D=(n*2)-2; +C=(n-s+1)+(n-(2*s)+3); +x=(D-C)/D;// Value of (D-C)/D +disp(x,"Value of (D-C)/D"); diff --git a/3908/CH17/EX17.5/Ex17_5.sce b/3908/CH17/EX17.5/Ex17_5.sce new file mode 100644 index 000000000..bfce7df1b --- /dev/null +++ b/3908/CH17/EX17.5/Ex17_5.sce @@ -0,0 +1,20 @@ +//Example 17_5 +clc; +clear; +close; + +//Given data : +ue=328;// Uniform elevation in m +me=ue+3;// Minimum elevation of line of sight in m +E1=372;// Elevation of station A in m +E2=458;// Elevation of station B in m +h1=E1-me;// Elevation of A in m +h2=E2-me;// Elevation of B in m +D=72;// Distance between stations A and B in km +D1=sqrt(h1/0.06735);// Distance D1 from A in km +D2=D-D1;// Distance D2 from C in km +H=0.06735*D2^2;// Height of the point in the line of sight at B in m +eB=me+H;// Elevation of signal at B in m +HB=eB-E2;// Height of signal at B in m +disp(HB,"Height of signal at B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.5/Example17_5.sce b/3908/CH17/EX17.5/Example17_5.sce new file mode 100644 index 000000000..bfce7df1b --- /dev/null +++ b/3908/CH17/EX17.5/Example17_5.sce @@ -0,0 +1,20 @@ +//Example 17_5 +clc; +clear; +close; + +//Given data : +ue=328;// Uniform elevation in m +me=ue+3;// Minimum elevation of line of sight in m +E1=372;// Elevation of station A in m +E2=458;// Elevation of station B in m +h1=E1-me;// Elevation of A in m +h2=E2-me;// Elevation of B in m +D=72;// Distance between stations A and B in km +D1=sqrt(h1/0.06735);// Distance D1 from A in km +D2=D-D1;// Distance D2 from C in km +H=0.06735*D2^2;// Height of the point in the line of sight at B in m +eB=me+H;// Elevation of signal at B in m +HB=eB-E2;// Height of signal at B in m +disp(HB,"Height of signal at B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.6/Ex17_6.sce b/3908/CH17/EX17.6/Ex17_6.sce new file mode 100644 index 000000000..056874456 --- /dev/null +++ b/3908/CH17/EX17.6/Ex17_6.sce @@ -0,0 +1,30 @@ +//Example 17_6 +clc; +clear; +close; + +//Given data : +E1=185;// Elevation of A in m +E2=885;// Elevation of B in m +D=100;// Distance between Stations A and B in km +D1=3.8533*sqrt(E1);// Distance to visible horizon from A in km +AC=42;// Distance of C from A in km +AD=81;// Distance of D from A in km +Ae=D1;// in km +Ce=Ae-AC;// in km +De=AD-Ae;// in km +Be=D-Ae;// in km +Cc1=0.06735*(Ce^2);// in m +Dd1=0.06735*(De^2);// in m +Bb1=0.06735*(Be^2);// in m +Bb=E2-Bb1;// in m +c1c2=Bb*AC/D;// in m +d1d2=Bb*AD/D;// in m +Cc2=c1c2+Cc1;// in m +Dd2=d1d2+Dd1;// in m +Lc=Cc2-310;// Line of sight clears peak C by Lc in m +Ld=655-Dd2;// Line of sight fails to clear peak D by Ld in m +H=Ld+3;// Height of line of sight at D in m +HB=H*D/AD;// Height of signal B in m +disp(HB,"Height of signal B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.6/Example17_6.sce b/3908/CH17/EX17.6/Example17_6.sce new file mode 100644 index 000000000..056874456 --- /dev/null +++ b/3908/CH17/EX17.6/Example17_6.sce @@ -0,0 +1,30 @@ +//Example 17_6 +clc; +clear; +close; + +//Given data : +E1=185;// Elevation of A in m +E2=885;// Elevation of B in m +D=100;// Distance between Stations A and B in km +D1=3.8533*sqrt(E1);// Distance to visible horizon from A in km +AC=42;// Distance of C from A in km +AD=81;// Distance of D from A in km +Ae=D1;// in km +Ce=Ae-AC;// in km +De=AD-Ae;// in km +Be=D-Ae;// in km +Cc1=0.06735*(Ce^2);// in m +Dd1=0.06735*(De^2);// in m +Bb1=0.06735*(Be^2);// in m +Bb=E2-Bb1;// in m +c1c2=Bb*AC/D;// in m +d1d2=Bb*AD/D;// in m +Cc2=c1c2+Cc1;// in m +Dd2=d1d2+Dd1;// in m +Lc=Cc2-310;// Line of sight clears peak C by Lc in m +Ld=655-Dd2;// Line of sight fails to clear peak D by Ld in m +H=Ld+3;// Height of line of sight at D in m +HB=H*D/AD;// Height of signal B in m +disp(HB,"Height of signal B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.7/Ex17_7.sce b/3908/CH17/EX17.7/Ex17_7.sce new file mode 100644 index 000000000..f91385711 --- /dev/null +++ b/3908/CH17/EX17.7/Ex17_7.sce @@ -0,0 +1,23 @@ +//Example 17_7 +clc; +clear; +close; + +//Given data : +E1=418.85;// Elevation of A in m +E2=702.63;// Elevation of B in m +D=90;// Distance between Stations A and B in km +D1=3.8533*sqrt(E1);// Distance to visible horizon from A in km +ip=66;// Intervening peak from A in km +ce=D1-ip;// Distance ce in km +cc1=0.06735*(ce^2);// Height from c to line of sight cc' in m +eb=D-D1;// Distance eb in km +bb1=0.06735*(eb^2);// Distance in bb' in m +Bb1=E2-bb1;// Distance Bb' in m +c1c2=Bb1*ip/D;// in m +H=c1c2+cc1;// Height of line of sight at C in m +Ld=524.6-H;// Line of sight fails to clear peak by Ld in m +h=Ld+3;// Height of line of sight at C in m +HB=h*D/ip;// Height of the signal at B in m +disp(HB,"Height of the signal at B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.7/Example17_7.sce b/3908/CH17/EX17.7/Example17_7.sce new file mode 100644 index 000000000..f91385711 --- /dev/null +++ b/3908/CH17/EX17.7/Example17_7.sce @@ -0,0 +1,23 @@ +//Example 17_7 +clc; +clear; +close; + +//Given data : +E1=418.85;// Elevation of A in m +E2=702.63;// Elevation of B in m +D=90;// Distance between Stations A and B in km +D1=3.8533*sqrt(E1);// Distance to visible horizon from A in km +ip=66;// Intervening peak from A in km +ce=D1-ip;// Distance ce in km +cc1=0.06735*(ce^2);// Height from c to line of sight cc' in m +eb=D-D1;// Distance eb in km +bb1=0.06735*(eb^2);// Distance in bb' in m +Bb1=E2-bb1;// Distance Bb' in m +c1c2=Bb1*ip/D;// in m +H=c1c2+cc1;// Height of line of sight at C in m +Ld=524.6-H;// Line of sight fails to clear peak by Ld in m +h=Ld+3;// Height of line of sight at C in m +HB=h*D/ip;// Height of the signal at B in m +disp(HB,"Height of the signal at B in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.8/Ex17_8.sce b/3908/CH17/EX17.8/Ex17_8.sce new file mode 100644 index 000000000..8544ecf28 --- /dev/null +++ b/3908/CH17/EX17.8/Ex17_8.sce @@ -0,0 +1,16 @@ +//Example 17_8 +clc; +clear; +close; + +//Given data : +r=7;// Radius of the signal in cm +D=8560*100;// Distance between the stations A and B in cm +// (a) The observation was made on the bright portion of the signal +teta=50;// angle in degree +alpha=206205*r*(cosd(teta/2)^2)/D;// Alpha in seconds +disp(alpha,"(a) Alpha in seconds"); +// (b) The observation was made on the bright line +alpha=206205*r*cosd(teta/2)/D;// Alpha in seconds +disp(alpha,"(b) Alpha in seconds"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.8/Example17_8.sce b/3908/CH17/EX17.8/Example17_8.sce new file mode 100644 index 000000000..8544ecf28 --- /dev/null +++ b/3908/CH17/EX17.8/Example17_8.sce @@ -0,0 +1,16 @@ +//Example 17_8 +clc; +clear; +close; + +//Given data : +r=7;// Radius of the signal in cm +D=8560*100;// Distance between the stations A and B in cm +// (a) The observation was made on the bright portion of the signal +teta=50;// angle in degree +alpha=206205*r*(cosd(teta/2)^2)/D;// Alpha in seconds +disp(alpha,"(a) Alpha in seconds"); +// (b) The observation was made on the bright line +alpha=206205*r*cosd(teta/2)/D;// Alpha in seconds +disp(alpha,"(b) Alpha in seconds"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.9/Ex17_9.sce b/3908/CH17/EX17.9/Ex17_9.sce new file mode 100644 index 000000000..70a73c86c --- /dev/null +++ b/3908/CH17/EX17.9/Ex17_9.sce @@ -0,0 +1,19 @@ +//Example 17_9 +clc; +clear; +close; + +//Given data : +l=29.995;// Actual length of tape in m +L=30;// Absolute length of tape in m +Ts=38;// Standardised temperature in degree celcius +Tm=22;// Measured temperature in degree celcius +Cl=l-L;// Correction for absolute length of tape in m +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Ct=L*alpha*(Tm-Ts);// Correction for temperature in m +TC=-(Cl+Ct);// Total correction in m +l1=8560;// Recorded length of line in m +TCl=TC*l1/L;// Total correction for the line in m +TL=l1-TCl;// True length of the line in m +disp(TL,"True length of the line in m"); +// The answers vary due to round off error diff --git a/3908/CH17/EX17.9/Example17_9.sce b/3908/CH17/EX17.9/Example17_9.sce new file mode 100644 index 000000000..70a73c86c --- /dev/null +++ b/3908/CH17/EX17.9/Example17_9.sce @@ -0,0 +1,19 @@ +//Example 17_9 +clc; +clear; +close; + +//Given data : +l=29.995;// Actual length of tape in m +L=30;// Absolute length of tape in m +Ts=38;// Standardised temperature in degree celcius +Tm=22;// Measured temperature in degree celcius +Cl=l-L;// Correction for absolute length of tape in m +alpha=11.6/(10^6);// Coefficient of thermal expansion of the material ot the tape in /degree celcius +Ct=L*alpha*(Tm-Ts);// Correction for temperature in m +TC=-(Cl+Ct);// Total correction in m +l1=8560;// Recorded length of line in m +TCl=TC*l1/L;// Total correction for the line in m +TL=l1-TCl;// True length of the line in m +disp(TL,"True length of the line in m"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.1/Ex18_1.sce b/3908/CH18/EX18.1/Ex18_1.sce new file mode 100644 index 000000000..e9ce241ba --- /dev/null +++ b/3908/CH18/EX18.1/Ex18_1.sce @@ -0,0 +1,20 @@ +//Example 18_1 +clc; +clear; +close; + +//Given data : +O1=42+(22/60)+(32/3600);// Observation 1 in degree +O2=42+(22/60)+(30/3600);// Observation 2 in degree +O3=42+(22/60)+(33/3600);// Observation 3 in degree +O4=42+(22/60)+(34/3600);// Observation 4 in degree +O5=42+(22/60)+(29/3600);// Observation 5 in degree +O6=42+(22/60)+(30/3600);// Observation 6 in degree +n=6;// Number of observation +Amean=(O1+O2+O3+O4+O5+O6)/n;// Arithmetic mean in degree +m=(Amean-int(Amean))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(Amean),"Arithmetic mean in degree,minute and seconds respectively"); +// Weight of mean = Number of obseravtions +Wmean=n;// Weight of mean +disp(Wmean,"Weight of mean"); diff --git a/3908/CH18/EX18.1/Example18_1.sce b/3908/CH18/EX18.1/Example18_1.sce new file mode 100644 index 000000000..b7b62e4d8 --- /dev/null +++ b/3908/CH18/EX18.1/Example18_1.sce @@ -0,0 +1,19 @@ +//Example 18_1 +clc; +clear; +close; + +//Given data : +O1=42+(22/60)+(32/3600);// Observation 1 in degree +O2=42+(22/60)+(30/3600);// Observation 2 in degree +O3=42+(22/60)+(33/3600);// Observation 3 in degree +O4=42+(22/60)+(34/3600);// Observation 4 in degree +O5=42+(22/60)+(29/3600);// Observation 5 in degree +O6=42+(22/60)+(30/3600);// Observation 6 in degree +n=6;// Number of observation +Amean=(O1+O2+O3+O4+O5+O6)/n;// Arithmetic mean in degree +disp(Amean,"Arithmetic mean in degree"); +// Weight of mean = Number of obseravtions +Wmean=n;// Weight of mean +disp(Wmean,"Weight of mean"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.2/Ex18_2.sce b/3908/CH18/EX18.2/Ex18_2.sce new file mode 100644 index 000000000..3c9907b12 --- /dev/null +++ b/3908/CH18/EX18.2/Ex18_2.sce @@ -0,0 +1,27 @@ +//Example 18_2 +clc; +clear; +close; + +//Given data : +O1=42+(22/60)+(32/3600);// Observation 1 in degree +O2=42+(22/60)+(30/3600);// Observation 2 in degree +O3=42+(22/60)+(33/3600);// Observation 3 in degree +O4=42+(22/60)+(34/3600);// Observation 4 in degree +O5=42+(22/60)+(29/3600);// Observation 5 in degree +O6=42+(22/60)+(30/3600);// Observation 6 in degree +w1=2;// Weight of observation O1 +w2=4;// Weight of observation O2 +w3=3;// Weight of observation O3 +w4=2;// Weight of observation O4 +w5=3;// Weight of observation O5 +w6=4;// Weight of observation O6 +S=w1+w2+w3+w4+w5+w6;// Sum of weight of observations +Amean=((O1*w1)+(O2*w2)+(O3*w3)+(O4*w4)+(O5*w5)+(O6*w6))/S;// Arithmetic mean in degree +m=(Amean-int(Amean))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(Amean),"Arithmetic mean in degree,minute and seconds respectively"); +// Weight of mean = Sum of weight of observations +Wmean=S;// Weight of mean +disp(Wmean,"Weight of mean"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.2/Example18_2.sce b/3908/CH18/EX18.2/Example18_2.sce new file mode 100644 index 000000000..4d133ac5a --- /dev/null +++ b/3908/CH18/EX18.2/Example18_2.sce @@ -0,0 +1,25 @@ +//Example 18_2 +clc; +clear; +close; + +//Given data : +O1=42+(22/60)+(32/3600);// Observation 1 in degree +O2=42+(22/60)+(30/3600);// Observation 2 in degree +O3=42+(22/60)+(33/3600);// Observation 3 in degree +O4=42+(22/60)+(34/3600);// Observation 4 in degree +O5=42+(22/60)+(29/3600);// Observation 5 in degree +O6=42+(22/60)+(30/3600);// Observation 6 in degree +w1=2;// Weight of observation O1 +w2=4;// Weight of observation O2 +w3=3;// Weight of observation O3 +w4=2;// Weight of observation O4 +w5=3;// Weight of observation O5 +w6=4;// Weight of observation O6 +s=w1+w2+w3+w4+w5+w6;// Sum of weight of observations +Amean=((O1*w1)+(O2*w2)+(O3*w3)+(O4*w4)+(O5*w5)+(O6*w6))/s;// Arithmetic mean in degree +disp(Amean,"Arithmetic mean in degree"); +// Weight of mean = Sum of weight of observations +Wmean=s;// Weight of mean +disp(Wmean,"Weight of mean"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.21/Ex18_21.sce b/3908/CH18/EX18.21/Ex18_21.sce new file mode 100644 index 000000000..676db33b5 --- /dev/null +++ b/3908/CH18/EX18.21/Ex18_21.sce @@ -0,0 +1,19 @@ +//Example 18_21 +clc; +clear; +close; + +//Given data : +ea=0.015;// in m +eb=0.02;// in m +a=90;// Side of triangle in m +b=120;// Side of triangle in m +eA=sqrt(((ea*b/2)^2)+((eb*a/2)^2));// eA in sq. m +// Area A = a*b +A=a*b;// Area in sq. m +disp(A,"Area in sq. m"); +P1=A+eA;// Probable value P1 in sq. m +disp(P1,"Probable value P1 in sq. m"); +P2=A-eA;// Probable value P2 in sq. m +disp(P2,"Probable value P2 in sq. m"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.21/Example18_21.sce b/3908/CH18/EX18.21/Example18_21.sce new file mode 100644 index 000000000..03c104e72 --- /dev/null +++ b/3908/CH18/EX18.21/Example18_21.sce @@ -0,0 +1,18 @@ +//Example 18_21 +clc; +clear; +close; + +//Given data : +ea=0.015;// in m +eb=0.02;// in m +a=90;// Side of triangle in m +b=120;// Side of triangle in m +eA=sqrt(((ea*b/2)^2)+((eb*a/2)^2));// eA in sq. m +// Area A = a*b/2 +A=a*b/2;// Area in sq. m +disp(A,"Area in sq. m"); +P1=A+eA;// Probable value P1 in sq. m +disp(P1,"Probable value P1 in sq. m"); +P2=A-eA;// Probable value P2 in sq. m +disp(P2,"Probable value P2 in sq. m"); diff --git a/3908/CH18/EX18.22/Example18_22.sce b/3908/CH18/EX18.22/Example18_22.sce new file mode 100644 index 000000000..2d3b46b90 --- /dev/null +++ b/3908/CH18/EX18.22/Example18_22.sce @@ -0,0 +1,21 @@ +//Example 18_22 +clc; +clear; +close; + +//Given data : +A=101.855;// Point A in m +B1=123.345;// Point B1 in m +B2=123.352;// Point B2 in m +B3=123.348;// Point B3 in m +D1=6;// Distance between A and B1 in km +D2=4;// Distance between A and B2 in km +D3=5;// Distance between A and B3 in km +V1=B1-A;// Difference in elevation Between B1 and A in m +V2=B2-A;// Difference in elevation Between B1 and A in m +V3=B3-A;// Difference in elevation Between B1 and A in m +// weight ratio = 1/D1 : 1/D2 : 1/D3 = 10:15:12 +W=((V1*10)+(V2*15)+(V3*12))/37;// Weighted arithmetic mean in m +P=A+W;// Probable value of elevation of B +disp(P,"Probable value of elevation of B"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.23/Example18_23.sce b/3908/CH18/EX18.23/Example18_23.sce new file mode 100644 index 000000000..490a8b84a --- /dev/null +++ b/3908/CH18/EX18.23/Example18_23.sce @@ -0,0 +1,33 @@ +//Example 18_23 +clc; +clear; +close; + +//Given data : +RLa=56.385;// RL of A in m +D1=4;// Distance for line AB in km +D2=3;// Distance for line BC in km +D3=2;// Distance for line CD in km +D4=2;// Distance for line DE in km +D5=1;// Distance for line EA in km +TD=D1+D2+D3+D4+D5;// Total distance in km +E1=0.835;// Difference in elevation for line AB in m +E2=-1.684;// Difference in elevation for line BC in m +E3=1.175;// Difference in elevation for line CD in m +E4=0.678;// Difference in elevation for line DE in m +E5=-0.824;// Difference in elevation for line EA in m +DE=E1+E2+E3+E4+E5;// Discrepancy in elevation in m +Cb=DE*D1/TD;// Correction for C in m +Cc=DE*D2/TD;// Correction for B in m +Cd=DE*D3/TD;// Correction for D in m +Ce=DE*D4/TD;// Correction for E in m +Eb=RLa+E1+Cb;// Elevation of B in m +disp(Eb,"Elevation of B in m"); +Ec=RLa+E2+Cc;// Elevation of C in m +disp(Ec,"Elevation of C in m"); +Ed=RLa+E3+Cd;// Elevation of D in m +disp(Ed,"Elevation of D in m"); +Ee=RLa+E4+Ce;// Elevation of E in m +disp(Ee,"Elevation of E in m"); +// The answer provided in the textbook is wrong +// The answers vary due to round off error diff --git a/3908/CH18/EX18.3/Ex18_3.sce b/3908/CH18/EX18.3/Ex18_3.sce new file mode 100644 index 000000000..6fc58c223 --- /dev/null +++ b/3908/CH18/EX18.3/Ex18_3.sce @@ -0,0 +1,14 @@ +//Example 18_3 +clc; +clear; +close; + +//Given data : +A=32+(16/60)+(18/3600);// Observation A in degree +wa=3;// Weight of A +B=26+(14/60)+(12/3600);// Observation B in degree +wb=2;// Weight of B +S=A+B;// Sum of angles in degree +D=A-B;// Difference between angles in degree +W=1/((1/wa)+(1/wb));// Weight of the mean +disp(W,"Weight of the mean"); diff --git a/3908/CH18/EX18.3/Example18_3.sce b/3908/CH18/EX18.3/Example18_3.sce new file mode 100644 index 000000000..6fc58c223 --- /dev/null +++ b/3908/CH18/EX18.3/Example18_3.sce @@ -0,0 +1,14 @@ +//Example 18_3 +clc; +clear; +close; + +//Given data : +A=32+(16/60)+(18/3600);// Observation A in degree +wa=3;// Weight of A +B=26+(14/60)+(12/3600);// Observation B in degree +wb=2;// Weight of B +S=A+B;// Sum of angles in degree +D=A-B;// Difference between angles in degree +W=1/((1/wa)+(1/wb));// Weight of the mean +disp(W,"Weight of the mean"); diff --git a/3908/CH18/EX18.4/Ex18_4.sce b/3908/CH18/EX18.4/Ex18_4.sce new file mode 100644 index 000000000..b9597eb4b --- /dev/null +++ b/3908/CH18/EX18.4/Ex18_4.sce @@ -0,0 +1,12 @@ +//Example 18_4 +clc; +clear; +close; + +//Given data : +A=42+(22/60)+(31.33/3600);// Observation A in degree +wa=6;// Weigth of A +W1=wa/(3^2);// Weight of 3A +disp(W1,"Weight of 3A"); +W2=wa*(4^2);// Weight of A/4 +disp(W2,"Weight of A/4"); diff --git a/3908/CH18/EX18.4/Example18_4.sce b/3908/CH18/EX18.4/Example18_4.sce new file mode 100644 index 000000000..b9597eb4b --- /dev/null +++ b/3908/CH18/EX18.4/Example18_4.sce @@ -0,0 +1,12 @@ +//Example 18_4 +clc; +clear; +close; + +//Given data : +A=42+(22/60)+(31.33/3600);// Observation A in degree +wa=6;// Weigth of A +W1=wa/(3^2);// Weight of 3A +disp(W1,"Weight of 3A"); +W2=wa*(4^2);// Weight of A/4 +disp(W2,"Weight of A/4"); diff --git a/3908/CH18/EX18.5/Ex18_5.sce b/3908/CH18/EX18.5/Ex18_5.sce new file mode 100644 index 000000000..0e1167d51 --- /dev/null +++ b/3908/CH18/EX18.5/Ex18_5.sce @@ -0,0 +1,17 @@ +//Example 18_5 +clc; +clear; +close; + +//Given data : +A=42+(32/60)+(40/3600);// Observation A in degree +wa=3;// Weight of A +B=51+(29/60)+(20/3600);// Observation B in degree +wb=2;// Weight of B +C=180-(A+B);// Observation C in degree +m=(C-int(C))*60;// in minutes +disp(int(m),int(C),"Observation C in degree and minute respectively"); +W1=1/((1/wa)+(1/wb));// Weight of A+B +W2=W1;// Weight of C +disp(W2,"Weight of C") +// The answers vary due to round off error diff --git a/3908/CH18/EX18.5/Example18_5.sce b/3908/CH18/EX18.5/Example18_5.sce new file mode 100644 index 000000000..0ced309ca --- /dev/null +++ b/3908/CH18/EX18.5/Example18_5.sce @@ -0,0 +1,16 @@ +//Example 18_5 +clc; +clear; +close; + +//Given data : +A=42+(32/60)+(40/3600);// Observation A in degree +wa=3;// Weight of A +B=51+(29/60)+(20/3600);// Observation B in degree +wb=2;// Weight of B +C=180-(A+B);// Observation C in degree +disp(C,"Observation C in degree"); +W1=1/((1/wa)+(1/wb));// Weight of A+B +W2=W1;// Weight of C +disp(W2,"Weight of C") +// The answers vary due to round off error diff --git a/3908/CH18/EX18.6/Ex18_6.sce b/3908/CH18/EX18.6/Ex18_6.sce new file mode 100644 index 000000000..3d9698e31 --- /dev/null +++ b/3908/CH18/EX18.6/Ex18_6.sce @@ -0,0 +1,18 @@ +//Example 18_6 +clc; +clear; +close; + +//Given data : +O1=36+(22/60)+(40/3600);// Observation 1 in degree +O2=36+(22/60)+(44/3600);// Observation 2 in degree +O3=36+(22/60)+(42/3600);// Observation 3 in degree +O4=36+(22/60)+(50/3600);// Observation 4 in degree +O5=36+(22/60)+(38/3600);// Observation 5 in degree +O6=36+(22/60)+(46/3600);// Observation 6 in degree +n=6;// Number of observation +P=(O1+O2+O3+O4+O5+O6)/n;// Most probable value P in degree +m=(P-int(P))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(P),"Most probable value P in degree,minute and seconds respectively"); + diff --git a/3908/CH18/EX18.6/Example18_6.sce b/3908/CH18/EX18.6/Example18_6.sce new file mode 100644 index 000000000..2d56555a8 --- /dev/null +++ b/3908/CH18/EX18.6/Example18_6.sce @@ -0,0 +1,16 @@ +//Example 18_6 +clc; +clear; +close; + +//Given data : +O1=36+(22/60)+(40/3600);// Observation 1 in degree +O2=36+(22/60)+(44/3600);// Observation 2 in degree +O3=36+(22/60)+(42/3600);// Observation 3 in degree +O4=36+(22/60)+(50/3600);// Observation 4 in degree +O5=36+(22/60)+(38/3600);// Observation 5 in degree +O6=36+(22/60)+(46/3600);// Observation 6 in degree +n=6;// Number of observation +P=(O1+O2+O3+O4+O5+O6)/n;// Most probable value P in degree +disp(P,"Most probable value P in degree"); +// The answers vary due to round off error diff --git a/3908/CH18/EX18.7/Ex18_7.sce b/3908/CH18/EX18.7/Ex18_7.sce new file mode 100644 index 000000000..bb2be57e6 --- /dev/null +++ b/3908/CH18/EX18.7/Ex18_7.sce @@ -0,0 +1,23 @@ +//Example 18_7 +clc; +clear; +close; + +//Given data : +O1=36+(22/60)+(40/3600);// Observation 1 in degree +O2=36+(22/60)+(44/3600);// Observation 2 in degree +O3=36+(22/60)+(42/3600);// Observation 3 in degree +O4=36+(22/60)+(50/3600);// Observation 4 in degree +O5=36+(22/60)+(38/3600);// Observation 5 in degree +O6=36+(22/60)+(46/3600);// Observation 6 in degree +w1=1;// Weight of observation O1 +w2=2;// Weight of observation O2 +w3=4;// Weight of observation O3 +w4=3;// Weight of observation O4 +w5=2;// Weight of observation O5 +w6=3;// Weight of observation O6 +s=w1+w2+w3+w4+w5+w6;// Sum of weight of observations +Amean=((O1*w1)+(O2*w2)+(O3*w3)+(O4*w4)+(O5*w5)+(O6*w6))/s;// Weighted arithmetic mean in degree +m=(Amean-int(Amean))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(Amean),"Weighted arithmetic mean in degree,minute and seconds respectively"); diff --git a/3908/CH18/EX18.7/Example18_7.sce b/3908/CH18/EX18.7/Example18_7.sce new file mode 100644 index 000000000..0dc9a3b0b --- /dev/null +++ b/3908/CH18/EX18.7/Example18_7.sce @@ -0,0 +1,22 @@ +//Example 18_7 +clc; +clear; +close; + +//Given data : +O1=36+(22/60)+(40/3600);// Observation 1 in degree +O2=36+(22/60)+(44/3600);// Observation 2 in degree +O3=36+(22/60)+(42/3600);// Observation 3 in degree +O4=36+(22/60)+(50/3600);// Observation 4 in degree +O5=36+(22/60)+(38/3600);// Observation 5 in degree +O6=36+(22/60)+(46/3600);// Observation 6 in degree +w1=1;// Weight of observation O1 +w2=2;// Weight of observation O2 +w3=4;// Weight of observation O3 +w4=3;// Weight of observation O4 +w5=2;// Weight of observation O5 +w6=3;// Weight of observation O6 +s=w1+w2+w3+w4+w5+w6;// Sum of weight of observations +Amean=((O1*w1)+(O2*w2)+(O3*w3)+(O4*w4)+(O5*w5)+(O6*w6))/s;// Weighted arithmetic mean in degree +disp(Amean,"Weighted arithmetic mean in degree"); +// The answers vary due to round off error diff --git a/3908/CH19/EX19.1/Ex19_1.sce b/3908/CH19/EX19.1/Ex19_1.sce new file mode 100644 index 000000000..eb38d1229 --- /dev/null +++ b/3908/CH19/EX19.1/Ex19_1.sce @@ -0,0 +1,15 @@ +//Example 19_1 +clc; +clear; +close; + +//Given data : +teta1=42+(32/60);// Angle SPQ in degree +teta2=64+(36/60);// Angle SQP in degree +PQ=1580;// Distance PQ in m +x=PQ*tand(teta2)/(tand(teta1)+tand(teta2));// Coordinate x in m +disp(x,"Coordinate x") +y=x*tand(teta1);// Coordinate y in m +disp(y,"Coordinate y") +disp(y,x,"Coordinates of S(x,y) are"); +// The answer provided in the textbook is wrong diff --git a/3908/CH19/EX19.1/Example19_1.sce b/3908/CH19/EX19.1/Example19_1.sce new file mode 100644 index 000000000..eb38d1229 --- /dev/null +++ b/3908/CH19/EX19.1/Example19_1.sce @@ -0,0 +1,15 @@ +//Example 19_1 +clc; +clear; +close; + +//Given data : +teta1=42+(32/60);// Angle SPQ in degree +teta2=64+(36/60);// Angle SQP in degree +PQ=1580;// Distance PQ in m +x=PQ*tand(teta2)/(tand(teta1)+tand(teta2));// Coordinate x in m +disp(x,"Coordinate x") +y=x*tand(teta1);// Coordinate y in m +disp(y,"Coordinate y") +disp(y,x,"Coordinates of S(x,y) are"); +// The answer provided in the textbook is wrong diff --git a/3908/CH19/EX19.2/Ex19_2.sce b/3908/CH19/EX19.2/Ex19_2.sce new file mode 100644 index 000000000..0f2a7b9e4 --- /dev/null +++ b/3908/CH19/EX19.2/Ex19_2.sce @@ -0,0 +1,16 @@ +//Example 19_2 +clc; +clear; +close; + +//Given data : +teta1=76+(42/60);// Angle SPQ in degree +teta2=32+(56/60);// Angle PSQ in degree +teta3=180-(teta1+teta2);// Angle PQS in degree +PQ=934;// Distance PQ in m +x=PQ*tand(teta3)/(tand(teta3)+tand(teta1));// Coordinate x in m +disp(x,"Coordinate x") +y=x*tand(teta1);// Coordinate y in m +disp(y,"Coordinate y") +disp(y,x,"Coordinates of S(x,y) are"); +// The answer provided in the textbook is wrong diff --git a/3908/CH19/EX19.2/Example19_2.sce b/3908/CH19/EX19.2/Example19_2.sce new file mode 100644 index 000000000..0f2a7b9e4 --- /dev/null +++ b/3908/CH19/EX19.2/Example19_2.sce @@ -0,0 +1,16 @@ +//Example 19_2 +clc; +clear; +close; + +//Given data : +teta1=76+(42/60);// Angle SPQ in degree +teta2=32+(56/60);// Angle PSQ in degree +teta3=180-(teta1+teta2);// Angle PQS in degree +PQ=934;// Distance PQ in m +x=PQ*tand(teta3)/(tand(teta3)+tand(teta1));// Coordinate x in m +disp(x,"Coordinate x") +y=x*tand(teta1);// Coordinate y in m +disp(y,"Coordinate y") +disp(y,x,"Coordinates of S(x,y) are"); +// The answer provided in the textbook is wrong diff --git a/3908/CH19/EX19.3/Ex19_3.sce b/3908/CH19/EX19.3/Ex19_3.sce new file mode 100644 index 000000000..ee76c5a9e --- /dev/null +++ b/3908/CH19/EX19.3/Ex19_3.sce @@ -0,0 +1,19 @@ +//Example 19_3 +clc; +clear; +close; + +//Given data : +g1=6.85;// Gauge reading at 10.00 am in m +g2=6.95;// Gauge reading at 10.10 am in m +dg=1;// Datum gauge reading in m +mg=(g1+g2)/2;// Mean gauge reading at 10.05 am in m +C=-(mg-dg);// Correction in m +s1=2.35;// Sounding s1 at 10.05 am in m +s2=7.65;// Sounding s2 at 10.05 am in m +Cs1=C+s1;// Corrected sounding for s1 in m +disp(Cs1,"Corrected sounding for s1 in m"); +Cs2=C+s2;// Corrected sounding for s2 in m +disp(Cs2,"Corrected sounding for s2 in m"); +// The answers vary due to round off error +// The answer provided in the textbook is wrong diff --git a/3908/CH19/EX19.3/Example19_3.sce b/3908/CH19/EX19.3/Example19_3.sce new file mode 100644 index 000000000..ee76c5a9e --- /dev/null +++ b/3908/CH19/EX19.3/Example19_3.sce @@ -0,0 +1,19 @@ +//Example 19_3 +clc; +clear; +close; + +//Given data : +g1=6.85;// Gauge reading at 10.00 am in m +g2=6.95;// Gauge reading at 10.10 am in m +dg=1;// Datum gauge reading in m +mg=(g1+g2)/2;// Mean gauge reading at 10.05 am in m +C=-(mg-dg);// Correction in m +s1=2.35;// Sounding s1 at 10.05 am in m +s2=7.65;// Sounding s2 at 10.05 am in m +Cs1=C+s1;// Corrected sounding for s1 in m +disp(Cs1,"Corrected sounding for s1 in m"); +Cs2=C+s2;// Corrected sounding for s2 in m +disp(Cs2,"Corrected sounding for s2 in m"); +// The answers vary due to round off error +// The answer provided in the textbook is wrong diff --git a/3908/CH2/EX2.1/Ex2_1.sce b/3908/CH2/EX2.1/Ex2_1.sce new file mode 100644 index 000000000..fea2d6864 --- /dev/null +++ b/3908/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,12 @@ +//Example 2_1 +clc; +clear; +close; + +//Given data : +ml=273.35;// Measured length in m +al=29.93;// Actual length in m +dl=30;// Designated length in m +tl=ml*(al/dl);// True length of the chain in m +disp(tl,"True length of the chain in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.1/Example2_1.sce b/3908/CH2/EX2.1/Example2_1.sce new file mode 100644 index 000000000..b036a05df --- /dev/null +++ b/3908/CH2/EX2.1/Example2_1.sce @@ -0,0 +1,11 @@ +//Example 2_1 +clc; +clear; +close; + +//Given data : +ml=273.35;// Measured length in m +al=29.93;// Actual length in m +dl=30;// Designated length in m +tl=ml*(al/dl);// True length in m +disp(tl,"True length in m"); \ No newline at end of file diff --git a/3908/CH2/EX2.10/Ex2_10.sce b/3908/CH2/EX2.10/Ex2_10.sce new file mode 100644 index 000000000..28032924b --- /dev/null +++ b/3908/CH2/EX2.10/Ex2_10.sce @@ -0,0 +1,22 @@ +//Example 2_10 +clc; +clear; +close; + +//Given data : +l=30;// Length of chain in m +// (a) Correction for slope is 0.06 m for 10 m length +// Therefore 10(1-cos a)=0.06 +a=acosd(1-(0.06/10));// Slope in degree +disp(a,"(a)Slope in degree"); +Ha=l*((secd(a))-1);// Hypotenusal allowance in m +disp(Ha," Hypotenusal allowance in m"); +// The answers vary due to round off error + +// (b) Correction for slope is 0.04 m for 10 m length +// Therefore 10(1-cos a)=0.04 +a=acosd(1-(0.04/10));// Slope in degree +disp(a,"(b)Slope in degree"); +Ha=l*((secd(a))-1);// Hypotenusal allowance in m +disp(Ha," Hypotenusal allowance in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.10/Example2_10.sce b/3908/CH2/EX2.10/Example2_10.sce new file mode 100644 index 000000000..4392eb945 --- /dev/null +++ b/3908/CH2/EX2.10/Example2_10.sce @@ -0,0 +1,20 @@ +//Example 2_10 +clc; +clear; +close; + +//Given data : +l=30;// Length of chain in m +// (a) Correction for slope is 0.06 m for 10 m length +// Therefore 10(1-cos a)=0.06 +a=acosd(1-(0.06/10));// Slope in degree +disp(a,"(a)Slope in degree"); +Ha=l*((secd(a))-1);// Hypotenusal allowance in m +disp(Ha," Hypotenusal allowance in m"); + +// (b) Correction for slope is 0.04 m for 10 m length +// Therefore 10(1-cos a)=0.04 +a=acosd(1-(0.04/10));// Slope in degree +disp(a,"(b)Slope in degree"); +Ha=l*((secd(a))-1);// Hypotenusal allowance in m +disp(Ha," Hypotenusal allowance in m"); diff --git a/3908/CH2/EX2.11/Ex2_11.sce b/3908/CH2/EX2.11/Ex2_11.sce new file mode 100644 index 000000000..e2470bac2 --- /dev/null +++ b/3908/CH2/EX2.11/Ex2_11.sce @@ -0,0 +1,20 @@ +//Example 2_11 +clc; +clear; +close; + +//Given data : +// (a) 1 in 1000 +l=30;// Length in m +cf=l/1000;// Correction factor for (a) +// Therefore 30(1-cos a)=0.03 +a=acosd(1-(cf/30));// Slope in degree +disp(a,"(a)The slope in degree should not be more than"); +// The answers vary due to round off error + +// (b) 1 in 500 +cf=l/500;// Correction factor for (a) +// Therefore 30(1-cos a)=0.06 +a=acosd(1-(cf/30));// Slope in degree +disp(a,"(a)The slope in degree should not be more than"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.11/Example2_11.sce b/3908/CH2/EX2.11/Example2_11.sce new file mode 100644 index 000000000..f9779a235 --- /dev/null +++ b/3908/CH2/EX2.11/Example2_11.sce @@ -0,0 +1,18 @@ +//Example 2_11 +clc; +clear; +close; + +//Given data : +// (a) 1 in 1000 +l=30;// Length in m +cf=l/1000;// Correction factor for (a) +// Therefore 30(1-cos a)=0.03 +a=acosd(1-(cf/30));// Slope in degree +disp(a,"(a)The slope in degree should not be more than"); + +// (b) 1 in 500 +cf=l/500;// Correction factor for (a) +// Therefore 30(1-cos a)=0.06 +a=acosd(1-(cf/30));// Slope in degree +disp(a,"(a)The slope in degree should not be more than"); diff --git a/3908/CH2/EX2.12/Ex2_12.sce b/3908/CH2/EX2.12/Ex2_12.sce new file mode 100644 index 000000000..2e633b905 --- /dev/null +++ b/3908/CH2/EX2.12/Ex2_12.sce @@ -0,0 +1,30 @@ +//Example 2_12 +clc; +clear; +close; + +//Given data : +// (a) AB:slope of 5.65 degree +ml=500.65;// Measured length in m +a=5.65;// Slope in degree +hd1=ml*cosd(a);// Horizontal distance AB in m +disp(hd1,"(a)Horizontal distance AB in m"); +// The answers vary due to round off error + +// (b) BC:gradient of 1:18 +ml=700.35;// Measured length in m +hyp=((1^2)+(18^2))^0.5;// Hypotenuse length in m +hd2=ml*18/hyp;// Horizontal distance BC in m +disp(hd2,"(b)Horizontal distance BC in m"); +// The answers vary due to round off error + +// (c) falling slope of 2.56 m in 20 m +ml=400;// Measured length in m +a=asind(2.56/20);// Slope in degree +hd3=400*cosd(a);// Horizontal distance CD in m +disp(hd3,"(c)Horizontal distance CD in m"); +// The answers vary due to round off error + +Thd=hd1+hd2+hd3;// Total horizontal distance in m +disp(Thd,"Total horizontal distance in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.12/Example2_12.sce b/3908/CH2/EX2.12/Example2_12.sce new file mode 100644 index 000000000..61765b277 --- /dev/null +++ b/3908/CH2/EX2.12/Example2_12.sce @@ -0,0 +1,26 @@ +//Example 2_12 +clc; +clear; +close; + +//Given data : +// (a) AB:slope of 5.65 degree +ml=500.65;// Measured length in m +a=5.65;// Slope in degree +hd1=ml*cosd(a);// Horizontal distance AB in m +disp(hd1,"(a)Horizontal distance AB in m"); + +// (b) BC:gradient of 1:18 +ml=700.35;// Measured length in m +hyp=((1^2)+(18^2))^0.5;// Hypotenuse length in m +hd2=ml*18/hyp;// Horizontal distance BC in m +disp(hd2,"(b)Horizontal distance BC in m"); + +// (c) falling slope of 2.56 m in 20 m +ml=400;// Measured length in m +a=asind(2.56/20);// Slope in degree +disp(a) +hd3=400*cosd(a);// Horizontal distance CD in m +disp(hd3,"(c)Horizontal distance CD in m"); +Thd=hd1+hd2+hd3;// Total horizontal distance in m +disp(Thd,"Total horizontal distance in m"); diff --git a/3908/CH2/EX2.13/Ex2_13.sce b/3908/CH2/EX2.13/Ex2_13.sce new file mode 100644 index 000000000..1786b7887 --- /dev/null +++ b/3908/CH2/EX2.13/Ex2_13.sce @@ -0,0 +1,16 @@ +//Example 2_13 +clc; +clear; +close; + +//Given data : +l=368.64;// Length of line in m +alpha=12*10^-6;// Coefficient of thermal expansion in per degree celcius +T=42;// Temperature during measurement in degree celcius +T0=20;// Standardized temperature in degree celcius +TC=l*alpha*(T-T0);// Temperature Correction in m +disp(TC,"Temperature Correction in m"); +// The answers vary due to round off error +CL=l+TC;// Corrected length of line in m +disp(CL,"Corrected length of line in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.13/Example2_13.sce b/3908/CH2/EX2.13/Example2_13.sce new file mode 100644 index 000000000..6ced31161 --- /dev/null +++ b/3908/CH2/EX2.13/Example2_13.sce @@ -0,0 +1,14 @@ +//Example 2_13 +clc; +clear; +close; + +//Given data : +l=368.64;// Length of line in m +alpha=12*10^-6;// Coefficient of thermal expansion in per degree celcius +T=42;// Temperature during measurement in degree celcius +T0=20;// Standardized temperature in degree celcius +TC=l*alpha*(T-T0);// Temperature Correction in m +disp(TC,"Temperature Correction in m"); +CL=l+TC;// Corrected length of line in m +disp(CL,"Corrected length of line in m"); diff --git a/3908/CH2/EX2.14/Ex2_14.sce b/3908/CH2/EX2.14/Ex2_14.sce new file mode 100644 index 000000000..cfadfe902 --- /dev/null +++ b/3908/CH2/EX2.14/Ex2_14.sce @@ -0,0 +1,15 @@ +//Example 2_14 +clc; +clear; +close; + +//Given data : +l=30;// Length of tape in m +wl=10;// Weight per unit length of tape in N +P=120;// Tension pull in N +CS=l*(wl^2)/(24*P^2);// Correction due to sag in m +disp(CS,"Correction due to sag in m"); +// The answers vary due to round off error +hd=l-CS;// Horizontal distance between the supports in m +disp(hd,"Horizontal distance between the supports in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.14/Example2_14.sce b/3908/CH2/EX2.14/Example2_14.sce new file mode 100644 index 000000000..6526111a5 --- /dev/null +++ b/3908/CH2/EX2.14/Example2_14.sce @@ -0,0 +1,13 @@ +//Example 2_14 +clc; +clear; +close; + +//Given data : +l=30;// Length of tape in m +wl=10;// Weight per unit length of tape in N +P=120;// Tension pull in N +CS=l*(wl^2)/(24*P^2);// Correction due to sag in m +disp(CS,"Correction due to sag in m"); +hd=l-CS;// Horizontal distance between the supports in m +disp(hd,"Horizontal distance between the supports in m"); diff --git a/3908/CH2/EX2.15/Ex2_15.sce b/3908/CH2/EX2.15/Ex2_15.sce new file mode 100644 index 000000000..09259f4ba --- /dev/null +++ b/3908/CH2/EX2.15/Ex2_15.sce @@ -0,0 +1,18 @@ +//Example 2_15 +clc; +clear; +close; + +//Given data : +d=0.6;// Distance by which tape was out of alignment in m +l=30;// Length of tape in m +CA=(d^2)/(2*l);// Correction for wrong alignment in m +disp(CA,"Correction for wrong alignment in m"); +CL=l-CA;// Corrected length along the slope in m +disp(CL,"Corrected length along the slope in m"); + +// This corrected distance measured along the slope of gradient 1:12 +lg=((12^2)+(1^2))^0.5;// Length along the gradient in units +hd=CL*12/lg;// Horizontal distance along the gradient 1:12 in m +disp(hd,"Horizontal distance along the gradient 1:12 in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.15/Example2_15.sce b/3908/CH2/EX2.15/Example2_15.sce new file mode 100644 index 000000000..c89bc098d --- /dev/null +++ b/3908/CH2/EX2.15/Example2_15.sce @@ -0,0 +1,17 @@ +//Example 2_15 +clc; +clear; +close; + +//Given data : +d=0.06;// Distance by which tape was out of alignment in m +l=30;// Length of tape in m +CA=(d^2)/(2*l);// Correction for wrong alignment in m +disp(CA,"Correction for wrong alignment in m"); +CL=l-CA;// Corrected length along the slope in m +disp(CL,"Corrected length along the slope in m"); + +// This corrected distance measured along the slope of gradient 1:12 +lg=((12^2)+(1^2))^0.5;// Length along the gradient in units +hd=CL*12/lg;// Horizontal distance along the gradient 1:12 in m +disp(hd,"Horizontal distance along the gradient 1:12 in m") diff --git a/3908/CH2/EX2.16/Ex2_16.sce b/3908/CH2/EX2.16/Ex2_16.sce new file mode 100644 index 000000000..17c22ef5a --- /dev/null +++ b/3908/CH2/EX2.16/Ex2_16.sce @@ -0,0 +1,27 @@ +//Example 2_16 +clc; +clear; +close; + +//Given data : +l=30;// Length of tape in m +alpha=11.5*10^-6;// Coefficient of thermal expansion in per degree celcius +T=45;// Temperature during measurement in degree celcius +T0=20;// Standardized temperature in degree celcius +TC=l*alpha*(T-T0);// Temperature Correction in m +disp(TC,"Temperature Correction in m"); +P0=100;// Tension pull during measurement in N +P=150;// Tension pull at standardized temperature in N +EP=P-P0;// Effective Tension pull in N +A=4*10^-6;// Area of cross section of tape in sq m +E=200*10^9;// Youngs modulus in N/sq m +CP=EP*l/(A*E);// Correction due to pull in m +disp(CP,"Correction due to pull in m"); +uw=78600;// Unit weight of tape material in N/cubic m +wl=l*A*uw;// Weight of tape in N +disp(wl,"Weight of tape in N"); +CS=l*(wl^2)/(24*P^2);// Correction for sag in m +disp(CS,"Correction for sag in m"); +TCL=TC+CP-CS;// Total Correction per tape length in m +disp(TCL,"Total Correction per tape length in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.16/Example2_16.sce b/3908/CH2/EX2.16/Example2_16.sce new file mode 100644 index 000000000..3a273b22c --- /dev/null +++ b/3908/CH2/EX2.16/Example2_16.sce @@ -0,0 +1,26 @@ +//Example 2_16 +clc; +clear; +close; + +//Given data : +l=30;// Length of tape in m +alpha=11.5*10^-6;// Coefficient of thermal expansion in per degree celcius +T=45;// Temperature during measurement in degree celcius +T0=20;// Standardized temperature in degree celcius +TC=l*alpha*(T-T0);// Temperature Correction in m +disp(TC,"Temperature Correction in m"); +P0=100;// Tension pull during measurement in N +P=150;// Tension pull at standardized temperature in N +EP=P-P0;// Effective Tension pull in N +A=4*10^-6;// Area of cross section of tape in sq m +E=200*10^9;// Youngs modulus in N/sq m +CP=EP*l/(A*E);// Correction due to pull in m +disp(CP,"Correction due to pull in m"); +uw=78600;// Unit weight of tape material in N/cubic m +wl=l*A*uw;// Weight of tape in N +disp(wl,"Weight of tape in N"); +CS=l*(wl^2)/(24*P^2);// Correction for sag in m +disp(CS,"Correction for sag in m"); +TCL=TC+CP-CS;// Total Correction per tape length in m +disp(TCL,"Total Correction per tape length in m"); diff --git a/3908/CH2/EX2.19/Ex2_19.sce b/3908/CH2/EX2.19/Ex2_19.sce new file mode 100644 index 000000000..523fb8653 --- /dev/null +++ b/3908/CH2/EX2.19/Ex2_19.sce @@ -0,0 +1,22 @@ +//Example 2_19 +clc; +clear; +close; + +//Given data : +l=18;// Length of offset in m +alpha=6;// angular error in degree +// (a) 1 cm= 10 m +s=10;// Equivalent Scale in m +dp=l*sind(alpha)/s;// Displacement parallel on to the chain line in cm +disp(dp,"(a) Displacement parallel on to the chain line in cm"); +dP=l*(1-cosd(alpha))/s;// Displacement perpendicular on to the chain line in cm +disp(dP," Displacement perpendicular on to the chain line in cm"); + +// (b) 1:1500 +s=15;// Equivalent Scale in m +dp=l*sind(alpha)/s;// Displacement parallel on to the chain line in cm +disp(dp,"(b) Displacement parallel on to the chain line in cm"); +dP=l*(1-cosd(alpha))/s;// Displacement perpendicular on to the chain line in cm +disp(dP," Displacement perpendicular on to the chain line in cm"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.19/Example2_19.sce b/3908/CH2/EX2.19/Example2_19.sce new file mode 100644 index 000000000..5dbe1c5b1 --- /dev/null +++ b/3908/CH2/EX2.19/Example2_19.sce @@ -0,0 +1,21 @@ +//Example 2_19 +clc; +clear; +close; + +//Given data : +l=18;// Length of offset in m +alpha=6;// angular error in degree +// (a) 1 cm= 10 m +s=10;// Equivalent Scale in m +dp=l*sind(alpha)/s;// Displacement parallel on to the chain line in cm +disp(dp,"(a) Displacement parallel on to the chain line in cm"); +dP=l*(1-cosd(alpha))/s;// Displacement perpendicular on to the chain line in cm +disp(dP," Displacement perpendicular on to the chain line in cm"); + +// (b) 1:1500 +s=15;// Equivalent Scale in m +dp=l*sind(alpha)/s;// Displacement parallel on to the chain line in cm +disp(dp,"(b) Displacement parallel on to the chain line in cm"); +dP=l*(1-cosd(alpha))/s;// Displacement perpendicular on to the chain line in cm +disp(dP," Displacement perpendicular on to the chain line in cm"); diff --git a/3908/CH2/EX2.2/Ex2_2.sce b/3908/CH2/EX2.2/Ex2_2.sce new file mode 100644 index 000000000..93df99e35 --- /dev/null +++ b/3908/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,14 @@ +//Example 2_2 +clc; +clear; +close; + +//Given data : +tl=1276.54;// True length in m +ml=1274.84;// Measured length in m +dl=30;// Designated length in m +al=dl*(tl/ml);// Actual length in m +disp(al,"Actual length in m"); +al1=(al-dl)*100; +disp(al1,"Excess length of chain in cm"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.2/Example2_2.sce b/3908/CH2/EX2.2/Example2_2.sce new file mode 100644 index 000000000..328267fdf --- /dev/null +++ b/3908/CH2/EX2.2/Example2_2.sce @@ -0,0 +1,13 @@ +//Example 2_2 +clc; +clear; +close; + +//Given data : +tl=1276.54;// True length in m +ml=1274.84;// Measured length in m +dl=30;// Designated length in m +al=dl*(tl/ml);// Actual length in m +disp(al,"Actual length in m"); +al1=al-dl; +disp(al1,"Excess length of chain in m"); diff --git a/3908/CH2/EX2.20/Ex2_20.sce b/3908/CH2/EX2.20/Ex2_20.sce new file mode 100644 index 000000000..abdc7cc2f --- /dev/null +++ b/3908/CH2/EX2.20/Ex2_20.sce @@ -0,0 +1,19 @@ +//Example 2_20 +clc; +clear; +close; + +//Given data : +alpha=4;// angular error in degree +// (a) 1 cm = 10 m +// The plotting accuracy is taken as 0.025 cm +s=10;// Equivalent Scale in m +l=s*0.025/sind(4);// Maximum length of offset in m +disp(l,"(a) Maximum length of offset in m"); +// The answer provided in the textbook is wrong + +// (b) 1 cm = 30 m +s=30;// Equivalent Scale in m +l=s*0.025/sind(4);// Maximum length of offset in m +disp(l,"(b) Maximum length of offset in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.20/Example2_20.sce b/3908/CH2/EX2.20/Example2_20.sce new file mode 100644 index 000000000..6d835a6de --- /dev/null +++ b/3908/CH2/EX2.20/Example2_20.sce @@ -0,0 +1,18 @@ +//Example 2_20 +clc; +clear; +close; + +//Given data : +alpha=4;// angular error in degree +// (a) 1 cm = 10 m +// The plotting accuracy is taken as 0.025 cm +s=10;// Equivalent Scale in m +l=s*0.025/sind(4);// Maximum length of offset in m +disp(l,"(a) Maximum length of offset in m"); +// The answer provided in the textbook is wrong + +// (b) 1 cm = 30 m +s=30;// Equivalent Scale in m +l=s*0.025/sind(4);// Maximum length of offset in m +disp(l,"(b) Maximum length of offset in m"); diff --git a/3908/CH2/EX2.21/Ex2_21.sce b/3908/CH2/EX2.21/Ex2_21.sce new file mode 100644 index 000000000..6b5fc8316 --- /dev/null +++ b/3908/CH2/EX2.21/Ex2_21.sce @@ -0,0 +1,11 @@ +//Example 2_21 +clc; +clear; +close; + +//Given data : +alpha=3;// Angular error in degree +r=cscd(alpha);// Accuracy in linear measurement +disp(r,"Accuracy in linear measurement"); +disp("The Accuracy in linear measurement can be taken as 1 in 19"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.21/Example2_21.sce b/3908/CH2/EX2.21/Example2_21.sce new file mode 100644 index 000000000..c81ee2c1f --- /dev/null +++ b/3908/CH2/EX2.21/Example2_21.sce @@ -0,0 +1,10 @@ +//Example 2_21 +clc; +clear; +close; + +//Given data : +alpha=3;// Angular error in degree +r=cscd(alpha);// Accuracy in linear measurement +disp(r,"Accuracy in linear measurement"); +disp("The Accuracy in linear measurement can be taken as 1 in 19"); diff --git a/3908/CH2/EX2.22/Ex2_22.sce b/3908/CH2/EX2.22/Ex2_22.sce new file mode 100644 index 000000000..5282fc49b --- /dev/null +++ b/3908/CH2/EX2.22/Ex2_22.sce @@ -0,0 +1,19 @@ +//Example 2_22 +clc; +clear; +close; + +//Given data : +l=0.025;// Minimum length that can be plotted in paper in m +// (a)The linear accuracy is 1 in 30 and scale is 1 cm = 20 m +r=30; +s=20; +L=l*r*s/sqrt(2);// Maximum length of offset in m +disp(L,"(a) Maximum length of offset in m"); + +// (b)The linear accuracy is 1 in 50 and scale is 1 in 3000 +r=50; +s=30; +L=l*r*s/sqrt(2);// Maximum length of offset in m +disp(L,"(b) Maximum length of offset in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.22/Example2_22.sce b/3908/CH2/EX2.22/Example2_22.sce new file mode 100644 index 000000000..ead5d16a8 --- /dev/null +++ b/3908/CH2/EX2.22/Example2_22.sce @@ -0,0 +1,18 @@ +//Example 2_22 +clc; +clear; +close; + +//Given data : +l=0.025;// Minimum length that can be plotted in paper in m +// (a)The linear accuracy is 1 in 30 and scale is 1 cm = 20 m +r=30; +s=20; +L=l*r*s/sqrt(2);// Maximum length of offset in m +disp(L,"(a) Maximum length of offset in m"); + +// (b)The linear accuracy is 1 in 50 and scale is 1 in 3000 +r=50; +s=30; +L=l*r*s/sqrt(2);// Maximum length of offset in m +disp(L,"(b) Maximum length of offset in m"); diff --git a/3908/CH2/EX2.23/Ex2_23.sce b/3908/CH2/EX2.23/Ex2_23.sce new file mode 100644 index 000000000..5c0573962 --- /dev/null +++ b/3908/CH2/EX2.23/Ex2_23.sce @@ -0,0 +1,17 @@ +//Example 2_23 +clc; +clear; +close; + +//Given data : +l=20;// Length of offset in m +r=40; +d=l/r;// Displacement due to linear error +// The combined error is equal to (((20*sin(alpha))^2)+(o.5^2))on the ground +// The combined error is equal to (1/40)(((20*sin(alpha))^2)+(o.5^2))on the paper +//Combined error on paper should be is equal to 0.025, which is plotting accuracy +alpha=asind(((((r*0.025)^2)-(0.5^2))/(l^2))^0.5);// Maximum error in angular measurement in degree +d=int(alpha);// in degree +m=int((alpha-d)*60);// in minutes +disp(m,d,"Maximum error in angular measurement in degree and minutes respectively"); +// The answer provided in the textbook is wrong diff --git a/3908/CH2/EX2.23/Example2_23.sce b/3908/CH2/EX2.23/Example2_23.sce new file mode 100644 index 000000000..81bd29e63 --- /dev/null +++ b/3908/CH2/EX2.23/Example2_23.sce @@ -0,0 +1,15 @@ +//Example 2_23 +clc; +clear; +close; + +//Given data : +l=20;// Length of offset in m +r=40; +d=l/r;// Displacement due to linear error +// The combined error is equal to (((20*sin(alpha))^2)+(o.5^2))on the ground +// The combined error is equal to (1/40)(((20*sin(alpha))^2)+(o.5^2))on the paper +//Combined error on paper is equal to 0.025, which is plotting accuracy +alpha=asind(((((r*0.025)^2)-(0.5^2))/(l^2))^0.5);// Maximum error in angular measurement in degree +disp(alpha,"Maximum error in angular measurement in degree"); +// The answer provided in the textbook is wrong diff --git a/3908/CH2/EX2.24/Ex2_24.sce b/3908/CH2/EX2.24/Ex2_24.sce new file mode 100644 index 000000000..7cd3b191e --- /dev/null +++ b/3908/CH2/EX2.24/Ex2_24.sce @@ -0,0 +1,16 @@ +//Example 2_24 +clc; +clear; +close; + +//Given data : +AD=320;// Length of line AD in m +DC=640;// Length of line DC in m +DB=348;// Length of line DB in m +AC=430;// Length of line AC in m +// AC^2=AD^2 + DC^2 - 2AD*DC*cos(alpha) +ca=((AD^2)+(DC^2)-(AC^2))/(2*AD*DC);// Value of cos(alpha) +// AB^2=AD^2 + DB^2 - 2AD*DB*cos(alpha) +AB=sqrt((AD^2)+(DB^2)-(2*AD*DB*ca));// Length of line AB in m +disp(AB," Length of line AB in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.24/Example2_24.sce b/3908/CH2/EX2.24/Example2_24.sce new file mode 100644 index 000000000..d8c0635a9 --- /dev/null +++ b/3908/CH2/EX2.24/Example2_24.sce @@ -0,0 +1,15 @@ +//Example 2_24 +clc; +clear; +close; + +//Given data : +AD=320;// Length of line AD in m +DC=640;// Length of line DC in m +DB=348;// Length of line DB in m +AC=430;// Length of line AC in m +// AC^2=AD^2 + DC^2 - 2AD*DC*cos(alpha) +ca=((AD^2)+(DC^2)-(AC^2))/(2*AD*DC);// Value of cos(alpha) +// AB^2=AD^2 + DB^2 - 2AD*DB*cos(alpha) +AB=sqrt((AD^2)+(DB^2)-(2*AD*DB*ca));// Length of line AB in m +disp(AB," Length of line AB in m"); diff --git a/3908/CH2/EX2.25/Ex2_25.sce b/3908/CH2/EX2.25/Ex2_25.sce new file mode 100644 index 000000000..3b71d91c7 --- /dev/null +++ b/3908/CH2/EX2.25/Ex2_25.sce @@ -0,0 +1,13 @@ +//Example 2_25 +clc; +clear; +close; + +//Given data : +// Triangles DAC and BDC are similar +// AC/AD = AD/AB +AD=65;// Length of line AD in m +AC=22.5;// Length of line AC in m +AB=AD*AD/AC;// Length of line AB in m +disp(AB,"Length of line AB in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.25/Example2_25.sce b/3908/CH2/EX2.25/Example2_25.sce new file mode 100644 index 000000000..08e07fe7d --- /dev/null +++ b/3908/CH2/EX2.25/Example2_25.sce @@ -0,0 +1,12 @@ +//Example 2_25 +clc; +clear; +close; + +//Given data : +// Triangles DAC and BDC are similar +// AC/AD = AD/AB +AD=65;// Length of line AD in m +AC=22.5;// Length of line AC in m +AB=AD*AD/AC;// Length of line AB in m +disp(AB,"Length of line AB in m"); diff --git a/3908/CH2/EX2.26/Ex2_26.sce b/3908/CH2/EX2.26/Ex2_26.sce new file mode 100644 index 000000000..7f5077087 --- /dev/null +++ b/3908/CH2/EX2.26/Ex2_26.sce @@ -0,0 +1,15 @@ +//Example 2_26 +clc; +clear; +close; + +//Given data : +// Triangles ABD and DFE are similar +// AB/AD = DF/FE +AD=40;// Length of line AD in m +DF=40;// Length of line DF in m +CA=40;// Length of line CA in m +FE=75-CA;// Length of line FE in m +AB=AD*DF/FE;// Length of line AB in m +disp(AB,"Length of line AB in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.26/Example2_26.sce b/3908/CH2/EX2.26/Example2_26.sce new file mode 100644 index 000000000..8129dfffe --- /dev/null +++ b/3908/CH2/EX2.26/Example2_26.sce @@ -0,0 +1,14 @@ +//Example 2_26 +clc; +clear; +close; + +//Given data : +// Triangles ABD and DFE are similar +// AB/AD = DF/FE +AD=40;// Length of line AD in m +DF=40;// Length of line DF in m +CA=40;// Length of line CA in m +FE=75-CA;// Length of line FE in m +AB=AD*DF/FE;// Length of line AB in m +disp(AB,"Length of line AB in m"); diff --git a/3908/CH2/EX2.27/Ex2_27.sce b/3908/CH2/EX2.27/Ex2_27.sce new file mode 100644 index 000000000..1d7da167d --- /dev/null +++ b/3908/CH2/EX2.27/Ex2_27.sce @@ -0,0 +1,16 @@ +//Example 2_27 +clc; +clear; +close; + +//Given data : +AC=42;// Length of AC in m +alpha=30;// Angle in degree +CB=AC/cosd(alpha);// Length of CB in m +disp(CB,"Length of CB in m"); +beta=60;// Angle in degree +CD=AC/cosd(beta);// Length of CD in m +disp(CD,"Length of CD in m"); +AB=AC*tand(alpha);// Length of AB in m +disp(AB,"Length of AB in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.27/Example2_27.sce b/3908/CH2/EX2.27/Example2_27.sce new file mode 100644 index 000000000..a5f75d4ff --- /dev/null +++ b/3908/CH2/EX2.27/Example2_27.sce @@ -0,0 +1,15 @@ +//Example 2_27 +clc; +clear; +close; + +//Given data : +AC=42;// Length of AC in m +alpha=30;// Angle in degree +CB=AC/cosd(alpha);// Length of CB in m +disp(CB,"Length of CB in m"); +beta=60;// Angle in degree +CD=AC/cosd(beta);// Length of CD in m +disp(CD,"Length of CD in m"); +AB=AC*tand(alpha);// Length of AB in m +disp(AB,"Length of AB in m"); diff --git a/3908/CH2/EX2.28/Ex2_28.sce b/3908/CH2/EX2.28/Ex2_28.sce new file mode 100644 index 000000000..e235424b3 --- /dev/null +++ b/3908/CH2/EX2.28/Ex2_28.sce @@ -0,0 +1,30 @@ +//Example 2_28 +clc; +clear; +close; + +//Given data : +// Triangles AED and CED are similar +// AE/DE = DE/EC +DE=32;// Length of DE in m +EC=40;// LEngth of EC in m +AE=DE^2/EC;// Length of AE in m +CA=EC+AE;// Length of CA in m +disp(CA,"Length of CA in m"); +// The answer provided in the textbook is wrong + +// Triangles BGF and CGF are similar +// BG/GF = GF/CG +GF=36;// Length of GF in m +CG=44;// LEngth of CG in m +BG=GF^2/CG;// Length of BG in m +CB=CG+BG;// Length of CB in m +disp(CB,"Length of CB in m"); + +// Triangles CAB and CHJ are similar +// CH/CA = CJ/CB=0.25 +// Therefore HJ/AB=0.25 +HJ=23.6;// Length of HJ in m +AB=HJ/0.25;// Length of AB in m +disp(AB,"Length of AB in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.28/Example2_28.sce b/3908/CH2/EX2.28/Example2_28.sce new file mode 100644 index 000000000..5825996ab --- /dev/null +++ b/3908/CH2/EX2.28/Example2_28.sce @@ -0,0 +1,29 @@ +//Example 2_28 +clc; +clear; +close; + +//Given data : +// Triangles AED and CED are similar +// AE/DE = DE/EC +DE=32;// Length of DE in m +EC=40;// LEngth of EC in m +AE=DE^2/EC;// Length of AE in m +CA=EC+AE;// Length of CA in m +disp(CA,"Length of CA in m"); +// The answer provided in the textbook is wrong + +// Triangles BGF and CGF are similar +// BG/GF = GF/CG +GF=36;// Length of GF in m +CG=44;// LEngth of CG in m +BG=GF^2/CG;// Length of BG in m +CB=CG+BG;// Length of CB in m +disp(CB,"Length of CB in m"); + +// Triangles CAB and CHJ are similar +// CH/CA = CJ/CB=0.25 +// Therefore HJ/AB=0.25 +HJ=23.6;// Length of HJ in m +AB=HJ/0.25;// Length of AB in m +disp(AB,"Length of AB in m"); diff --git a/3908/CH2/EX2.3/Ex2_3.sce b/3908/CH2/EX2.3/Ex2_3.sce new file mode 100644 index 000000000..6b5cb7d37 --- /dev/null +++ b/3908/CH2/EX2.3/Ex2_3.sce @@ -0,0 +1,12 @@ +//Example 2_3 +clc; +clear; +close; + +//Given data : +al=(29.95+30.08)/2;// Actual length of chain in m +ml=590.48;// Measured length of chain in m +dl=30;// Designated length of chain in m +tl=ml*(al/dl);// True length of chain in m +disp(tl,"True length in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.3/Example2_3.sce b/3908/CH2/EX2.3/Example2_3.sce new file mode 100644 index 000000000..2d576b6a2 --- /dev/null +++ b/3908/CH2/EX2.3/Example2_3.sce @@ -0,0 +1,11 @@ +//Example 2_3 +clc; +clear; +close; + +//Given data : +al=(29.95+30.08)/2;// Actual length of chain in m +ml=590.48;// Measured length of chain in m +dl=30;// Designated length of chain in m +tl=ml*(al/dl);// True length of chain in m +disp(tl,"True length in m"); diff --git a/3908/CH2/EX2.4/Ex2_4.sce b/3908/CH2/EX2.4/Ex2_4.sce new file mode 100644 index 000000000..c6a9c8924 --- /dev/null +++ b/3908/CH2/EX2.4/Ex2_4.sce @@ -0,0 +1,14 @@ +//Example 2_4 +clc; +clear; +close; + +//Given data : +al=20.12;// Actual length of chain in m +mw=280;// Measured width in m +dl=20;// Designated width in m +tw=mw*(al/dl);// True width in m +ml=420;// Measured length in m +tl=ml*(al/dl);// True length in m +ta=tw*tl;// True area in sq.m +disp(ta,"True area in sq.m"); diff --git a/3908/CH2/EX2.4/Example2_4.sce b/3908/CH2/EX2.4/Example2_4.sce new file mode 100644 index 000000000..c6a9c8924 --- /dev/null +++ b/3908/CH2/EX2.4/Example2_4.sce @@ -0,0 +1,14 @@ +//Example 2_4 +clc; +clear; +close; + +//Given data : +al=20.12;// Actual length of chain in m +mw=280;// Measured width in m +dl=20;// Designated width in m +tw=mw*(al/dl);// True width in m +ml=420;// Measured length in m +tl=ml*(al/dl);// True length in m +ta=tw*tl;// True area in sq.m +disp(ta,"True area in sq.m"); diff --git a/3908/CH2/EX2.5/Ex2_5.sce b/3908/CH2/EX2.5/Ex2_5.sce new file mode 100644 index 000000000..390b6ade7 --- /dev/null +++ b/3908/CH2/EX2.5/Ex2_5.sce @@ -0,0 +1,26 @@ +//Example 2_5 +clc; +clear; +close; + +//Given data : +// (a) For the first 1200 m: +ml1=1200;// Measured length in m +dl1=30;// Designated length in m +l1=dl1-0.2;// Length before measurement in m +L1=dl1+0.1;// Length after measuring 1200 m +al1=(l1+L1)/2;// Average length in m +tl1=ml1*(al1/dl1);// True length in m +disp(tl1,"True length for first portion in m") + +// (b) For the next 1448 (i.e., 2648-1200) m: +ml2=1448;// Measured length in m +dl2=30;// Designated length in m +l2=dl2+0.1;// Length before measurement in m +L2=dl2+0.3;// Length after measuring 1200 m +al2=(l2+L2)/2;// Average length in m +tl2=ml2*(al2/dl2);// True length in m +disp(tl2,"True length for second portion in m") +TL=tl1+tl2;// True length of the line in m +disp(TL,"True length of the line in m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.5/Example2_5.sce b/3908/CH2/EX2.5/Example2_5.sce new file mode 100644 index 000000000..97942925b --- /dev/null +++ b/3908/CH2/EX2.5/Example2_5.sce @@ -0,0 +1,25 @@ +//Example 2_5 +clc; +clear; +close; + +//Given data : +// (a) For the first 1200 m: +ml1=1200;// Measured length in m +dl1=30;// Designated length in m +l1=dl1-0.2;// Length before measurement in m +L1=dl1+0.1;// Length after measuring 1200 m +al1=(l1+L1)/2;// Average length in m +tl1=ml1*(al1/dl1);// True length in m +disp(tl1,"True length for first portion in m") + +// (b) For the next 1448 (i.e., 2648-1200) m: +ml2=1448;// Measured length in m +dl2=30;// Designated length in m +l2=dl2+0.1;// Length before measurement in m +L2=dl2+0.3;// Length after measuring 1200 m +al2=(l2+L2)/2;// Average length in m +tl2=ml2*(al2/dl2);// True length in m +disp(tl2,"True length for second portion in m") +TL=tl1+tl2;// True length of the line in m +disp(TL,"True length of the line in m"); diff --git a/3908/CH2/EX2.6/Ex2_6.sce b/3908/CH2/EX2.6/Ex2_6.sce new file mode 100644 index 000000000..5d9bb2855 --- /dev/null +++ b/3908/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,12 @@ +//Example 2_6 +clc; +clear; +close; + +//Given data : +mv=486.95;// Measured volume in cubic m +al=20.1;// Actual length in m +dl=20;// Designated length in m +tv=mv*(al/dl)^3;// True volume in cubic m +disp(tv,"True volume in cubic m") +// The answers vary due to round off error diff --git a/3908/CH2/EX2.6/Example2_6.sce b/3908/CH2/EX2.6/Example2_6.sce new file mode 100644 index 000000000..b62d9d706 --- /dev/null +++ b/3908/CH2/EX2.6/Example2_6.sce @@ -0,0 +1,11 @@ +//Example 2_6 +clc; +clear; +close; + +//Given data : +mv=486.95;// Measured volume in cubic m +al=20.1;// Actual length in m +dl=20;// Designated length in m +tv=mv*(al/dl)^3;// True volume in cubic m +disp(tv,"True volume in cubic m") diff --git a/3908/CH2/EX2.8/Ex2_8.sce b/3908/CH2/EX2.8/Ex2_8.sce new file mode 100644 index 000000000..af36af185 --- /dev/null +++ b/3908/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,18 @@ +//Example 2_8 +clc; +clear; +close; + +//Given data : +ma=98.68;// Measured area in sq m +tl=15;// True length of line in m +ml=14.76;// Measured length of line in m +tap=ma*(tl/ml)^2;// True area of plan in sq m +disp(tap,"True area of plan in sq.m") +al=30.15;// Actual length of chain in m +ma=tap;// Measured area in sq m +dl=30;// Designated length in m +ta=ma*(al/dl)^2;// True area in sq m +tal=ta*25^2;// True area of land in sq m +disp(tal,"True area of land in sq m"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.8/Example2_8.sce b/3908/CH2/EX2.8/Example2_8.sce new file mode 100644 index 000000000..257d664bd --- /dev/null +++ b/3908/CH2/EX2.8/Example2_8.sce @@ -0,0 +1,17 @@ +//Example 2_8 +clc; +clear; +close; + +//Given data : +ma=98.68;// Measured area in sq m +tl=15;// True length of line in m +ml=14.76;// Measured length of line in m +tap=ma*(tl/ml)^2;// True area of plan in sq m +disp(tap,"True area of plan in sq.m") +al=30.15;// Actual length of chain in m +ma=tap;// Measured area in sq m +dl=30;// Designated length in m +ta=ma*(al/dl)^2;// True area in sq m +tal=ta*25^2;// True area of land in sq m +disp(tal,"True area of land in sq m"); diff --git a/3908/CH2/EX2.9/Ex2_9.sce b/3908/CH2/EX2.9/Ex2_9.sce new file mode 100644 index 000000000..bcee05342 --- /dev/null +++ b/3908/CH2/EX2.9/Ex2_9.sce @@ -0,0 +1,24 @@ +//Example 2_9 +clc; +clear; +close; + +//Given data : +ml=327.5;// Measured length in m + +// (a) the slope of ground is 7.5 deg +hd=ml*cosd(7.5);// Horizontal distance in m +disp(hd,"(a)Horizontal distance in m"); +// The answers vary due to round off error + +// (b) the ground rises by 30 cm for every 10 m along the slope +hd=((10^2)+(0.3^2))^0.5;// Horizontal distance for 10 m along the slope +Hd=ml*hd/10;// Horizontal distance for 327.5 m along the slope +disp(Hd,"(b)Horizontal distance for 327.5 m along the slope"); +// The answers vary due to round off error + +// (c) the gradient is 1:4 +hd=((4^2)+(1^2))^0.5;// Horizontal distance along the slope +Hd=ml*4/hd;// Horizontal distance for 327.5 m along the slope +disp(Hd,"(c)Horizontal distance for 327.5 m along the slope"); +// The answers vary due to round off error diff --git a/3908/CH2/EX2.9/Example2_9.sce b/3908/CH2/EX2.9/Example2_9.sce new file mode 100644 index 000000000..ced28eaf1 --- /dev/null +++ b/3908/CH2/EX2.9/Example2_9.sce @@ -0,0 +1,21 @@ +//Example 2_9 +clc; +clear; +close; + +//Given data : +ml=327.5;// Measured length in m + +// (a) the slope of ground is 7.5 deg +hd=ml*cosd(7.5);// Horizontal distance in m +disp(hd,"(a)Horizontal distance in m"); + +// (b) the ground rises by 30 cm for every 10 m along the slope +hd=((10^2)+(0.3^2))^0.5;// Horizontal distance for 10 m along the slope +Hd=ml*hd/10;// Horizontal distance for 327.5 m along the slope +disp(Hd,"(b)Horizontal distance for 327.5 m along the slope"); + +// (c) the gradient is 1:4 +hd=((4^2)+(1^2))^0.5;// Horizontal distance along the slope +Hd=ml*4/hd;// Horizontal distance for 327.5 m along the slope +disp(Hd,"(c)Horizontal distance for 327.5 m along the slope"); diff --git a/3908/CH21/EX21.1/Ex21_1.sce b/3908/CH21/EX21.1/Ex21_1.sce new file mode 100644 index 000000000..b1668d82f --- /dev/null +++ b/3908/CH21/EX21.1/Ex21_1.sce @@ -0,0 +1,29 @@ +//Example 21_1 +clc; +clear; +close; + +//Given data : +// (a) 28degree 35minutes N, 58degree 36minutes N +L1=28+(35/60);// Latitude 1 in degree +L2=58+(36/60);// Latitude 2 in degree +// The latitudes are measured towards the same pole +// The difference in laditude between two points is the difference in latitudes of the two points +D1=L2-L1;// Difference in latitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(a) Difference of Latitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); + +// (b) 18degree 24minutes N, 34degree 45minutes S +L1=18+(24/60);// Latitude 1 in degree +L2=34+(45/60);// Latitude 2 in degree +// The latitudes are measured towards the same pole +// The difference in laditude between two points is the sum of the latitudes of the two points +D1=L2+L1;// Sum of latitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(b) Difference of Latitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); diff --git a/3908/CH21/EX21.1/Example21_1.sce b/3908/CH21/EX21.1/Example21_1.sce new file mode 100644 index 000000000..b1668d82f --- /dev/null +++ b/3908/CH21/EX21.1/Example21_1.sce @@ -0,0 +1,29 @@ +//Example 21_1 +clc; +clear; +close; + +//Given data : +// (a) 28degree 35minutes N, 58degree 36minutes N +L1=28+(35/60);// Latitude 1 in degree +L2=58+(36/60);// Latitude 2 in degree +// The latitudes are measured towards the same pole +// The difference in laditude between two points is the difference in latitudes of the two points +D1=L2-L1;// Difference in latitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(a) Difference of Latitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); + +// (b) 18degree 24minutes N, 34degree 45minutes S +L1=18+(24/60);// Latitude 1 in degree +L2=34+(45/60);// Latitude 2 in degree +// The latitudes are measured towards the same pole +// The difference in laditude between two points is the sum of the latitudes of the two points +D1=L2+L1;// Sum of latitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(b) Difference of Latitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); diff --git a/3908/CH21/EX21.2/Ex21_2.sce b/3908/CH21/EX21.2/Ex21_2.sce new file mode 100644 index 000000000..11c586a05 --- /dev/null +++ b/3908/CH21/EX21.2/Ex21_2.sce @@ -0,0 +1,29 @@ +//Example 21_2 +clc; +clear; +close; + +//Given data : +// (a) 38degree 25minutes W, 28degree 12minutes W +L1=38+(25/60);// Longitude 1 in degree +L2=28+(12/60);// Longitude 2 in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two points +D1=L1-L2;// Difference in longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(a) Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); + +// (b) 19degree 24minutes E, 23degree 48minutes W +L1=19+(24/60);// Longitude 1 in degree +L2=23+(48/60);// Longitude 2 in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the sum of the longitude of the two points +D1=L1+L2;// Sum of longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(b) Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); diff --git a/3908/CH21/EX21.2/Example21_2.sce b/3908/CH21/EX21.2/Example21_2.sce new file mode 100644 index 000000000..11c586a05 --- /dev/null +++ b/3908/CH21/EX21.2/Example21_2.sce @@ -0,0 +1,29 @@ +//Example 21_2 +clc; +clear; +close; + +//Given data : +// (a) 38degree 25minutes W, 28degree 12minutes W +L1=38+(25/60);// Longitude 1 in degree +L2=28+(12/60);// Longitude 2 in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two points +D1=L1-L2;// Difference in longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(a) Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); + +// (b) 19degree 24minutes E, 23degree 48minutes W +L1=19+(24/60);// Longitude 1 in degree +L2=23+(48/60);// Longitude 2 in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the sum of the longitude of the two points +D1=L1+L2;// Sum of longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("(b) Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); diff --git a/3908/CH21/EX21.20/Ex21_20.sce b/3908/CH21/EX21.20/Ex21_20.sce new file mode 100644 index 000000000..acb25f79b --- /dev/null +++ b/3908/CH21/EX21.20/Ex21_20.sce @@ -0,0 +1,17 @@ +//Example 21_20 +clc; +clear; +close; + +//Given data : +alpha1=69+(32/60)+(31.8/3600);// Observed altitude in degree +cr=57*cotd(alpha1);// Correction for refraction in seconds +alpha2=alpha1-(cr/3600);// Corrected altitude in degree +ZD=90-alpha2;// Zenith distance in degree +// As the star lies between the zenith and the equator +d=48+(26/60)+(38.31/3600);// Declination in degree +teta=ZD+d;// Latitude in degree +m=(teta-int(teta))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(teta),"Latitude in degree,minute and seconds respectively"); +// The answers vary due to round off error diff --git a/3908/CH21/EX21.20/Example21_20.sce b/3908/CH21/EX21.20/Example21_20.sce new file mode 100644 index 000000000..a9ac94ede --- /dev/null +++ b/3908/CH21/EX21.20/Example21_20.sce @@ -0,0 +1,15 @@ +//Example 21_20 +clc; +clear; +close; + +//Given data : +alpha1=69+(32/60)+(31.8/3600);// Observed altitude in degree +cr=57*cotd(alpha1);// Correction for refraction in seconds +alpha2=alpha1-(cr/3600);// Corrected altitude in degree +ZD=90-alpha2;// Zenith distance in degree +// As the star lies between the zenith and the equator +d=48+(26/60)+(38.31/3600);// Declination in degree +teta=ZD+d;// Latitude in degree +disp(teta,"Latitude in degree"); +// The answers vary due to round off error diff --git a/3908/CH21/EX21.3/Ex21_3.sce b/3908/CH21/EX21.3/Ex21_3.sce new file mode 100644 index 000000000..a241c6d34 --- /dev/null +++ b/3908/CH21/EX21.3/Ex21_3.sce @@ -0,0 +1,24 @@ +//Example 21_3 +clc; +clear; +close; + +//Given data : +// 36degree 24minutes N, 30degree 36minutes W +L1=36+(24/60);// Latitude of A in degree +l1=30+(36/60);// Longitude of A degree +// 12degree 12minutes N, 15degree 20minutes E +L2=12+(12/60);// Latitude of B in degree +l2=15+(20/60);// Longitude of B degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two points +D1=l1+l2;// Difference in longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); +D=D1*60*cosd(L1);// Departure in NM +D=D*1.852;// Departure in km +disp(D,"Departure in km"); +// The answers vary due to round off error diff --git a/3908/CH21/EX21.3/Example21_3.sce b/3908/CH21/EX21.3/Example21_3.sce new file mode 100644 index 000000000..a241c6d34 --- /dev/null +++ b/3908/CH21/EX21.3/Example21_3.sce @@ -0,0 +1,24 @@ +//Example 21_3 +clc; +clear; +close; + +//Given data : +// 36degree 24minutes N, 30degree 36minutes W +L1=36+(24/60);// Latitude of A in degree +l1=30+(36/60);// Longitude of A degree +// 12degree 12minutes N, 15degree 20minutes E +L2=12+(12/60);// Latitude of B in degree +l2=15+(20/60);// Longitude of B degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two points +D1=l1+l2;// Difference in longitude in degree +deg=int(D1);// degree +mins=(D1-deg)*60;// minutes +disp("Difference of Longitude"); +disp(deg,"Degree"); +disp(mins,"Minutes"); +D=D1*60*cosd(L1);// Departure in NM +D=D*1.852;// Departure in km +disp(D,"Departure in km"); +// The answers vary due to round off error diff --git a/3908/CH21/EX21.4/Ex21_4.sce b/3908/CH21/EX21.4/Ex21_4.sce new file mode 100644 index 000000000..78c083bc2 --- /dev/null +++ b/3908/CH21/EX21.4/Ex21_4.sce @@ -0,0 +1,22 @@ +//Example 21_4 +clc; +clear; +close; + +//Given data : +// 18degree 24minutes N, 36degree 18minutes E +L1=18+(24/60);// Latitude of A in degree +l1=36+(18/60);// Longitude of A degree +// 68degree 32minutes N, 126degree 34minutes E +L2=68+(32/60);// Latitude of B in degree +l2=126+(34/60);// Longitude of B degree +PA=90-L1;// Latitude PA in degree +PB=90-L2;// Latitude PB in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two point +APB=l2-l1;// Difference in longitude in degree +AB=acosd((cosd(PA)*cosd(PB))+(sind(PA)*sind(PB)*cosd(APB)));// Angle AB in degree +R=6370;// Radius in km +D=R*AB*3.14/180;// Distance AB in km +disp(D,"Distance AB in km"); +// The answer provided in the textbook is wrong diff --git a/3908/CH21/EX21.4/Example21_4.sce b/3908/CH21/EX21.4/Example21_4.sce new file mode 100644 index 000000000..78c083bc2 --- /dev/null +++ b/3908/CH21/EX21.4/Example21_4.sce @@ -0,0 +1,22 @@ +//Example 21_4 +clc; +clear; +close; + +//Given data : +// 18degree 24minutes N, 36degree 18minutes E +L1=18+(24/60);// Latitude of A in degree +l1=36+(18/60);// Longitude of A degree +// 68degree 32minutes N, 126degree 34minutes E +L2=68+(32/60);// Latitude of B in degree +l2=126+(34/60);// Longitude of B degree +PA=90-L1;// Latitude PA in degree +PB=90-L2;// Latitude PB in degree +// The longitudes are measured towards the same pole +// The difference in longitude between two points is the difference in longitude of the two point +APB=l2-l1;// Difference in longitude in degree +AB=acosd((cosd(PA)*cosd(PB))+(sind(PA)*sind(PB)*cosd(APB)));// Angle AB in degree +R=6370;// Radius in km +D=R*AB*3.14/180;// Distance AB in km +disp(D,"Distance AB in km"); +// The answer provided in the textbook is wrong diff --git a/3908/CH21/EX21.8/Ex21_8.sce b/3908/CH21/EX21.8/Ex21_8.sce new file mode 100644 index 000000000..9f8e9f112 --- /dev/null +++ b/3908/CH21/EX21.8/Ex21_8.sce @@ -0,0 +1,18 @@ +//Example 21_8 +clc; +clear; +close; + +//Given data : +A=56;// Azimuth of the place in degree +d=42+(15/60);// Declination in degree +// In astronomical triangle ZPS +PS=90-d;// PS in degree +// The triangle is right angled at S. Therefore +// sin(A)=cos(d)/cos(teta) +// cos(teta)=cos(d)/sin(A) +teta=acosd(cosd(d)/sind(A));// Latitude in degree +m=(teta-int(teta))*60;// in minutes +s=(m-int(m))*60;// in seconds +disp(s,int(m),int(teta),"Latitude in degree,minute and seconds respectively"); +// The answers vary due to round off error diff --git a/3908/CH21/EX21.8/Example21_8.sce b/3908/CH21/EX21.8/Example21_8.sce new file mode 100644 index 000000000..1b100196c --- /dev/null +++ b/3908/CH21/EX21.8/Example21_8.sce @@ -0,0 +1,16 @@ +//Example 21_8 +clc; +clear; +close; + +//Given data : +A=56;// Azimuth of the place in degree +d=42+(15/60);// Declination in degree +// In astronomical triangle ZPS +PS=90-d;// PS in degree +// The triangle is right angled at S. Therefore +// sin(A)=cos(d)/cos(teta) +// cos(teta)=cos(d)/sin(A) +teta=acosd(cosd(d)/sind(A));// Latitude in degree +disp(teta,"Latitude in degree") +// The answers vary due to round off error diff --git a/3908/CH21/EX21.9/Ex21_9.sce b/3908/CH21/EX21.9/Ex21_9.sce new file mode 100644 index 000000000..9518979c6 --- /dev/null +++ b/3908/CH21/EX21.9/Ex21_9.sce @@ -0,0 +1,18 @@ +//Example 21_9 +clc; +clear; +close; + +//Given data : + +// (a) At upper culmination +d=20;// Declination in degree +teta=50;// Latitude in degree +ZD1=teta-d;// Zenith distance at upper culmination in degree +disp(ZD1,"(a) Zenith distance at upper culmination in degree"); + +// (b) At lower culmination +d=22+(30/60);// Declination in degree +teta=45+(30/60);// Latitude in degree +ZD2=180-teta-d;// Zenith distance at lower culmination in degree +disp(ZD2,"(b) Zenith distance at lower culmination in degree"); diff --git a/3908/CH21/EX21.9/Example21_9.sce b/3908/CH21/EX21.9/Example21_9.sce new file mode 100644 index 000000000..9518979c6 --- /dev/null +++ b/3908/CH21/EX21.9/Example21_9.sce @@ -0,0 +1,18 @@ +//Example 21_9 +clc; +clear; +close; + +//Given data : + +// (a) At upper culmination +d=20;// Declination in degree +teta=50;// Latitude in degree +ZD1=teta-d;// Zenith distance at upper culmination in degree +disp(ZD1,"(a) Zenith distance at upper culmination in degree"); + +// (b) At lower culmination +d=22+(30/60);// Declination in degree +teta=45+(30/60);// Latitude in degree +ZD2=180-teta-d;// Zenith distance at lower culmination in degree +disp(ZD2,"(b) Zenith distance at lower culmination in degree"); diff --git a/3908/CH5/EX5.1/Ex5_1.sce b/3908/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..162107851 --- /dev/null +++ b/3908/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,24 @@ +//Example 5_1 +clc; +clear; +close; + +//Given data : +d=25;// Displacement of the plotted point in cm +// (a) 1 mm = 0.1 m +k=1/(0.1*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(a) Displacement of plotted point in cm"); +disp("This is significant error"); + +// (b) 1 mm = 1 m +k=1/(1*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(b) Displacement of plotted point cm"); +disp("This is limiting error"); + +// (c) 1 mm = 2 m +k=1/(2*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(c) Displacement of plotted point cm"); +disp("This is not significant error"); diff --git a/3908/CH5/EX5.1/Example5_1.sce b/3908/CH5/EX5.1/Example5_1.sce new file mode 100644 index 000000000..162107851 --- /dev/null +++ b/3908/CH5/EX5.1/Example5_1.sce @@ -0,0 +1,24 @@ +//Example 5_1 +clc; +clear; +close; + +//Given data : +d=25;// Displacement of the plotted point in cm +// (a) 1 mm = 0.1 m +k=1/(0.1*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(a) Displacement of plotted point in cm"); +disp("This is significant error"); + +// (b) 1 mm = 1 m +k=1/(1*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(b) Displacement of plotted point cm"); +disp("This is limiting error"); + +// (c) 1 mm = 2 m +k=1/(2*1000);// Representative fraction +E=d*k;// Displacement of plotted point cm +disp(E,"(c) Displacement of plotted point cm"); +disp("This is not significant error"); diff --git a/3908/CH8/EX8.10/Ex8_10.sce b/3908/CH8/EX8.10/Ex8_10.sce new file mode 100644 index 000000000..49d84781e --- /dev/null +++ b/3908/CH8/EX8.10/Ex8_10.sce @@ -0,0 +1,18 @@ +//Example 8_10 +clc; +clear; +close; + +//Given data : +IR=8.942;// Initial Reading in cm +FR=3.678;// Final Reading in cm +C=30; +N=-2; +M=100;// in sq. cm +A=M*(FR-IR+(10*N)+C);// Area in sq. cm +// Scale is 1 cm = 150 m +// 1 sq. cm represents 150*150 sq. m of land area +s=150;// Scale in m +AG=A*s*s;// Area of ground in sq. m +AG=AG/10000;// Area of ground in hectares +disp(AG,"Area of ground in hectares"); diff --git a/3908/CH8/EX8.10/Example8_10.sce b/3908/CH8/EX8.10/Example8_10.sce new file mode 100644 index 000000000..49d84781e --- /dev/null +++ b/3908/CH8/EX8.10/Example8_10.sce @@ -0,0 +1,18 @@ +//Example 8_10 +clc; +clear; +close; + +//Given data : +IR=8.942;// Initial Reading in cm +FR=3.678;// Final Reading in cm +C=30; +N=-2; +M=100;// in sq. cm +A=M*(FR-IR+(10*N)+C);// Area in sq. cm +// Scale is 1 cm = 150 m +// 1 sq. cm represents 150*150 sq. m of land area +s=150;// Scale in m +AG=A*s*s;// Area of ground in sq. m +AG=AG/10000;// Area of ground in hectares +disp(AG,"Area of ground in hectares"); diff --git a/3908/CH8/EX8.11/Ex8_11.sce b/3908/CH8/EX8.11/Ex8_11.sce new file mode 100644 index 000000000..28f4e9904 --- /dev/null +++ b/3908/CH8/EX8.11/Ex8_11.sce @@ -0,0 +1,30 @@ +//Example 8_11 +clc; +clear; +close; + +//Given data : +l=15.76;// Length of the tracer in cm +pi=22/7; +d=2.02;// Diameter in cm +M=l*pi*d;// in sq. cm +disp(M,"Value of M in cm"); + +// Anchor point outside +IRo=2.192;// Initial Reading in cm +FRo=4.352;// Final Reading in cm +No=1;// N for outside point +Co=0;// C for outside point +Ao=M*(FRo-IRo+(10*No)+Co);// Area calculated for anchor point outside in sq. cm + +// Anchor point inside +IRi=0.012;// Initial Reading in cm +FRi=9.884;// Final Reading in cm +//Area calculated for anchor point outside = Area calculated for anchor point inside +Ai=Ao;// Area for anchor point inside in sq. cm +Ni=-2;// N for inside point +Ci=(Ai/M)-FRi+IRi-(10*Ni);// C for inside point +disp(Ci,"Value of C"); +A0=M*Ci;// Area of zero circle in sq. cm +disp(A0,"Area of zero circle in sq. cm"); +//"The answers vary due to round off error" diff --git a/3908/CH8/EX8.11/Example8_11.sce b/3908/CH8/EX8.11/Example8_11.sce new file mode 100644 index 000000000..28f4e9904 --- /dev/null +++ b/3908/CH8/EX8.11/Example8_11.sce @@ -0,0 +1,30 @@ +//Example 8_11 +clc; +clear; +close; + +//Given data : +l=15.76;// Length of the tracer in cm +pi=22/7; +d=2.02;// Diameter in cm +M=l*pi*d;// in sq. cm +disp(M,"Value of M in cm"); + +// Anchor point outside +IRo=2.192;// Initial Reading in cm +FRo=4.352;// Final Reading in cm +No=1;// N for outside point +Co=0;// C for outside point +Ao=M*(FRo-IRo+(10*No)+Co);// Area calculated for anchor point outside in sq. cm + +// Anchor point inside +IRi=0.012;// Initial Reading in cm +FRi=9.884;// Final Reading in cm +//Area calculated for anchor point outside = Area calculated for anchor point inside +Ai=Ao;// Area for anchor point inside in sq. cm +Ni=-2;// N for inside point +Ci=(Ai/M)-FRi+IRi-(10*Ni);// C for inside point +disp(Ci,"Value of C"); +A0=M*Ci;// Area of zero circle in sq. cm +disp(A0,"Area of zero circle in sq. cm"); +//"The answers vary due to round off error" diff --git a/3908/CH8/EX8.12/Ex8_12.sce b/3908/CH8/EX8.12/Ex8_12.sce new file mode 100644 index 000000000..e826aa254 --- /dev/null +++ b/3908/CH8/EX8.12/Ex8_12.sce @@ -0,0 +1,26 @@ +//Example 8_12 +clc; +clear; +close; + +//Given data : +M=100; +C=30; +d=2;// diameter in cm +// M = l*pi*d +pi=22/7; +l=M/(pi*d);// Length in cm +A0=M*C;// Area of zero circle in sq. cm +disp(A0,"Area of zero circle in sq. cm"); + +a=2.93;// in cm +// (a) when wheel is beyond pivot +// pi*(l^2 + 2*a*l + r^2)=3000 +r=sqrt((3000/pi)-(l^2)-(2*a*l)) +disp(r,"(a) Length in cm"); + +// (b) when wheel is between pivot and tracing point +// pi*(l^2 - 2*a*l + r^2)=3000 +r=sqrt((3000/pi)-(l^2)+(2*a*l)) +disp(r,"(b) Length in cm"); +//"The answers vary due to round off error" diff --git a/3908/CH8/EX8.12/Example8_12.sce b/3908/CH8/EX8.12/Example8_12.sce new file mode 100644 index 000000000..e826aa254 --- /dev/null +++ b/3908/CH8/EX8.12/Example8_12.sce @@ -0,0 +1,26 @@ +//Example 8_12 +clc; +clear; +close; + +//Given data : +M=100; +C=30; +d=2;// diameter in cm +// M = l*pi*d +pi=22/7; +l=M/(pi*d);// Length in cm +A0=M*C;// Area of zero circle in sq. cm +disp(A0,"Area of zero circle in sq. cm"); + +a=2.93;// in cm +// (a) when wheel is beyond pivot +// pi*(l^2 + 2*a*l + r^2)=3000 +r=sqrt((3000/pi)-(l^2)-(2*a*l)) +disp(r,"(a) Length in cm"); + +// (b) when wheel is between pivot and tracing point +// pi*(l^2 - 2*a*l + r^2)=3000 +r=sqrt((3000/pi)-(l^2)+(2*a*l)) +disp(r,"(b) Length in cm"); +//"The answers vary due to round off error" diff --git a/3908/CH8/EX8.13/Ex8_13.sce b/3908/CH8/EX8.13/Ex8_13.sce new file mode 100644 index 000000000..8660d0b67 --- /dev/null +++ b/3908/CH8/EX8.13/Ex8_13.sce @@ -0,0 +1,26 @@ +//Example 8_13 +clc; +clear; +close; + +//Given data : +b=170;// Length of DC in m +a=250;// Length of AB in m +// h = h1 + h2 = 150 +h=150;// Height in m +A=(1/2)*(b+a)*h;// Area of trapezium in sq. m +disp(A,"Area of trapezium in sq. m"); +// Ratio is 7:3 +r1=7; +r2=3; +sr=r1+r2;// Sum of ratios +A1=A*r1/sr;// Area of ABQP in sq. m +disp(A1,"Area of ABQP in sq. m"); +A2=A*r2/sr;// Area of PQCD in sq. m +disp(A2,"Area of PQCD in sq. m"); +x=sqrt((((r1*b^2)+(r2*a^2)))/(r1+r2));// Length of PQ in m +disp(x,"Length of PQ in m"); +h1=h*(a-x)/(a-b);// Height h1 in m +disp(h1,"Height h1 in m"); +h2=h-h1;// Height h2 in m +disp(h2,"Height h2 in m"); diff --git a/3908/CH8/EX8.13/Example8_13.sce b/3908/CH8/EX8.13/Example8_13.sce new file mode 100644 index 000000000..8660d0b67 --- /dev/null +++ b/3908/CH8/EX8.13/Example8_13.sce @@ -0,0 +1,26 @@ +//Example 8_13 +clc; +clear; +close; + +//Given data : +b=170;// Length of DC in m +a=250;// Length of AB in m +// h = h1 + h2 = 150 +h=150;// Height in m +A=(1/2)*(b+a)*h;// Area of trapezium in sq. m +disp(A,"Area of trapezium in sq. m"); +// Ratio is 7:3 +r1=7; +r2=3; +sr=r1+r2;// Sum of ratios +A1=A*r1/sr;// Area of ABQP in sq. m +disp(A1,"Area of ABQP in sq. m"); +A2=A*r2/sr;// Area of PQCD in sq. m +disp(A2,"Area of PQCD in sq. m"); +x=sqrt((((r1*b^2)+(r2*a^2)))/(r1+r2));// Length of PQ in m +disp(x,"Length of PQ in m"); +h1=h*(a-x)/(a-b);// Height h1 in m +disp(h1,"Height h1 in m"); +h2=h-h1;// Height h2 in m +disp(h2,"Height h2 in m"); diff --git a/3908/CH8/EX8.4/Ex8_4.sce b/3908/CH8/EX8.4/Ex8_4.sce new file mode 100644 index 000000000..d6e91f2e8 --- /dev/null +++ b/3908/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,15 @@ +//Example 8_4 +clc; +clear; +close; + +//Given data : +n=10;// Number of sections +l1=5.4;// Length of offset measures at 5 m in m +l2=6.8;// Length of offset measures at 15 m in m +l3=8.4;// Length of offset measures at 25 m in m +l4=7.5;// Length of offset measures at 35 m in m +l5=7.2;// Length of offset measures at 45 m in m +// According to mid-ordinate rule +A=(l1+l2+l3+l4+l5)*n;// Area in sq m +disp(A,"Area in sq. m"); diff --git a/3908/CH8/EX8.4/Example8_4.sce b/3908/CH8/EX8.4/Example8_4.sce new file mode 100644 index 000000000..d6e91f2e8 --- /dev/null +++ b/3908/CH8/EX8.4/Example8_4.sce @@ -0,0 +1,15 @@ +//Example 8_4 +clc; +clear; +close; + +//Given data : +n=10;// Number of sections +l1=5.4;// Length of offset measures at 5 m in m +l2=6.8;// Length of offset measures at 15 m in m +l3=8.4;// Length of offset measures at 25 m in m +l4=7.5;// Length of offset measures at 35 m in m +l5=7.2;// Length of offset measures at 45 m in m +// According to mid-ordinate rule +A=(l1+l2+l3+l4+l5)*n;// Area in sq m +disp(A,"Area in sq. m"); diff --git a/3908/CH8/EX8.5/Ex8_5.sce b/3908/CH8/EX8.5/Ex8_5.sce new file mode 100644 index 000000000..947e67ea1 --- /dev/null +++ b/3908/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,35 @@ +//Example 8_5 +clc; +clear; +close; + +//Given data : +n=10;// Number of sections +l=100;// Total length in m +l1=3.8;// Length of offset measures at 0 m in m +l2=5.1;// Length of offset measures at 10 m in m +l3=6.5;// Length of offset measures at 20 m in m +l4=6.8;// Length of offset measures at 30 m in m +l5=5.9;// Length of offset measures at 40 m in m +l6=5.9;// Length of offset measures at 50 m in m +l7=6.2;// Length of offset measures at 60 m in m +l8=7.0;// Length of offset measures at 70 m in m +l9=6.6;// Length of offset measures at 80 m in m +l10=5.8;// Length of offset measures at 90 m in m +l11=4.2;// Length of offset measures at 100 m in m + +// (a) Average ordinate rule +N=n+1;// Number of ordinates +S=l1+l2+l3+l4+l5+l6+l7+l8+l9+l10+l11;// Sum of offsets in m +A=S/N*l;// Area in sq. m +disp(A,"(a) Area in sq. m"); + +// (b) Trapezoidal rule +i=10;// Offset interval in m +A=i*(((l1+l11)/2)+l2+l3+l4+l5+l6+l7+l8+l9+l10);// Area in sq. m +disp(A,"(b) Area in sq. m"); + +// (c) Parabolic rule +i=10;// Offset interval in m +A=(1/3*i)*(l1+l11+(4*(l2+l4+l6+l8+l10))+(2*(l3+l5+l7+l9)));// Area in sq. m +disp(A,"(c) Area in sq. m"); diff --git a/3908/CH8/EX8.5/Example8_5.sce b/3908/CH8/EX8.5/Example8_5.sce new file mode 100644 index 000000000..947e67ea1 --- /dev/null +++ b/3908/CH8/EX8.5/Example8_5.sce @@ -0,0 +1,35 @@ +//Example 8_5 +clc; +clear; +close; + +//Given data : +n=10;// Number of sections +l=100;// Total length in m +l1=3.8;// Length of offset measures at 0 m in m +l2=5.1;// Length of offset measures at 10 m in m +l3=6.5;// Length of offset measures at 20 m in m +l4=6.8;// Length of offset measures at 30 m in m +l5=5.9;// Length of offset measures at 40 m in m +l6=5.9;// Length of offset measures at 50 m in m +l7=6.2;// Length of offset measures at 60 m in m +l8=7.0;// Length of offset measures at 70 m in m +l9=6.6;// Length of offset measures at 80 m in m +l10=5.8;// Length of offset measures at 90 m in m +l11=4.2;// Length of offset measures at 100 m in m + +// (a) Average ordinate rule +N=n+1;// Number of ordinates +S=l1+l2+l3+l4+l5+l6+l7+l8+l9+l10+l11;// Sum of offsets in m +A=S/N*l;// Area in sq. m +disp(A,"(a) Area in sq. m"); + +// (b) Trapezoidal rule +i=10;// Offset interval in m +A=i*(((l1+l11)/2)+l2+l3+l4+l5+l6+l7+l8+l9+l10);// Area in sq. m +disp(A,"(b) Area in sq. m"); + +// (c) Parabolic rule +i=10;// Offset interval in m +A=(1/3*i)*(l1+l11+(4*(l2+l4+l6+l8+l10))+(2*(l3+l5+l7+l9)));// Area in sq. m +disp(A,"(c) Area in sq. m"); diff --git a/3908/CH8/EX8.6/Ex8_6.sce b/3908/CH8/EX8.6/Ex8_6.sce new file mode 100644 index 000000000..dbed830a6 --- /dev/null +++ b/3908/CH8/EX8.6/Ex8_6.sce @@ -0,0 +1,30 @@ +//Example 8_6 +clc; +clear; +close; + +//Given data : +n=8;// Number of sections +l=12;// Length of each section in m +l1=0;// Length of offset in m +l2=5.2;// Length of offset in m +l3=7.4;// Length of offset in m +l4=8.6;// Length of offset in m +l5=7.9;// Length of offset in m +l6=8.5;// Length of offset in m +l7=8.2;// Length of offset in m +l8=9.1;// Length of offset in m +l9=7.6;// Length of offset in m + +// (a) Average ordinate rule +N=n+1;// Number of ordinates +S=l1+l2+l3+l4+l5+l6+l7+l8+l9;// Sum of ordinates in m +A=(S/N)*l*n;// Area in sq. m +disp(A,"(a) Area in sq. m"); + +// (b) Trapezoidal rule and Simpson's rule +A=l*(((l1+l9)/2)+l2+l3+l4+l5+l6+l7+l8);// Area in sq. m +disp(A,"(b) Trapezoidal rule - Area in sq. m"); +A=(1/3*l)*(l1+l9+(4*(l2+l4+l6+l8))+(2*(l3+l5+l7)));// Area in sq. m +disp(A," Simpson rule - Area in sq. m"); + diff --git a/3908/CH8/EX8.6/Example8_6.sce b/3908/CH8/EX8.6/Example8_6.sce new file mode 100644 index 000000000..dbed830a6 --- /dev/null +++ b/3908/CH8/EX8.6/Example8_6.sce @@ -0,0 +1,30 @@ +//Example 8_6 +clc; +clear; +close; + +//Given data : +n=8;// Number of sections +l=12;// Length of each section in m +l1=0;// Length of offset in m +l2=5.2;// Length of offset in m +l3=7.4;// Length of offset in m +l4=8.6;// Length of offset in m +l5=7.9;// Length of offset in m +l6=8.5;// Length of offset in m +l7=8.2;// Length of offset in m +l8=9.1;// Length of offset in m +l9=7.6;// Length of offset in m + +// (a) Average ordinate rule +N=n+1;// Number of ordinates +S=l1+l2+l3+l4+l5+l6+l7+l8+l9;// Sum of ordinates in m +A=(S/N)*l*n;// Area in sq. m +disp(A,"(a) Area in sq. m"); + +// (b) Trapezoidal rule and Simpson's rule +A=l*(((l1+l9)/2)+l2+l3+l4+l5+l6+l7+l8);// Area in sq. m +disp(A,"(b) Trapezoidal rule - Area in sq. m"); +A=(1/3*l)*(l1+l9+(4*(l2+l4+l6+l8))+(2*(l3+l5+l7)));// Area in sq. m +disp(A," Simpson rule - Area in sq. m"); + diff --git a/3908/CH8/EX8.7/Ex8_7.sce b/3908/CH8/EX8.7/Ex8_7.sce new file mode 100644 index 000000000..ff652bcae --- /dev/null +++ b/3908/CH8/EX8.7/Ex8_7.sce @@ -0,0 +1,47 @@ +//Example 8_7 +clc; +clear; +close; + +//Given data : +L1=5;// Length of each section of first part in m +L2=10;// Length of each section of second part in m +l1=2.5;// Length of offset in m +l2=3.8;// Length of offset in m +l3=8.4;// Length of offset in m +l4=7.6;// Length of offset in m +l5=10.5;// Length of offset in m +l6=9.3;// Length of offset in m +l7=5.8;// Length of offset in m +l8=7.8;// Length of offset in m +l9=6.9;// Length of offset in m +l10=8.4;// Length of offset in m + +// (a) Trapezoidal rule +A1=L1*(((l1+l6)/2)+l2+l3+l4+l5);// Area of first part in sq. m +A2=L2*(((l6+l10)/2)+l7+l8+l9);// Area of second part in sq. m +A=A1+A2;// Total area in sq. m +disp(A,"(a) Total area in sq. m"); + +// (b) Simpson's rule +A12=L1*(l1+l2)/2;// Area between first and second ordinates in sq. m +A26=(L1/3)*(l2+l6+(4*(l3+l5)+(2*l4)));// Area between second and six ordinates in sq. m +A610=(L2/3)*(l6+l10+(4*(l7+l9)+(2*l8)));// Area between second and six ordinates in sq. m +A=A12+A26+A610;// Total area in sq. m +disp(A,"(b) Total area in sq. m"); + +// (c) Coordinates method +x1=5,y0=l1; +x2=10,y1=l2; +x3=15,y2=l3; +x4=20,y3=l4; +x5=25,y4=l5; +x6=35,y5=l6; +x7=45,y6=l7; +x8=55,y7=l8; +x9=65,y8=l9; +x10=65,y9=l10; +X=(y0*x1)+(y1*x2)+(y2*x3)+(y3*x4)+(y4*x5)+(y5*x6)+(y6*x7)+(y7*x8)+(y8*x9)+(y9*x10); +Y=(x1*y9)+(x2*y3)+(x3*y4)+(x4*y5)+(x5*y6)+(x6*y7)+(x7*y8)+(x8*y9); +A=(1/2)*(X-Y);// Area in sq. m +disp(A,"(c) Area in sq. m"); diff --git a/3908/CH8/EX8.7/Example8_7.sce b/3908/CH8/EX8.7/Example8_7.sce new file mode 100644 index 000000000..ff652bcae --- /dev/null +++ b/3908/CH8/EX8.7/Example8_7.sce @@ -0,0 +1,47 @@ +//Example 8_7 +clc; +clear; +close; + +//Given data : +L1=5;// Length of each section of first part in m +L2=10;// Length of each section of second part in m +l1=2.5;// Length of offset in m +l2=3.8;// Length of offset in m +l3=8.4;// Length of offset in m +l4=7.6;// Length of offset in m +l5=10.5;// Length of offset in m +l6=9.3;// Length of offset in m +l7=5.8;// Length of offset in m +l8=7.8;// Length of offset in m +l9=6.9;// Length of offset in m +l10=8.4;// Length of offset in m + +// (a) Trapezoidal rule +A1=L1*(((l1+l6)/2)+l2+l3+l4+l5);// Area of first part in sq. m +A2=L2*(((l6+l10)/2)+l7+l8+l9);// Area of second part in sq. m +A=A1+A2;// Total area in sq. m +disp(A,"(a) Total area in sq. m"); + +// (b) Simpson's rule +A12=L1*(l1+l2)/2;// Area between first and second ordinates in sq. m +A26=(L1/3)*(l2+l6+(4*(l3+l5)+(2*l4)));// Area between second and six ordinates in sq. m +A610=(L2/3)*(l6+l10+(4*(l7+l9)+(2*l8)));// Area between second and six ordinates in sq. m +A=A12+A26+A610;// Total area in sq. m +disp(A,"(b) Total area in sq. m"); + +// (c) Coordinates method +x1=5,y0=l1; +x2=10,y1=l2; +x3=15,y2=l3; +x4=20,y3=l4; +x5=25,y4=l5; +x6=35,y5=l6; +x7=45,y6=l7; +x8=55,y7=l8; +x9=65,y8=l9; +x10=65,y9=l10; +X=(y0*x1)+(y1*x2)+(y2*x3)+(y3*x4)+(y4*x5)+(y5*x6)+(y6*x7)+(y7*x8)+(y8*x9)+(y9*x10); +Y=(x1*y9)+(x2*y3)+(x3*y4)+(x4*y5)+(x5*y6)+(x6*y7)+(x7*y8)+(x8*y9); +A=(1/2)*(X-Y);// Area in sq. m +disp(A,"(c) Area in sq. m"); diff --git a/3908/CH8/EX8.8/Ex8_8.sce b/3908/CH8/EX8.8/Ex8_8.sce new file mode 100644 index 000000000..353a25df8 --- /dev/null +++ b/3908/CH8/EX8.8/Ex8_8.sce @@ -0,0 +1,29 @@ +//Example 8_8 +clc; +clear; +close; + +//Given data : +l1=3.4;// Length of offset in m +l2=6.2;// Length of offset in m +l3=6.8;// Length of offset in m +l4=5.9;// Length of offset in m +l5=8.4;// Length of offset in m +l6=6.2;// Length of offset in m +l7=10.3;// Length of offset in m +l8=11.5// Length of offset in m +l9=9.8;// Length of offset in m +l10=8.5;// Length of offset in m +x1=0;// Chainage in m +x2=7;// Chainage in m +x3=12;// Chainage in m +x4=18;// Chainage in m +x5=25;// Chainage in m +x6=32;// Chainage in m +x7=42;// Chainage in m +x8=48;// Chainage in m +x9=55;// Chainage in m +x10=65;// Chainage in m +// Area of trapezium = (sum of adjacent ordinates/2)*distance between ordinates +A=((l1+l2)/2*(x2-x1))+((l2+l3)/2*(x3-x2))+((l3+l4)/2*(x4-x3))+((l4+l5)/2*(x5-x4))+((l5+l6)/2*(x6-x5))+((l6+l7)/2*(x7-x6))+((l7+l8)/2*(x8-x7))+((l8+l9)/2*(x9-x8))+((l9+l10)/2*(x10-x9));// Area in sq. m +disp(A,"Area in sq. m"); diff --git a/3908/CH8/EX8.8/Example8_8.sce b/3908/CH8/EX8.8/Example8_8.sce new file mode 100644 index 000000000..353a25df8 --- /dev/null +++ b/3908/CH8/EX8.8/Example8_8.sce @@ -0,0 +1,29 @@ +//Example 8_8 +clc; +clear; +close; + +//Given data : +l1=3.4;// Length of offset in m +l2=6.2;// Length of offset in m +l3=6.8;// Length of offset in m +l4=5.9;// Length of offset in m +l5=8.4;// Length of offset in m +l6=6.2;// Length of offset in m +l7=10.3;// Length of offset in m +l8=11.5// Length of offset in m +l9=9.8;// Length of offset in m +l10=8.5;// Length of offset in m +x1=0;// Chainage in m +x2=7;// Chainage in m +x3=12;// Chainage in m +x4=18;// Chainage in m +x5=25;// Chainage in m +x6=32;// Chainage in m +x7=42;// Chainage in m +x8=48;// Chainage in m +x9=55;// Chainage in m +x10=65;// Chainage in m +// Area of trapezium = (sum of adjacent ordinates/2)*distance between ordinates +A=((l1+l2)/2*(x2-x1))+((l2+l3)/2*(x3-x2))+((l3+l4)/2*(x4-x3))+((l4+l5)/2*(x5-x4))+((l5+l6)/2*(x6-x5))+((l6+l7)/2*(x7-x6))+((l7+l8)/2*(x8-x7))+((l8+l9)/2*(x9-x8))+((l9+l10)/2*(x10-x9));// Area in sq. m +disp(A,"Area in sq. m"); diff --git a/3908/CH8/EX8.9/Ex8_9.sce b/3908/CH8/EX8.9/Ex8_9.sce new file mode 100644 index 000000000..4400ca47d --- /dev/null +++ b/3908/CH8/EX8.9/Ex8_9.sce @@ -0,0 +1,18 @@ +//Example 8_9 +clc; +clear; +close; + +//Given data : +IR=6.973;// Initial Reading in cm +FR=2.921;// Final Reading in cm +C=0; +N=1; +M=100;// in sq. cm +A=M*(FR-IR+(10*N)+C);// Area in sq. cm +// Scale is 1 cm = 100 m +// 1 sq. cm represents 100*100 sq. m of land area +s=100;// Scale in m +AG=A*s*s;// Area of ground in sq. m +AG=AG/10000;// Area of ground in hectares +disp(AG,"Area of ground in hectares"); diff --git a/3908/CH8/EX8.9/Example8_9.sce b/3908/CH8/EX8.9/Example8_9.sce new file mode 100644 index 000000000..4400ca47d --- /dev/null +++ b/3908/CH8/EX8.9/Example8_9.sce @@ -0,0 +1,18 @@ +//Example 8_9 +clc; +clear; +close; + +//Given data : +IR=6.973;// Initial Reading in cm +FR=2.921;// Final Reading in cm +C=0; +N=1; +M=100;// in sq. cm +A=M*(FR-IR+(10*N)+C);// Area in sq. cm +// Scale is 1 cm = 100 m +// 1 sq. cm represents 100*100 sq. m of land area +s=100;// Scale in m +AG=A*s*s;// Area of ground in sq. m +AG=AG/10000;// Area of ground in hectares +disp(AG,"Area of ground in hectares"); diff --git a/3908/CH9/EX9.1/Ex9_1.sce b/3908/CH9/EX9.1/Ex9_1.sce new file mode 100644 index 000000000..27caf8377 --- /dev/null +++ b/3908/CH9/EX9.1/Ex9_1.sce @@ -0,0 +1,40 @@ +//Example 9_1 +clc; +clear; +close; + +//Given data : +A=100.2;// Point A +B=100.9;// Point B +C=100.4;// Point C +D=99.8;// Point D +p1=100.4;// Point of elevation 1 in m +p2=100.6;// Point of elevation 2 in m +p3=100.8;// Point of elevation 3 in m +p4=100.6;// Point of elevation 4 in m +p5=100.8;// Point of elevation 5 in m +s=15;// since 15 m square + +// On the line AB +d=B-A;// Difference in elevation in m +D1=s*(p1-A)/d;// Distance from A of point 1 in m +disp(D1,"Distance from A of point 1 in m"); +D2=s*(p2-A)/d;// Distance from A of point 2 in m +disp(D2,"Distance from A of point 2 in m"); +D3=s*(p3-A)/d;// Distance from A of point 3 in m +disp(D3,"Distance from A of point 3 in m"); + +// On the line BC +d=B-C;// Difference in elevation in m +// 100.4 m is a point C only +if C==p1 then + disp("100.4 m is a point C only"); +else + D6=s*(p1-C)/d;// Distance from A of point 1 in m +disp(D6,"Distance from A of point 1 in m"); +end +D4=s*(p4-C)/d;// Distance from A of point 2 in m +disp(D4,"Distance from A of point 2 in m"); +D5=s*(p5-C)/d;// Distance from A of point 3 in m +disp(D5,"Distance from A of point 3 in m"); +// The answers vary due to round off error diff --git a/3908/CH9/EX9.1/Example9_1.sce b/3908/CH9/EX9.1/Example9_1.sce new file mode 100644 index 000000000..dcd6ab6a3 --- /dev/null +++ b/3908/CH9/EX9.1/Example9_1.sce @@ -0,0 +1,39 @@ +//Example 9_1 +clc; +clear; +close; + +//Given data : +A=100.2;// Point A +B=100.9;// Point B +C=100.4;// Point C +D=99.8;// Point D +p1=100.4;// Point of elevation 1 in m +p2=100.6;// Point of elevation 2 in m +p3=100.8;// Point of elevation 3 in m +p4=100.6;// Point of elevation 4 in m +p5=100.8;// Point of elevation 5 in m +s=15;// since 15 m square + +// On the line AB +d=B-A;// Difference in elevation in m +D1=s*(p1-A)/d;// Distance from A of point 1 in m +disp(D1,"Distance from A of point 1 in m"); +D2=s*(p2-A)/d;// Distance from A of point 2 in m +disp(D2,"Distance from A of point 2 in m"); +D3=s*(p3-A)/d;// Distance from A of point 3 in m +disp(D3,"Distance from A of point 3 in m"); + +// On the line BC +d=B-C;// Difference in elevation in m +// 100.4 m is a point C only +if C==p1 then + disp("100.4 m is a point C only"); +else + D6=s*(p1-C)/d;// Distance from A of point 1 in m +disp(D6,"Distance from A of point 1 in m"); +end +D4=s*(p4-C)/d;// Distance from A of point 2 in m +disp(D4,"Distance from A of point 2 in m"); +D5=s*(p5-C)/d;// Distance from A of point 3 in m +disp(D5,"Distance from A of point 3 in m"); diff --git a/3908/CH9/EX9.2/Ex9_2.sce b/3908/CH9/EX9.2/Ex9_2.sce new file mode 100644 index 000000000..fcfc86791 --- /dev/null +++ b/3908/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,44 @@ +//Example 9_2 +clc; +clear; +close; + +//Given data : +A=100.1;// Point A +B=100.6;// Point B +C=99.9;// Point C +D=100.6;// Point D +E=99.8;// Point E +F=100.4;// Point F +p1=100.3;// Point of elevation 1 in m +p2=100.5;// Point of elevation 2 in m +p3=100.2;// Point of elevation 3 in m +p4=100.4;// Point of elevation 4 in m +p5=100.2;// Point of elevation 5 in m +s=10;// since 10 m square + +// On the line AB +d=B-A;// Difference in elevation in m +D1=s*(p1-A)/d;// Distance from A of point 1 in m +disp(D1,"Distance from A of point 1 in m"); +D2=s*(p2-A)/d;// Distance from A of point 2 in m +disp(D2,"Distance from A of point 2 in m"); + +// On the line CD +d=D-C;// Difference in elevation in m +D3=s*(p3-C)/d;// Distance from C of point 3 in m +disp(D3,"Distance from C of point 3 in m"); +D4=s*(p4-C)/d;// Distance from C of point 4 in m +disp(D4,"Distance from C of point 4 in m"); + +// On the line EF +d=F-E;// Difference in elevation in m +if F==p4 then + disp("The 100.4 contour is a point F"); +else + D6=s*(p4-A)/d;// Distance from C of point 6 in m +disp(D6,"Distance from C of point 6 in m"); +end +D5=s*(p5-E)/d;// Distance from C of point 5 in m +disp(D5,"Distance from C of point 5 in m"); +// The answers vary due to round off error diff --git a/3908/CH9/EX9.2/Example9_2.sce b/3908/CH9/EX9.2/Example9_2.sce new file mode 100644 index 000000000..30194eaf3 --- /dev/null +++ b/3908/CH9/EX9.2/Example9_2.sce @@ -0,0 +1,43 @@ +//Example 9_2 +clc; +clear; +close; + +//Given data : +A=100.1;// Point A +B=100.6;// Point B +C=99.9;// Point C +D=100.6;// Point D +E=99.8;// Point E +F=100.4;// Point F +p1=100.3;// Point of elevation 1 in m +p2=100.5;// Point of elevation 2 in m +p3=100.2;// Point of elevation 3 in m +p4=100.4;// Point of elevation 4 in m +p5=100.2;// Point of elevation 5 in m +s=10;// since 10 m square + +// On the line AB +d=B-A;// Difference in elevation in m +D1=s*(p1-A)/d;// Distance from A of point 1 in m +disp(D1,"Distance from A of point 1 in m"); +D2=s*(p2-A)/d;// Distance from A of point 2 in m +disp(D2,"Distance from A of point 2 in m"); + +// On the line CD +d=D-C;// Difference in elevation in m +D3=s*(p3-C)/d;// Distance from C of point 3 in m +disp(D3,"Distance from C of point 3 in m"); +D4=s*(p4-C)/d;// Distance from C of point 4 in m +disp(D4,"Distance from C of point 4 in m"); + +// On the line EF +d=F-E;// Difference in elevation in m +if F==p4 then + disp("The 100.4 contour is a point F"); +else + D6=s*(p4-A)/d;// Distance from C of point 6 in m +disp(D6,"Distance from C of point 6 in m"); +end +D5=s*(p5-E)/d;// Distance from C of point 5 in m +disp(D5,"Distance from C of point 5 in m"); -- cgit