From 8c27c3f7d3d3b74d6a6751e4e46672e6773c1978 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Fri, 24 Dec 2021 20:46:41 +0100
Subject: Teilnehmerliste korrigieren

---
 buch/chapters/030-geometrie/trigo/3.bc | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'buch/chapters/030-geometrie')

diff --git a/buch/chapters/030-geometrie/trigo/3.bc b/buch/chapters/030-geometrie/trigo/3.bc
index 2ee9026..68f1583 100644
--- a/buch/chapters/030-geometrie/trigo/3.bc
+++ b/buch/chapters/030-geometrie/trigo/3.bc
@@ -258,3 +258,25 @@ c43
 c44
 c45
 
+s005=sqrt(0.5-0.5*c01)
+c005=sqrt(0.5+0.5*c01)
+
+s=s005/5
+c=sqrt(1-s*s)
+
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s=s-(((16*s*s-20)*s*s+5)*s-s005)/(((80*s*s-60)*s*s)+5)
+s001=s
+
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c=c-((((16*c*c-20)*c*c)+5)*c-c005)/(((80*c*c-60)*c*c)+5)
+c001=c
+
-- 
cgit v1.2.1