Commit | Line | Data |
---|---|---|
18e25fc9 | 1 | law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6 0 0 0.1 0.2 0.7 0.3 1 1 |
2 | set delta 0.01 | |
3 | 2dcvalue law1 1.5 x y dx dy | |
4 | set value [dval y] | |
5 | repeat 50 { | |
6cc6fc04 | 6 | movelaw law1 1.5 $value dy 0 |
7 | set value [expr $value + $delta] | |
8 | repaint | |
9 | } | |
18e25fc9 | 10 | copy law1 result |
6cc6fc04 | 11 | checklength result -l 3.3374712943009293 |