From b49b5888e833d178ec2e7f2755b59ba8001b1405 Mon Sep 17 00:00:00 2001 From: bansodanurag Date: Thu, 28 Mar 2019 12:44:51 +0530 Subject: Add files via upload chap_7_5_12 uploaded--- a.mo | 218 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 218 insertions(+) (limited to 'a.mo') diff --git a/a.mo b/a.mo index b8f1404..fc3f45f 100644 --- a/a.mo +++ b/a.mo @@ -1446,8 +1446,133 @@ package gsl end gsl_sf_bessel_Ynu_e; end chap_7_5_10; package chap_7_5_11 + function gsl_sf_bessel_Inu + input Real x; + input Real nu; + output Real y; + + external "C" y = gsl_sf_bessel_Inu(nu, x) annotation( + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Inu; + + + function gsl_sf_bessel_Inu_e + input Real x; + input Real nu; + output gsl.data_types.gsl_sf_result result; + output Integer y; + + external "C" y = gsl_sf_bessel_Inu_e(nu, x, result) annotation( + Include = "#include ", + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Inu_e; + + function gsl_sf_bessel_Inu_scaled + input Real x; + input Real nu; + output Real y; + + external "C" y = gsl_sf_bessel_Inu_scaled(nu, x) annotation( + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Inu_scaled; + + function gsl_sf_bessel_Inu_scaled_e + input Real x; + input Real nu; + output gsl.data_types.gsl_sf_result result; + output Integer y; + + external "C" y = gsl_sf_bessel_Inu_scaled_e(nu, x, result) annotation( + Include = "#include ", + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Inu_scaled_e; end chap_7_5_11; package chap_7_5_12 + //Irregular modified bessels function + function gsl_sf_bessel_Knu + input Real x; + input Real nu; + output Real y; + + external "C" y = gsl_sf_bessel_Knu(nu, x) annotation( + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Knu; + + + function gsl_sf_bessel_Knu_e + input Real x; + input Real nu; + output gsl.data_types.gsl_sf_result result; + output Integer y; + + external "C" y = gsl_sf_bessel_Knu_e(nu, x, result) annotation( + Include = "#include ", + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Knu_e; + + //Irregular modified bessels function + function gsl_sf_bessel_lnKnu + input Real x; + input Real nu; + output Real y; + + external "C" y = gsl_sf_bessel_lnKnu(nu, x) annotation( + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_lnKnu; + + + function gsl_sf_bessel_lnKnu_e + input Real x; + input Real nu; + output gsl.data_types.gsl_sf_result result; + output Integer y; + + external "C" y = gsl_sf_bessel_lnKnu_e(nu, x, result) annotation( + Include = "#include ", + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_lnKnu_e; + + + function gsl_sf_bessel_Knu_scaled + input Real x; + input Real nu; + output Real y; + + external "C" y = gsl_sf_bessel_Knu_scaled(nu, x) annotation( + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Knu_scaled; + + function gsl_sf_bessel_Knu_scaled_e + input Real x; + input Real nu; + output gsl.data_types.gsl_sf_result result; + output Integer y; + + external "C" y = gsl_sf_bessel_Knu_scaled_e(nu, x, result) annotation( + Include = "#include ", + Include = "#include ", + Library = "gsl", + Library = "gslcblas"); + end gsl_sf_bessel_Knu_scaled_e; + end chap_7_5_12; package chap_7_5_13 end chap_7_5_13; @@ -2452,8 +2577,101 @@ package gsl end gsl_sf_bessel_Ynu_e; end chap_7_5_10; package chap_7_5_11 + model gsl_sf_bessel_Inu + parameter Real x = 10; + parameter Real nu = 1.5; + Real y; + algorithm + y := gsl.Special_functions.chap_7_5_11.gsl_sf_bessel_Inu(nu, x); + end gsl_sf_bessel_Inu; + + + model gsl_sf_bessel_Inu_e + parameter Real x=10; + parameter Real nu=1.5; + gsl.data_types.gsl_sf_result result; + Integer y; + + algorithm + (result, y) := gsl.Special_functions.chap_7_5_11.gsl_sf_bessel_Inu_e(x, nu); + end gsl_sf_bessel_Inu_e; + + + + model gsl_sf_bessel_Inu_scaled + parameter Real x = 10; + parameter Real nu = 1.5; + Real y(start = 1); + algorithm + y := gsl.Special_functions.chap_7_5_11.gsl_sf_bessel_Inu_scaled(x, nu); + end gsl_sf_bessel_Inu_scaled; + + model gsl_sf_bessel_Inu_scaled_e + parameter Real x = 10; + parameter Real nu = 1.5; + gsl.data_types.gsl_sf_result result; + Integer y; + algorithm + (result, y) := gsl.Special_functions.chap_7_5_11.gsl_sf_bessel_Inu_scaled_e(x, nu); + end gsl_sf_bessel_Inu_scaled_e; end chap_7_5_11; package chap_7_5_12 + model gsl_sf_bessel_Knu + parameter Real x = 10; + parameter Real nu = 1.5; + Real y; + algorithm + y := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_Knu(nu, x); + end gsl_sf_bessel_Knu; + + + model gsl_sf_bessel_Knu_e + parameter Real x=10; + parameter Real nu=1.5; + gsl.data_types.gsl_sf_result result; + Integer y; + + algorithm + (result, y) := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_Knu_e(x, nu); + end gsl_sf_bessel_Knu_e; + + model gsl_sf_bessel_lnKnu + parameter Real x = 10; + parameter Real nu = 1.5; + Real y; + algorithm + y := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_lnKnu(nu, x); + end gsl_sf_bessel_lnKnu; + + + model gsl_sf_bessel_lnKnu_e + parameter Real x=10; + parameter Real nu=1.5; + gsl.data_types.gsl_sf_result result; + Integer y; + + algorithm + (result, y) := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_lnKnu_e(x, nu); + end gsl_sf_bessel_lnKnu_e; + + + model gsl_sf_bessel_Knu_scaled + parameter Real x = 10; + parameter Real nu = 1.5; + Real y(start = 1); + algorithm + y := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_Knu_scaled(x, nu); + end gsl_sf_bessel_Knu_scaled; + + model gsl_sf_bessel_Knu_scaled_e + parameter Real x = 10; + parameter Real nu = 1.5; + gsl.data_types.gsl_sf_result result; + Integer y; + algorithm + (result, y) := gsl.Special_functions.chap_7_5_12.gsl_sf_bessel_Knu_scaled_e(x, nu); + end gsl_sf_bessel_Knu_scaled_e; + end chap_7_5_12; package chap_7_5_13 end chap_7_5_13; -- cgit