From 62dc8164e57264804633b86db0a309279a185605 Mon Sep 17 00:00:00 2001
From: Yuji Sode <yuji.sode@gmail.com>
Date: Thu, 1 Mar 2018 14:33:06 +0900
Subject: [PATCH] Add files via upload

---
 regLines.tcl | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/regLines.tcl b/regLines.tcl
index f2092e5..7da6c87 100644
--- a/regLines.tcl
+++ b/regLines.tcl
@@ -368,18 +368,3 @@ namespace eval ::regLines {
 		return $fileName;
 	};
 };
-##!!!! test code
-#normal distribution
-proc F {X} {
-	set X [expr {double($X)}];
-	set pi 3.141592653589793;
-	return [expr {exp(-($X**2)/2)/sqrt(2*$pi)}];
-};
-set x {};set y {};
-set I [format %.4f -4.0];
-set dI [format %.4f 0.025];
-while {$I<(4.0+$dI)} {
-	lappend x $I;
-	lappend y [format %.4f [F $I]];
-	set I [format %.4f [expr {$I+$dI}]];
-};