Skip to content

Commit

Permalink
Merge pull request #1 from YujiSODE/Y20180301
Browse files Browse the repository at this point in the history
Add files via upload
  • Loading branch information
YujiSODE authored Mar 1, 2018
2 parents e797b7b + 62dc816 commit 3d6d580
Showing 1 changed file with 0 additions and 15 deletions.
15 changes: 0 additions & 15 deletions regLines.tcl
Original file line number Diff line number Diff line change
@@ -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}]];
};

0 comments on commit 3d6d580

Please sign in to comment.