JoyCog

Check-in [364c19db20]
Login
Home Timeline Branches Tags Tickets Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Finish programme. Can now supply function the two lists

- Add commentary for the state of the stack so I can understand what the
hell is going on
- Add examples and description
- Two functions. Extend work from last commit to make `ratios` which
given a number and a list creates the list of triples
- Figure out the main programme so can supply the two lists

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 364c19db2082fa5761d87920cdb50251f15ffb305db1269656cacd960d773570
User & Date: base@atomicules.co.uk 2014-02-07 23:42:13
Context
2014-02-07
23:56
Add README check-in: 0fcbc24244 user: base@atomicules.co.uk tags: origin/master, trunk
23:42
Finish programme. Can now supply function the two lists

- Add commentary for the state of the stack so I can understand what the
hell is going on
- Add examples and description
- Two functions. Extend work from last commit to make `ratios` which
given a number and a list creates the list of triples
- Figure out the main programme so can supply the two lists check-in: 364c19db20 user: base@atomicules.co.uk tags: origin/master, trunk

2014-02-06
13:07
Oooh, starting to get the hang of this. Ratios takes littlegears as arg

Biggears is still defined inline, but ratios is now a proper function. check-in: e2673caf01 user: base@atomicules.co.uk tags: origin/master, trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to joycog.joy. 

1

2





3










4
5









6



7
8
9
10
11
12
13
14
15
16
17
18

19


20
21
22
23
24










25
26
27

28
29
30
31
32
33
34
35


36

37
38
39
40
41
42
43
44


45
46
47

(* joycog.joy *)

(* Given two lists of gear sprockets will calculate all ratios *)
















DEFINE










	(* Sort Routine *)




	qsort1 == [ small ]
	          [ ]
	          [ uncons [[first] unary2 > ] split ]
	          [ [swap] dip cons concat ]
	          binrec;

	(* Constants *)

	(* littlegears is now the argument to ratios *)
	(* littlegears == [12 13 15 17 19 21 23 26]; *)


	biggears == [34 50];



	biggear1 == biggears first
	            1.0 *;
	biggear2 == biggears second
	            1.0 *;











	(* Ratios Routine *)


	ratios ==
	           dup
(* Ratios1 *)
	           dup
	           [biggear1 swap /] map
	           swap
	           zip
	           [biggear1 unitlist concat] map;




	           swap
(* Ratios2 *)
	           dup
	           [biggear2 swap /] map
	           swap
	           zip
	           [biggear2 unitlist concat] map;
(* Join *)


	           concat
(* sort *)
	           qsort1.


>
|
>
>
>
>
>

>
>
>
>
>
>
>
>
>
>


>
>
>
>
>
>
>
>
>

>
>
>







<

|
|

>
|
>
>

<
<
|
|
>
>
>
>
>
>
>
>
>
>

<

>
|
|
|
<
|
<
<
<
>
>

>
|
|
|
|
|
|
|
|
>
>
|
<
|

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

42
43
44
45
46
47
48
49
50


51
52
53
54
55
56
57
58
59
60
61
62
63

64
65
66
67
68

69



70
71
72
73
74
75
76
77
78
79
80
81
82
83
84

85

(* joycog.joy *)
(* ========== *)

(* Given a list of two chainset gears (I.e. a compact double) and then a list of cassette
   sprockets, will calculate all the ratios and sort them, reporting out the results as a
   list of triples; the first of the triple being the ratio, the second being the cassette
   sprocket and the third being the chainset gear.
*)


(* Key for the stack notation
   ==========================

   F = Float
   I = Integer
   [...] = List

*)

DEFINE

	(* Constants  *)
	(* =========  *)

	(* For reference, supplied as arguments to main programme *)

	(* littlegears == [12 13 15 17 19 21 23 26]; *)
	(* biggears == [34 50]; *)


	(* Sort Routine *)
	(* ============ *)

	(* From: https://pinboard.in/u:atomicules/b:f83913dc1fd8 *)

	qsort1 == [ small ]
	          [ ]
	          [ uncons [[first] unary2 > ] split ]
	          [ [swap] dip cons concat ]
	          binrec;



	(* Ratios *)
	(* ====== *)

	(* Example:
	   > 34 [12 13 15 17 19 21 23 26] ratios.
	   > [[2 12 34] [2 13 34] [2 15 34] [2 17 34] [1 19 34] ... ]
	*)



	ratios ==                              (* Stack: F [I...] *)
		dup                                (* Stack: F [I...] [I...] *)
		rotate                             (* Stack: [I...] [I...] F *)
		dup                                (* Stack: [I...] [I...] F F *)
		unitlist [swap /] concat           (* Stack: [I...] [I...] F [F swap /] *)
		rolldown swap                      (* Stack: [I...] F [I...] [F swap /] *)
		map                                (* Stack: [I...] F [F...] *)
		rolldown                           (* Stack: F [F...] [I...] *)
		zip                                (* Stack: F [[F I]...] *)
		swap                               (* Stack: [[F I]...] F *)
		unitlist [unitlist concat] concat  (* Stack: [[F I]...] [F unitlist concat] *)
		map;                               (* Stack: [[F I I]...] *)



	(* Main *)
	(* ==== *)

	(* Example:

	   > [34 50] [12 13 15 17 19 21 23 26] joycog.



	   > [[1.30769 26 34] [1.47826 23 34] [1.61905 21 34] [1.78947 19 34] ... ]
	*)

	joycog ==                              (* Stack: [I I] [I...] *)
		dup                                (* Stack: [I I] [I...] [I...] *)
		rolldown                           (* Stack: [I...] [I...] [I1 I2] *)
		dup                                (* Stack: [I...] [I...] [I1 I2] [I1 I2] *)
		first 1.0 *                        (* Stack: [I...] [I...] [I1 I2] I1 *)
		rolldown                           (* Stack: [I...] [I1 I2] I1 [I...] *)	
		ratios                             (* Stack: [I...] [I1 I2] [[F I I]...] *)
		rollup                             (* Stack: [[F I I]...] [I...] [I1 I2] *)
		second 1.0 *                       (* Stack: [[F I I]...] [I...] I2 *)
		swap                               (* Stack: [[F I I]...] I2 [I...] *)
		ratios                             (* Stack: [[F I I]...] [[F I I]...] *)
		concat                             (* Stack: [[F I I]...] *)

		qsort1.                            (* Stack: [[F I I]...] *)

This page was generated in about 0.012s by Fossil 2.23 [47362306a7] 2023-11-01 18:56:47