


JL_PARAM_GET( )     UNIX Programmer's Manual      JL_PARAM_GET( )



̾

     jl_param_get()      Ѵѥ᡼Ф
     jl_param_get_e()    Ѵѥ᡼Ф

     jl_param_set()      Ѵѥ᡼ꤹ롣
     jl_param_set_e()    Ѵѥ᡼ꤹ롣



     #include "jllib.h"

     int
     jl_param_get(buf, param)
     struct wnn_buf *buf;          /* Хåե */
     struct wnn_param *param;      /* ѥ᡼ */

     int
     jl_param_get_e(env, para)
     struct wnn_env *env;          /* Ķ */
     struct wnn_param *para;       /* ѥ᡼ */

     int
     jl_param_set(buf, param)
     struct wnn_buf *buf;          /* Хåե */
     struct wnn_param *param;      /* ѥ᡼ */

     int
     jl_param_set_e(env, para)
     struct wnn_env *env;          /* Ķ */
     struct wnn_param *para;       /* ѥ᡼ */

     struct wnn_param {
             int     n;      /* ()ʸϤΣ */
             int     nsho;   /* ʸξʸκ */
             int     p1;     /* ٤Υѥ᡼ */
             int     p2;     /* ʸĹΥѥ᡼ */
             int     p3;     /* ĹΥѥ᡼ */
             int     p4;     /* ȤäӥåȤΥѥ᡼ */
             int     p5;     /* Υѥ᡼ */
             int     p6;     /* ʸɾͤΥѥ᡼ */
             int     p7;     /* ʸĹΥѥ᡼ */
             int     p8;     /* ʸΥѥ᡼ */
             int     p9;     /* ʻ  */
             int     p10;    /* ʻ ʤ */
             int     p11;    /* ʻ ѿ */
             int     p12;    /* ʻ  */
             int     p13;    /* ʻ ĳ̤ */
             int     p14;    /* ʻ ° */
             int     p15;    /* ʻ ̤ */
             };

ǽ

     jl_param_get ϡХåե buf δĶѴѥ᡼
     param ˼Ф jl_param_get_e ϡĶ env Фƥѥ
     ᡼ param ˼Ф

     jl_param_set ϡХåե buf δĶѴѥ᡼ param
     ꤹ롣 jl_param_set_e ϡĶ env Ѵѥ᡼
     param ꤹ롣

      <ʸɾ> =p1 * <> +
                        p2 * <ʸĹ> +
                        p3 * <ΩĹ> +
                        p4 * <Ȥäӥå> +
                        p5 * <ץ饤ƥ>

      <ʸɾ> =p6 * <ʸɾͤι> / <ʸ> +
                        p7 * <ʸĹ> +
                        p8 * <ʸ> +

      ɾͤᡢѴν̤ꤹ롣

      n, nsho  1 ʾǤʤФʤʤ
      p1, p2, p3, p4, p5, p6, p7, p8, p9,...,p15 ǤդǤ롣

꥿Х塼

     ｪλˤ 0 ֤
     ۾ｪλˤϡ-1 ֤




Printed 1/22/92         30 September 1991                       2









































































































