|  |  | 
|  18.07.2013, 00:08 | #561 | |
| Advanced Member Регистрация: 17.10.2012 Адрес: в Москве 
					Сообщений: 262
				 |   Цитата: 
 Нужно изучить этот метод Дюкана. Стоящая вещь. Но уже не сегодня. И так вместо тренировки у компа весь вечер просидел. p.s. вообще-то странно, что никто не уделил должного внимания данным Хога. В сущности это как раз то место, где можно строить настоящий научный диспут,а не болтовню на ровном месте вроде классических холиваров, набивших оскомину. | |
|   |   | 
| Реклама | |
|  | |
|  18.07.2013, 00:28 | #562 | 
| Gold Member Регистрация: 22.11.2011 
					Сообщений: 1,651
				 |   
			
			Parn, а какая такая научная задача связана с измерением собственного веса?   Добавлено через 2 минуты А всякие измерения веса и высчитывание количества и состава съеденного считаю делом нездоровым. Надо жрать, что нравится, делать, что хочется, не делая гадостей другим - это и есть самый правильный и здоровый образ жизни. | 
|   |   | 
|  18.07.2013, 00:38 | #563 | |
| Platinum Member Регистрация: 22.07.2010 Адрес: Санкт-Петербург 
					Сообщений: 3,304
				 |   Цитата: 
 Очередной безумный код на R Код: > NewD<-data.frame(idx=1:150)
> NewD$dd<-diff(MyW$trend)
> head(NewD)
  idx       dd
1   1 -0.26625
2   2 -0.27074
3   3 -0.39444
4   4 -0.40849
5   5 -0.54048
6   6 -0.42860
> summary(lm2<-lm(dd~poly(idx,2),data=NewD))
Call:
lm(formula = dd ~ poly(idx, 2), data = NewD)
Residuals:
     Min       1Q   Median       3Q      Max 
-0.40364 -0.06568 -0.00043  0.07016  0.41622 
Coefficients:
               Estimate Std. Error t value Pr(>|t|)    
(Intercept)   -0.217006   0.009486 -22.875  < 2e-16 ***
poly(idx, 2)1  0.545405   0.116185   4.694 6.08e-06 ***
poly(idx, 2)2 -0.324738   0.116185  -2.795  0.00588 ** 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
Residual standard error: 0.1162 on 147 degrees of freedom
Multiple R-squared: 0.1688,	Adjusted R-squared: 0.1575 
F-statistic: 14.92 on 2 and 147 DF,  p-value: 1.256e-06 
> plot(dd~idx,data=NewD,xlab="День",ylab="Изменение в весе, кг",main="Динамика потери веса",cex=0.8)
> grid()
> lines(fitted(lm2),col="red",lwd=2)Может несколько смутить загиб параболы вниз справа, однако, фактически со 110 дня мы имеем чистый шум. Тренда уже нет, на что указывает рассчет F-статистики для данного диапазона. Еще какой-то код Код: > summary(lm2<-lm(dd~poly(idx,3),data=NewD[110:150,]))
Call:
lm(formula = dd ~ poly(idx, 3), data = NewD[110:150, ])
Residuals:
     Min       1Q   Median       3Q      Max 
-0.23608 -0.05608 -0.01039  0.08329  0.17194 
Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept)   -0.17964    0.01648 -10.901 4.14e-13 ***
poly(idx, 3)1  0.08390    0.10551   0.795    0.432    
poly(idx, 3)2 -0.14946    0.10551  -1.417    0.165    
poly(idx, 3)3  0.24645    0.10551   2.336    0.025 *  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
Residual standard error: 0.1055 on 37 degrees of freedom
Multiple R-squared: 0.1795,	Adjusted R-squared: 0.113 
F-statistic: 2.698 on 3 and 37 DF,  p-value: 0.05976 
> library(fitdistrplus)
> fitdist(NewD[110:150,2],"norm")
Fitting of the distribution ' norm ' by maximum likelihood 
Parameters:
       estimate Std. Error
mean -0.1796403 0.01728174
sd    0.1106571 0.01221554
> ks.test(NewD[110:150,2],"pnorm",-0.1796403,0.1106571)
	One-sample Kolmogorov-Smirnov test
data:  NewD[110:150, 2] 
D = 0.1067, p-value = 0.6989
alternative hypothesis: two-sidedТ.е. последние дни имеем нормально распределенный шум с матожиданием -180 грамм и стандартным отклонением 17 грамм. Переводя это в калории имеем недобор в 1620 ккал в день | |
| --------- DNF is not an option | ||
|   |   | 
|  18.07.2013, 00:46 | #564 | |
| Advanced Member Регистрация: 17.10.2012 Адрес: в Москве 
					Сообщений: 262
				 |   Цитата: 
        Наверное ты хотел спросить какая научная задача в похудании? Ничего, все ошибаются. Ты вообще в мире бываешь? Ну,в настоящем мире,а не в интернете? В курсе, что задача похудания реально важная,нужная и актуальная? Про ожирение и избыточный вес слыхал? Погугли немного - развиваться полезно. А вот когда станешь немного разбираться в теме, тогда оценишь результат Хога. У тебя есть какие-нибудь здравые идеи каким образом он заставил свой организм избавиться от этого веса? Избавиться от большого веса. Хорошая задача из биологии. Из хорошей, нужной и важной науки. Человек даже сырые данные для анализа выложил! В кои-то веки можно было предметно по обсуждать что-то реальное? Не решая адовых бесконечных задач типа дураков и дорог,а приземленное, наше,родное. Не ныть, не жаловаться, не обсуждать кому какие фильмы нравятся и кто не любит сериалы про суд. Не все эта тухлятина! Люди сидят и думают - что бы еще написать? Чтобы еще запостить? А тут интересная тема. Может в этом методе Дюкара есть ответ - как похудеть без стресса и хирурга? Ты вообще понимаешь что это такое - сбросить 35 кг?! Ты хоть когда-нибудь сбрасывал вес? Да и вообще задач в мире море, вот только ученые решают не их,а какую-то хрень на палочке разглядывают. Решение вопроса похудания ГОРАЗДО важнее, чем вся философская хрень, что плодится параноиками с корками. | |
|   |   | 
|  18.07.2013, 00:52 | #565 | 
| Gold Member Регистрация: 22.11.2011 
					Сообщений: 1,651
				 |   
			
			Parn, уважаемый, а Вы меня видели? С чего Вы взяли, что мне нужно похудеть, а не наоборот - потолстеть?    | 
|   |   | 
|  18.07.2013, 07:46 | #566 | |
| Platinum Member Регистрация: 18.10.2008 Адрес: там, где кормят и любят 
					Сообщений: 7,639
				 |   Цитата: 
 воот... интересна именно динамика и ее причины)) | |
| --------- Есть разные виды лжи. Просто ложь, наглая ложь и официальные данные... Карательная психиатрия еще в конце ХХ века предупреждала про галоперидол и патроны... Помогаю с управлением индивидуальными показателями Высокой Вузовской Отчетности: от рецензий и публикаций до ДПО (КПК и ПП). | ||
|   |   | 
|  18.07.2013, 09:42 | #567 | 
| Advanced Member Регистрация: 21.05.2011 
					Сообщений: 409
				 |   
			
			Само собой нет. Такого никогда не бывает (ну может быть липосакция - исключение).  И вода и мышцы и жир. На Дюкане тяжело спортом заниматься, слишком мало углеводов. Опять же осложнения - типа проблемы с почками. Я противник Дюкана. Как любой диеты, кроме ЗОЖ с дефицитом калорий. | 
|   |   | 
|  18.07.2013, 12:14 | #568 | 
| Platinum Member Регистрация: 27.04.2009 
					Сообщений: 10,620
				 |   
			
			Hogfather, а химию разную Вы не пробовали?  от всяких дамский блокаторов калорий до кленбутерола? | 
|   |   | 
|  18.07.2013, 12:50 | #569 | 
| Platinum Member Регистрация: 22.07.2010 Адрес: Санкт-Петербург 
					Сообщений: 3,304
				 |   | 
| --------- DNF is not an option | |
|   |   | 
|  05.09.2013, 08:21 | #570 | |
| Platinum Member Регистрация: 22.07.2010 Адрес: Санкт-Петербург 
					Сообщений: 3,304
				 |   Цитата: 
 Потеря веса -36,3 кг. В том числе: Первые 50 дней - 15 кг Вторые 50 дней - 10 кг Третьи 50 дней - 7 кг Четвертые 50 дней - 4 кг Подробного графика пока не будет: смартфон с дневником наблюдений за тушкой находится в ремонте. | |
| --------- DNF is not an option | ||
|   |   |