![]() |
|
![]() |
#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,509
|
![]()
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
|
||
![]() |
![]() |