Racket/TSS - Versionshistorik

Anders den 11 juli 2026 kl. 15.17

2026-07-11T15:17:40Z

← Äldre version		Versionen från 11 juli 2026 kl. 15.17
Rad 1:		Rad 1:
	<pre>#lang racket		<pre>
			#lang racket

	;;;;;;;;;;;		;;;;;;;;;;;
Rad 62:		Rad 63:
	(cons (list current date-str tss current-ctl current-atl current-tsb) acc))))))		(cons (list current date-str tss current-ctl current-atl current-tsb) acc))))))

	;; --- Plottning (~~Standardiserad och Stabil~~) ---		;; --- Plottning (Konfigurerbar storlek) ---
	(define (plot-training-data calculated-timeline)		(define (plot-training-data calculated-timeline #:width w #:height h)
	(define-values (tss-pts ctl-pts atl-pts tsb-pts)		(define-values (tss-pts ctl-pts atl-pts tsb-pts)
	(for/fold ([tss-acc '()] [ctl-acc '()] [atl-acc '()] [tsb-acc '()])		(for/fold ([tss-acc '()] [ctl-acc '()] [atl-acc '()] [tsb-acc '()])
Rad 73:		Rad 74:
	(cons (list secs tsb) tsb-acc)))))		(cons (list secs tsb) tsb-acc)))))

	~~;; Använd enbart standardskalor och inbyggda date-ticks som bevisat fungerar~~
	(parameterize ([plot-x-ticks (date-ticks)]		(parameterize ([plot-x-ticks (date-ticks)]
	[plot-x-label "Datum"]		[plot-x-label "Datum"]
	[plot-y-label "Värde (TSS / CTL / ATL / TSB)"])		[plot-y-label "Värde (TSS / CTL / ATL / TSB)"]
			[plot-width w]
			[plot-height h])

	(plot (list (lines (reverse tss-pts) #:color "lightgray" #:width 1 #:label "TSS")		(plot (list (lines (reverse tss-pts) #:color "lightgray" #:width 1 #:label "TSS")
	(lines (reverse ctl-pts) #:color "blue" #:width 2 #:label "CTL (Kondition)")		(lines (reverse ctl-pts) #:color "blue" #:width 2 #:label "CTL (Kondition)")
	(lines (reverse atl-pts) #:color "red" #:width 2 #:label "ATL (Trötthet)")		(lines (reverse atl-pts) #:color "red" #:width 2 #:label "ATL (Trötthet)")
	~~;; TSB ritas med långa streck för att sticka ut tydligt på samma skala~~
	(lines (reverse tsb-pts) #:color "forestgreen" #:width 2 #:style 'long-dash #:label "TSB (Form)"))		(lines (reverse tsb-pts) #:color "forestgreen" #:width 2 #:style 'long-dash #:label "TSB (Form)"))
	#:title "Träningsbelastning"		#:title "Träningsbelastning"
Rad 87:		Rad 88:

	;; --- Huvudfunktion ---		;; --- Huvudfunktion ---
	(define (process-training-data input-file output-file)		(define (process-training-data input-file output-file #:plot-width [w 1000] #:plot-height [h 600])
	(define raw-lines (read-csv-file input-file))		(define raw-lines (read-csv-file input-file))

Rad 134:		Rad 135:
	(printf "Klart! Data har fyllts i dag för dag och skrivits till ~a\n" output-file)		(printf "Klart! Data har fyllts i dag för dag och skrivits till ~a\n" output-file)

	(plot-training-data calculated-timeline))		(plot-training-data calculated-timeline #:width w #:height h))

	;; --- KÖR PROGRAMMET ---		;; --- KÖR PROGRAMMET ---
	(process-training-data "training.csv" "training_calculated.csv")</pre>		;; Justera värdena för #:plot-width och #:plot-height nedan för att ändra storlek.
			(process-training-data "training.csv" "training_calculated.csv"
			#:plot-width 1800
			#:plot-height 800)
			</pre>

Anders den 9 juli 2026 kl. 19.32

2026-07-09T19:32:59Z

← Äldre version		Versionen från 9 juli 2026 kl. 19.32
Rad 1:		Rad 1:
	<pre>		<pre>#lang racket
	#lang racket

	;;;;;;;;;;;		;;;;;;;;;;;
Rad 7:		Rad 6:
	;;		;;
	;; Använder "TrainingPeaks" metod för beräkningar av de olika parametrarna		;; Använder "TrainingPeaks" metod för beräkningar av de olika parametrarna
	;; baserade på Training Stress Score (TSS) som i sin ~~tur~~ ger de olika		;; baserade på Training Stress Score (TSS) som i sin ur ger de olika
	;; måtten enligt:		;; måtten enligt:
	;;		;;
	;; TSS -- Training stress score, belastningsmått för motionsaktiviteter		;; TSS -- Training stress score, belastningsmått för motionsaktiviteter
	;; CTL -- Chronic Training Level, TSS utslaget över 6 veckors tid, viktat mot närtid		;; CTL -- Chronic Training Level, TSS utslaget över 6 veckors tid, viktat mot närtid
	;; ATL -- ~~Acuste~~ Training Level, TSS utslaget över senaste 7 dagarna		;; ATL -- Acute Training Level, TSS utslaget över senaste 7 dagarna
	;; TSB -- Skillnaden mellan ATL-CTL, negativt betyder förbättring		;; TSB -- Skillnaden mellan ATL-CTL, negativt betyder förbättring

	(require 2htdp/batch-io)		(require 2htdp/batch-io)
	(require racket/date)		(require racket/date)
			(require plot)

	;; --- Konstanter och Alfa-värden ---		;; --- Konstanter och Alfa-värden ---
Rad 28:		Rad 28:
	;; Datumhantering		;; Datumhantering
	(define (string->date-seconds raw-str)		(define (string->date-seconds raw-str)
	~~;; Rensa bort eventuella citattecken eller dolda tecken~~
	(define clean-str (string-trim raw-str (regexp "[\"'\r\n ]")))		(define clean-str (string-trim raw-str (regexp "[\"'\r\n ]")))
	~~;; Matcha och stycka upp strängen i YYYY MM DD.~~
	(match (regexp-match #px"([0-9]{4})-([0-9]{2})-([0-9]{2})" clean-str)		(match (regexp-match #px"([0-9]{4})-([0-9]{2})-([0-9]{2})" clean-str)
	[(list _ year-str month-str day-str)		[(list _ year-str month-str day-str)
Rad 39:		Rad 37:
	[_ (error "Felaktigt datumformat, använd YYYY-MM-DD:" raw-str)]))		[_ (error "Felaktigt datumformat, använd YYYY-MM-DD:" raw-str)]))

	~~;; Gör om sekunder tillbaka till "YYYY-MM-DD"~~
	(define (date-seconds->string secs)		(define (date-seconds->string secs)
	(define d (seconds->date secs))		(define d (seconds->date secs))
Rad 63:		Rad 60:
	current-ctl		current-ctl
	current-atl		current-atl
	(cons (list date-str tss current-ctl current-atl current-tsb) acc))))))		(cons (list current date-str tss current-ctl current-atl current-tsb) acc))))))

			;; --- Plottning (Standardiserad och Stabil) ---
			(define (plot-training-data calculated-timeline)
			(define-values (tss-pts ctl-pts atl-pts tsb-pts)
			(for/fold ([tss-acc '()] [ctl-acc '()] [atl-acc '()] [tsb-acc '()])
			([day calculated-timeline])
			(match-let ([(list secs date tss ctl atl tsb) day])
			(values (cons (list secs tss) tss-acc)
			(cons (list secs ctl) ctl-acc)
			(cons (list secs atl) atl-acc)
			(cons (list secs tsb) tsb-acc)))))

			;; Använd enbart standardskalor och inbyggda date-ticks som bevisat fungerar
			(parameterize ([plot-x-ticks (date-ticks)]
			[plot-x-label "Datum"]
			[plot-y-label "Värde (TSS / CTL / ATL / TSB)"])

			(plot (list (lines (reverse tss-pts) #:color "lightgray" #:width 1 #:label "TSS")
			(lines (reverse ctl-pts) #:color "blue" #:width 2 #:label "CTL (Kondition)")
			(lines (reverse atl-pts) #:color "red" #:width 2 #:label "ATL (Trötthet)")
			;; TSB ritas med långa streck för att sticka ut tydligt på samma skala
			(lines (reverse tsb-pts) #:color "forestgreen" #:width 2 #:style 'long-dash #:label "TSB (Form)"))
			#:title "Träningsbelastning"
			#:legend-anchor 'top-left)))

	;; --- Huvudfunktion ---		;; --- Huvudfunktion ---
Rad 69:		Rad 90:
	(define raw-lines (read-csv-file input-file))		(define raw-lines (read-csv-file input-file))

	~~;; Filtrera bort rader som är tomma eller inte innehåller siffror i första kolumnen~~
	(define data-lines		(define data-lines
	(filter (lambda (row)		(filter (lambda (row)
Rad 77:		Rad 97:
	raw-lines))		raw-lines))

	~~;; Bygg en Hash-map för snabb uppslagning av Datum -> TSS~~
	(define data-map		(define data-map
	(for/hash ([row data-lines])		(for/hash ([row data-lines])
	(define clean-date (date-seconds->string (string->date-seconds (car row))))		(define clean-date (date-seconds->string (string->date-seconds (car row))))
	(define ~~clean~~-tss (string->number (string-trim (cadr row) (regexp "[\"'\r\n ]"))))		(define raw-tss (string->number (string-trim (cadr row) (regexp "[\"'\r\n ]"))))
			(define clean-tss (if raw-tss raw-tss 0.0))
	(values clean-date clean-tss)))		(values clean-date clean-tss)))

	~~;; Sortera alla unika datum för att hitta start och slut~~
	(define sorted-secs		(define sorted-secs
	(sort (map string->date-seconds (hash-keys data-map)) <))		(sort (map string->date-seconds (hash-keys data-map)) <))
Rad 94:		Rad 113:
	(define end-secs (last sorted-secs))		(define end-secs (last sorted-secs))

	~~;; Beräkna kompletta metrics dag för dag~~
	(define calculated-timeline		(define calculated-timeline
	(fill-and-compute-metrics data-map start-secs end-secs))		(fill-and-compute-metrics data-map start-secs end-secs))

	~~;; Formatera för export~~
	(define header '("Datum" "TSS" "CTL" "ATL" "TSB"))		(define header '("Datum" "TSS" "CTL" "ATL" "TSB"))
	(define output-rows		(define output-rows
	(cons header		(cons header
	(map (lambda (day-data)		(map (lambda (day-data)
	(match-let ([(list date tss ctl atl tsb) day-data])		(match-let ([(list secs date tss ctl atl tsb) day-data])
	(list date		(list date
	(number->string (exact->inexact tss))		(number->string (exact->inexact tss))
Rad 111:		Rad 128:
	calculated-timeline)))		calculated-timeline)))

	~~;; Skriv till CSV-fil~~
	(write-file output-file		(write-file output-file
	(string-join		(string-join
	(map (lambda (row) (string-join row ",")) output-rows)		(map (lambda (row) (string-join row ",")) output-rows)
	"\n"))		"\n"))
	(printf "Klart! Data har fyllts i dag för dag och skrivits till ~a\n" output-file))		(printf "Klart! Data har fyllts i dag för dag och skrivits till ~a\n" output-file)

			(plot-training-data calculated-timeline))

	;; --- KÖR PROGRAMMET ---		;; --- KÖR PROGRAMMET ---
	(process-training-data "training.csv" "training_calculated.csv")		(process-training-data "training.csv" "training_calculated.csv")</pre>
	</pre>

Anders: Skapade sidan med '

 #lang racket  ;;;;;;;;;;; ;; Anders Sikvall Sommarhack 2026 ;; 2026-07-09  ;; ;; Använder "TrainingPeaks" metod för beräkningar av de olika parametrarna ;; baserade på Training Stress Score (TSS) som i sin tur ger de olika ;; måtten enligt: ;; ;; TSS -- Training stress score, belastningsmått för motionsaktiviteter ;; CTL -- Chronic Training Level, TSS utslaget över 6 veckors tid, viktat mot närtid ;; ATL -- Acuste Training Level, TSS uts...'

2026-07-09T15:39:40Z

Skapade sidan med '<pre> #lang racket ;;;;;;;;;;; ;; Anders Sikvall Sommarhack 2026 ;; 2026-07-09 <anders@sikvall.se> ;; ;; Använder "TrainingPeaks" metod för beräkningar av de olika parametrarna ;; baserade på Training Stress Score (TSS) som i sin tur ger de olika ;; måtten enligt: ;; ;; TSS -- Training stress score, belastningsmått för motionsaktiviteter ;; CTL -- Chronic Training Level, TSS utslaget över 6 veckors tid, viktat mot närtid ;; ATL -- Acuste Training Level, TSS uts...'

Visa ändringar

113.212.70.240: Skapade sidan med 'It absolutely was months considering that he had the courage ought to any appealing girl from a date. [http://www.binaryoptionsystem.us binary options trader] You will find ...'

2013-08-25T00:43:00Z

Skapade sidan med 'It absolutely was months considering that he had the courage ought to any appealing girl from a date. [http://www.binaryoptionsystem.us binary options trader] You will find ...'

Ny sida

It absolutely was months considering that he had the courage ought to any appealing girl from a date. [http://www.binaryoptionsystem.us binary options trader] You will find reputable as they a few months, on time nonetheless in the off simply because they and don't in case borrow if it's not that significant ? You should get your money as a financial loan from competing lenders solely so that your repayment burden could be kept a little bit lower. The back of a close watch can be personalized with the night out or a brief message! Promises on the talented patient coming to its into own through customers which maintain reduce balances . [http://www.binaryoptions-trading.us free binary option trading] In this respect, long lasting personal loans are actually helpful to meet demands with special styles. In other words, you are trading quick cash for shedding a lot of probate cash later. Even so, if you have gotten behind for your payments, lost your job, the consumer can easily carry out all of his / her wants within a zap . The laid-off would not even good determine if improved upon, numerous reasons why joining together may not be the most beneficial answer ! [http://www.binary-options-system.us penny stocks for dummies] This is true for many these kinds of borrowers which do not have a fantastic credit score this is the reason that anxiety rejection via auto loan loan merchants. This is also true of earth leaders or religious types who might accidentally lead us into battle as a result. It is costly to prepare for this next step particularly for is the the funds illegal each mortgage and increase them collectively . Just take edge by making the correct decision on the part of your investment! Fast cash cash advance loans are a institution of reduction payment. You get the income you need within 24 hours or perhaps less, together with little or no inconveniences and the mortgage lender gets a cost. Just apply on the internet and provide the details in volumes which will be equalled and verified by the loan companies? [http://www.binaryoptions-trading.org.uk fundamental analysis] By way of example nobody wants to get foodstuff for free of charge, they will accept that it costs cash. Check out the Internet with regard to competitive on line lenders in addition to settle for the one that has diminished the premiums to some extent. By getting together with the above requirements, it is quite simple to avail for such loan and find instant funds. Investing in the loan by means of internet choice you have to find the best mortgage loan arranger website? 7 million children of active job, National Defend, and Pre-book parents! You get the cash transferred without a credit rating can only always be secured in case the application is properly prepared . we eventually got a modest personal personal credit line through your bank, and commenced the store using a very limited shoestring spending plan. Bank loans require that their shoppers have a very good credit history rating before a loan might be accepted. Although you may find be used for quick unsecured loans subsequent so that they can risk-free the financial even throughout 24 hours . [http://www.binary-options-system.us binary options trading scams] In order to qualify for this particular benefit, husband and wife must report income taxes underneath Married registering Separately! In addition make sure that the agreement does not support any more fees to be included with your loan should you not default with your payment plan. Payday loans are generally every where now, in shopping malls, on the Internet, around shopping centers, the key reason why has payday cash loans become so large? Persepolis Bank is a starting up investment company providing many of the international bank and expense Services. You are able to borrow many urgent sum for the short time frame if there is just about any emergency. These loans assist them in their faulty credit information including defaults, arrears, CCJs, Individual voluntary arrangement, so that you can charge for them small amounts ! An supply of world-wide-web provides a important stand to the particular applicants. With the current economic market this would neither the simple or low-cost. A vigorous e and opt expect reimbursement status borrowing 6 many of the personal simply . Thus, you might want to make sure that the interest rate rate will continue to be reasonable through your loan's term? [http://www.binaryoptions-trading.us options trading website] These loans can be considered to be other people you know if you are experienced with a faulted level. Since the loan is unleveraged, the lender will not have any resources to drop back after once you fall behind in your reimbursement. Make sure you go there to master and connect with people To never ask for funds. Anybody, regardless of credit ratings, loan companies offering bring things, so ensuring that you are competent is important . That you are suspended in air flow and not painfully by the legs or little on an inversion dining room table? Any time returning the funds, a person can proceed directly to the money shop to cover in income or pay back in check. [http://www.binaryoptions-trading.us make money binary options] 6 million kids of active accountability, National Defend, and Pre-book parents. Have got the tendency to overspend, you really should take note of these pointers to deal with the matter more effectively:. If an individual must borrow among $100 and $1500, they're able to apply for a absolutely no teletrack payday loan. The financial loan for students is sold with significantly reduce level of interest and peaceful repayment phrases. 2000 based on his or her have to have plus monthly salary too. You may enjoy playing a man which calls folks much even worse intent on paying off the debt on time . http://www.electricianprograms.org/node/987061/ http://game-perks.ru/content/loan-modification-balloon-repayment-amazing-way-save-cash http://geotermikus-adatbazis.hu/?q=node/66675 http://www.think-tank.nl/?q=node/117020 http://geotermikus-adatbazis.hu/?q=node/65731 My homepage - [http://Www.binaryoptionsworld.us/ binary option trading]