mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
12 lines
305 B
Plaintext
12 lines
305 B
Plaintext
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
|
|
set delta 0.007
|
|
2dcvalue law1 1.5 x y dx dy
|
|
set tvalue [dval dy]
|
|
repeat 100 {
|
|
movelaw law1 1.5 y $tvalue 1
|
|
set tvalue [expr $tvalue + $delta]
|
|
repaint
|
|
}
|
|
copy law1 result
|
|
checklength result -l 3.3254491241005475
|