![]() |
|
|
|
#561 | |
|
Advanced Member
Регистрация: 17.10.2012
Адрес: в Москве
Сообщений: 262
|
Цитата:
Нужно изучить этот метод Дюкана. Стоящая вещь. Но уже не сегодня. И так вместо тренировки у компа весь вечер просидел. p.s. вообще-то странно, что никто не уделил должного внимания данным Хога. В сущности это как раз то место, где можно строить настоящий научный диспут,а не болтовню на ровном месте вроде классических холиваров, набивших оскомину. |
|
|
|
|
| Реклама | |
|
| |
|
|
#562 |
|
Gold Member
Регистрация: 22.11.2011
Сообщений: 1,651
|
Parn, а какая такая научная задача связана с измерением собственного веса?
![]() Добавлено через 2 минуты А всякие измерения веса и высчитывание количества и состава съеденного считаю делом нездоровым. Надо жрать, что нравится, делать, что хочется, не делая гадостей другим - это и есть самый правильный и здоровый образ жизни. |
|
|
|
|
|
#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
|
||
|
|
|
|
|
#564 | |
|
Advanced Member
Регистрация: 17.10.2012
Адрес: в Москве
Сообщений: 262
|
Цитата:
![]() ![]() ![]() ![]() ![]() ![]() ![]() Наверное ты хотел спросить какая научная задача в похудании? Ничего, все ошибаются. Ты вообще в мире бываешь? Ну,в настоящем мире,а не в интернете? В курсе, что задача похудания реально важная,нужная и актуальная? Про ожирение и избыточный вес слыхал? Погугли немного - развиваться полезно. А вот когда станешь немного разбираться в теме, тогда оценишь результат Хога. У тебя есть какие-нибудь здравые идеи каким образом он заставил свой организм избавиться от этого веса? Избавиться от большого веса. Хорошая задача из биологии. Из хорошей, нужной и важной науки. Человек даже сырые данные для анализа выложил! В кои-то веки можно было предметно по обсуждать что-то реальное? Не решая адовых бесконечных задач типа дураков и дорог,а приземленное, наше,родное. Не ныть, не жаловаться, не обсуждать кому какие фильмы нравятся и кто не любит сериалы про суд. Не все эта тухлятина! Люди сидят и думают - что бы еще написать? Чтобы еще запостить? А тут интересная тема. Может в этом методе Дюкара есть ответ - как похудеть без стресса и хирурга? Ты вообще понимаешь что это такое - сбросить 35 кг?! Ты хоть когда-нибудь сбрасывал вес? Да и вообще задач в мире море, вот только ученые решают не их,а какую-то хрень на палочке разглядывают. Решение вопроса похудания ГОРАЗДО важнее, чем вся философская хрень, что плодится параноиками с корками. |
|
|
|
|
|
|
#565 |
|
Gold Member
Регистрация: 22.11.2011
Сообщений: 1,651
|
Parn, уважаемый, а Вы меня видели? С чего Вы взяли, что мне нужно похудеть, а не наоборот - потолстеть?
|
|
|
|
|
|
#566 | |
|
Platinum Member
Регистрация: 18.10.2008
Адрес: там, где кормят и любят
Сообщений: 7,639
|
Цитата:
воот... интересна именно динамика и ее причины)) |
|
|
---------
Есть разные виды лжи. Просто ложь, наглая ложь и официальные данные...
Карательная психиатрия еще в конце ХХ века предупреждала про галоперидол и патроны... Помогаю с управлением индивидуальными показателями Высокой Вузовской Отчетности: от рецензий и публикаций до ДПО (КПК и ПП). |
||
|
|
|
|
|
#567 |
|
Advanced Member
Регистрация: 21.05.2011
Сообщений: 409
|
Само собой нет. Такого никогда не бывает (ну может быть липосакция - исключение).
И вода и мышцы и жир. На Дюкане тяжело спортом заниматься, слишком мало углеводов. Опять же осложнения - типа проблемы с почками. Я противник Дюкана. Как любой диеты, кроме ЗОЖ с дефицитом калорий. |
|
|
|
|
|
#568 |
|
Platinum Member
Регистрация: 27.04.2009
Сообщений: 10,605
|
Hogfather, а химию разную Вы не пробовали?
от всяких дамский блокаторов калорий до кленбутерола? |
|
|
|
|
|
#569 |
|
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
|
|
---------
DNF is not an option
|
|
|
|
|
|
|
#570 | |
|
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Цитата:
Потеря веса -36,3 кг. В том числе: Первые 50 дней - 15 кг Вторые 50 дней - 10 кг Третьи 50 дней - 7 кг Четвертые 50 дней - 4 кг Подробного графика пока не будет: смартфон с дневником наблюдений за тушкой находится в ремонте. |
|
|
---------
DNF is not an option
|
||
|
|
|