Skip to content

Instantly share code, notes, and snippets.

mk-mode komasaru

Block or report user

Report or block komasaru

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@komasaru
komasaru / calc_central_angle.rb
Created Aug 30, 2019
Ruby script to calculate a central angle betweetn 2 points on earth.
View calc_central_angle.rb
#! /usr/local/bin/ruby
#---------------------------------------------------------------------------------
# 2地点の緯度・経度から中心角を計算
# * 2地点の緯度(Beta)/経度(Lambda)/楕円体高(Height)から
# 地球中心から2地点への線分のなす中心角を求める。
# * CalcCentralAngle クラスが実行クラス
# * CentralAngle クラスが計算の本質部分
#
# Date Author Version
# 2019.08.29 mk-mode.com 1.00 新規作成
@komasaru
komasaru / calc_vincenty.rb
Created Aug 22, 2019
Ruby script to calculate geodesical values by Vincenty's formulae.
View calc_vincenty.rb
#! /usr/local/bin/ruby
#---------------------------------------------------------------------------------
#= Vincenty 法で、楕円体上の2点間の距離を計算したり、1点から指定の方位角・距離に
# ある点を求めたりする
# * CalcVincenty クラスは実行クラス。
# * Vincenty クラスが計算の本質部分。
# + 前提とする地球楕円体は GRS-80, WGS-84, Bessel を想定。
# 使用する地球楕円体は、インスタンス化時に指定可能(default: "GRS80")。
# * 地点1の緯度・経度(°)で Vincenty クラスのオブジェクトを生成後、
# + calc_dist(calc_distance, calc_inverse) メソッドを、地点2の緯度・経度を引数
@komasaru
komasaru / regression_multi_2d.f95
Created Aug 15, 2019
Fortran 95 source code to compute multiple regression equations.(2d)
View regression_multi_2d.f95
!****************************************************
! 重回帰式計算(説明(独立)変数2個、2次多項式モデル)
! * y = b0 + b1x1 + b2x2 + b3x1x2 + b4x1^2 + b5x2^2
! * y = b0 + b1x1 + b2x2 + b3x3 + b4x4 + b5x5
! (x3 = x1x2, x4 = x1^2, x5 = x2^2)
! ということ。
! date name version
! 2019.06.27 mk-mode.com 1.00 新規作成
!
@komasaru
komasaru / regression_multi_2d.rb
Created Aug 15, 2019
Ruby script to calculate a multiple regression function.(2d)
View regression_multi_2d.rb
#! /usr/local/bin/ruby
#*********************************************
# Ruby script to calculate a multiple regression function(2D).
# * y = b0 + b1x1 + b2x2 + b3x1x2 + b4x1^2 + b5x2^2
# これは、
# y = b0 + b1x1 + b2x2 + b3x3 + b4x4 + b5x5
# (但し、 x3 = x1x2, x4 = x1^2, x5 = x2^2)
# と同じ。
#*********************************************
#
@komasaru
komasaru / regression_multi_v2.f95
Created Aug 14, 2019
Fortran 95 source code to compute multiple regression equations.(v2)
View regression_multi_v2.f95
!****************************************************
! 重回帰式計算(説明(独立)変数2個限定)
! * 一旦、平方和/積和の行列を作成してから連立方程式
! を解くのではなく、直接、偏微分後の連立方程式を解く。
! date name version
! 2019.06.01 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2018 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve_exp_e.f95
Created May 8, 2019
Fortran 95 source code to calculate a simple regression curve.(exp_e)
View regression_curve_exp_e.f95
!****************************************************
! 単回帰曲線(e指数回帰)計算
! : y = a * exp(b * x)
! : 連立方程式は ガウスの消去法で解く
! date name version
! 2019.04.10 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve_exp.f95
Created May 8, 2019
Fortran 95 source code to calculate a simple regression curve.(exp)
View regression_curve_exp.f95
!****************************************************
! 単回帰曲線(指数(ab指数)回帰)計算
! : y = a * b**x
! : 連立方程式は ガウスの消去法で解く
! date name version
! 2019.04.10 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve_pow.f95
Created May 8, 2019
Fortran 95 source code to calculate a simple regression curve.(power)
View regression_curve_pow.f95
!****************************************************
! 単回帰曲線(べき乗回帰)計算
! : y = a * x**b
! : 連立方程式は ガウスの消去法で解く
! date name version
! 2019.04.10 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve_frac.f95
Created May 8, 2019
Fortran 95 source code to calculate a simple regression curve.(frac)
View regression_curve_frac.f95
!****************************************************
! 単回帰曲線(分数(逆数)回帰)計算
! : y = a + b / x
! : 連立方程式は ガウスの消去法で解く
! date name version
! 2019.04.10 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve_ln.f95
Created May 8, 2019
Fortran 95 source code to calculate a simple regression curve.(ln)
View regression_curve_ln.f95
!****************************************************
! 単回帰曲線(自然対数回帰)計算
! : y = a + b * ln(x)
! : 連立方程式は ガウスの消去法で解く
! date name version
! 2019.04.10 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
You can’t perform that action at this time.