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_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 / google_geocode.rb
Last active Jul 11, 2019
Ruby script to get a address or latitude, longitude with Google Geocoding API.
View google_geocode.rb
#*********************************************
# 住所から緯度・経度を取得する、又は、
# 緯度・経度から住所を取得する。
# ( by Google Geocode API )
#*********************************************
#
require 'json'
require 'net/http'
BASE_URL = "http://maps.googleapis.com/maps/api/geocode/json"
@komasaru
komasaru / regression_multi.rb
Last active Jun 26, 2019
Ruby script to calculate a multiple regression function.
View regression_multi.rb
#! /usr/local/bin/ruby
#*********************************************
# Ruby script to calculate a multiple regression function.
#*********************************************
#
class Array
def reg_multi(y)
# 元の数、変量内のサンプル数
e_size, s_size = self.size, y.size
# 以下の場合は例外スロー
@komasaru
komasaru / regression_curve_2.f95
Last active Jun 19, 2019
Fortran 95 source code to compute a simple regression curve(2d)(ver.2).
View regression_curve_2.f95
!****************************************************
! 単回帰曲線(2次回帰)計算
! : y = a + b * x + c * x^2
! : 連立方程式を ガウスの消去法で解く方法
!
! date name version
! 2019.03.17 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / regression_curve.f95
Last active Jun 19, 2019
Fortran 95 source code to compute a simple regression curve(2d).
View regression_curve.f95
!****************************************************
! 単回帰曲線(2次回帰)計算
! : y = a + b * x + c * x^2
!
! date name version
! 2019.03.17 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!****************************************************
!
@komasaru
komasaru / regression_line_2.f95
Last active Jun 13, 2019
Fortran 95 source code to calculate a simple linear regression line.(Ver.2)
View regression_line_2.f95
!****************************************************
! 単回帰直線計算
! : y = a + b * x
! : 連立方程式を ガウスの消去法で解く方法
!
! date name version
! 2018.12.18 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2018 mk-mode.com All Rights Reserved.
!****************************************************
@komasaru
komasaru / sle_lu.f95
Last active Jun 4, 2019
Fortran 95 source code to solve simultaneous equations by LU-decomposition(outer-product form).
View sle_lu.f95
!************************************************************
! 連立1次方程式の解法 ( LU 分解(外積形式ガウス法) )
!
! date name version
! 2019.03.13 mk-mode.com 1.00 新規作成
!
! Copyright(C) 2019 mk-mode.com All Rights Reserved.
!************************************************************
!
module const
You can’t perform that action at this time.