fornext1119

fornext1119

fornext1119

fornext1119

fornext1119

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

fornext1119

ヤコビの反復法

use constant N => 3;

my @a = ([9,2,1,1],[2,8,-2,1],[-1,-2,7,-2],[1,-1,-2,6]);
my @b = (20,16,8,17);
my @c = (0,0,0,0);

# ヤコビ反復法
jacobi(\@a, \@b, \@c);

fornext1119

Public Sub DeleteNames()
    For Each nm In ActiveWorkbook.Names
        Debug.Print nm.Name
        nm.Delete
    Next
End Sub

fornext1119

Project Euler を はじめから

４ヶ月もほったらかしになってたので、 復習がてら Problem 1 からやってみる。

F #

初項a、公差d の等差数列の初項から第n項 (末項 l＝a＋(n－1)d) までの和Snは...

let sn a lim =
  let n = lim / a in
  let l = a   * n in

fornext1119

Access で Oracle に ODBC 接続したときの文字化け

HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\KEY_OraClient11g_home1\NLS_LANG

に

JAPANESE_JAPAN.JA16SJIS

を設定する

JA16EUC, AL16UTF8 だと ODBCエラーになって接続できなかった

fornext1119

Set fs = CreateObject("Scripting.FileSystemObject")
file = WScript.Arguments(0)
If WScript.Arguments.Count > 1 Then
	dt = CDate(WScript.Arguments(1))
Else
	dt = Now
End If
 
With CreateObject("Shell.Application")
	With .NameSpace(fs.GetParentFolderName(file))