• Forum Think Finance - Bolsa e Forex »
• Perfil de Thorn Gilts »
• Mostrar Mensagens »
• Tópicos

Da coleção "Dolce Vita" da "Sprezzatura", marca e coleção que criei, aqui ficam algumas das muitas peças disponíveis para venda:

Vou fazer uma road trip. Alguém, eventualmente, ja alugou carro na Alamo?

Olá,

Para testar a teoria do Monty Hall na realidade envio-te em anexo uma folha de excel com macro. Abaixo os algoritmos para poderes verificar (são intuitivos - vê as descrições) que não há qualquer bias.

Como utilizar a folha:

1- Na celular amarela colocas o número de interações (loops), quanto maior o número mais precisos são os resultados, mas também demora mais tempo;

2- No botão "rock & roll" faz a simulação toda seguida, considerando o número de interações e apresenta os resultados no fim;

3- No botão "Step by step" faz a simulação sorteio a sorteio e permite-te escolher se vais trocar a porta ao não. Vais verificar se nunca trocares terás um acerto de aproximadamente 1/3 face a se trocares sempre que será de 2/3.

:-) diverte-te e brinca com o teu irmão.


Sub LOOPPING()
Dim Total As Integer
Dim Count As Integer

' clear
Application.CalculateFullRebuild
Application.ScreenUpdating = True
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("C10").Value = 0
Range("C20").Value = 0
Application.CalculateFullRebuild
Application.ScreenUpdating = True


If Range("G4").Value = Empty Then Range("G4").Value = 1000
Looping = Range("F4").Value
Total = Range("G4").Value
For Count = 1 To Total

door = WorksheetFunction.RandBetween(1, 3) ' o premío - escolha aleatória entre a porta 1 e 3
Range("B3").Value = door ' registo da porta premiada

' registo das percentagens de saidas de prémios para cada uma das 3 portas
If door = 1 Then
Range("B4").Value = "X"
Range("B5").Value = Range("B5").Value + 1
Range("C4").Value = "-"
Range("D4").Value = "-"
End If
If door = 2 Then
Range("C4").Value = "X"
Range("C5").Value = Range("C5").Value + 1
Range("B4").Value = "-"
Range("D4").Value = "-"
End If
If door = 3 Then
Range("D4").Value = "X"
Range("D5").Value = Range("D5").Value + 1
Range("B4").Value = "-"
Range("C4").Value = "-"
End If

choosen = WorksheetFunction.RandBetween(1, 3) ' a nossa porta - escolha aleatoria entre a porta 1 e 3
Range("C9").Value = choosen ' registo da porta escolhida


' a porta a mostrar
If (door = 1 Or door = 2) And (choosen = 1 Or choosen = 2) Then opendoor = 3
If (door = 2 Or door = 3) And (choosen = 2 Or choosen = 3) Then opendoor = 1
If (door = 3 Or door = 1) And (choosen = 3 Or choosen = 1) Then opendoor = 2
Range("C14").Value = opendoor ' registo da porta mostrar


' a porta a trocar
If (opendoor = 1 Or opendoor = 2) And (choosen = 1 Or choosen = 2) Then swap = 3
If (opendoor = 2 Or opendoor = 3) And (choosen = 2 Or choosen = 3) Then swap = 1
If (opendoor = 3 Or opendoor = 1) And (choosen = 3 Or choosen = 1) Then swap = 2
Range("C19").Value = swap ' registo da porta trocada


' registo das percentagens de acertos na porta escolhida
If door = choosen Then
Range("C10").Value = Range("C10").Value + 1
End If

' registo das percetnagem de acertos na porta trocada
If door = swap Then
Range("C20").Value = Range("C20").Value + 1
End If

Application.CalculateFullRebuild
Application.ScreenUpdating = True
Looping = Looping + 1
Range("F4").Value = Looping

Application.CalculateFullRebuild
Application.ScreenUpdating = True

Range("B4").Value = "-"
Range("C4").Value = "-"
Range("D4").Value = "-"


Next Count
MsgBox "DONE. If you swaped the door you won " & Format(Range("C21").Value, "#.00 %") & " of the time"
End Sub

Sub stepbystep()
Dim Total As Integer
Dim Count As Integer
Application.CalculateFullRebuild
Application.ScreenUpdating = True
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("C10").Value = 0
Range("C20").Value = 0
Range("I14").Value = 0
Application.CalculateFullRebuild
Application.ScreenUpdating = True
If Range("G4").Value = Empty Then Range("G4").Value = 1000
Looping = Range("F4").Value
Total = Range("G4").Value
For Count = 1 To Total

door = WorksheetFunction.RandBetween(1, 3) ' o premío - escolha aleatória entre a porta 1 e 3
Range("B3").Value = door ' registo da porta premiada

' registo das percentagens de saidas de prémios para cada uma das 3 portas
If door = 1 Then
Range("B4").Value = "X"
Range("B5").Value = Range("B5").Value + 1
Range("C4").Value = "-"
Range("D4").Value = "-"
End If
If door = 2 Then
Range("C4").Value = "X"
Range("C5").Value = Range("C5").Value + 1
Range("B4").Value = "-"
Range("D4").Value = "-"
End If
If door = 3 Then
Range("D4").Value = "X"
Range("D5").Value = Range("D5").Value + 1
Range("B4").Value = "-"
Range("C4").Value = "-"
End If

choosen = WorksheetFunction.RandBetween(1, 3) ' a nossa porta - escolha aleatoria entre a porta 1 e 3
Range("C9").Value = choosen ' registo da porta escolhida

Application.CalculateFullRebuild
Application.ScreenUpdating = True

' a porta a mostrar
If (door = 1 Or door = 2) And (choosen = 1 Or choosen = 2) Then opendoor = 3
If (door = 2 Or door = 3) And (choosen = 2 Or choosen = 3) Then opendoor = 1
If (door = 3 Or door = 1) And (choosen = 3 Or choosen = 1) Then opendoor = 2
Range("C14").Value = opendoor ' registo da porta mostrar

Application.CalculateFullRebuild
Application.ScreenUpdating = True

' a porta a trocar
If (opendoor = 1 Or opendoor = 2) And (choosen = 1 Or choosen = 2) Then swap = 3
If (opendoor = 2 Or opendoor = 3) And (choosen = 2 Or choosen = 3) Then swap = 1
If (opendoor = 3 Or opendoor = 1) And (choosen = 3 Or choosen = 1) Then swap = 2
Range("C19").Value = swap ' registo da porta trocada

Application.CalculateFullRebuild
Application.ScreenUpdating = True


answer = MsgBox("You choose door " & choosen & ". Do you wanna swap?", vbQuestion + vbYesNo + vbDefaultButton2, "YOU CHOOSE!")


' registo das percentagens de acertos na porta escolhida
If door = choosen And answer = vbNo Then
Range("I14").Value = Range("I14").Value + 1
End If

' registo das percetnagem de acertos na porta trocada
If door = swap And answer = vbYes Then
Range("I14").Value = Range("I14").Value + 1
End If


Looping = Looping + 1
Range("F4").Value = Looping
Application.CalculateFullRebuild
Application.ScreenUpdating = True

Range("B4").Value = "-"
Range("C4").Value = "-"
Range("D4").Value = "-"
Application.CalculateFullRebuild

Next Count
MsgBox "DONE. If you swaped the door you won " & Format(Range("I15").Value, "#.00 %") & " of the time"
End Sub


Sub CLEAR()
Application.CalculateFullRebuild
Application.ScreenUpdating = True
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("F4").Value = 0
Range("B5").Value = 0
Range("C5").Value = 0
Range("D5").Value = 0
Range("C10").Value = 0
Range("C20").Value = 0
Range("I14").Value = 0
Application.CalculateFullRebuild
Application.ScreenUpdating = True
End Sub

A bater mínimos de 52 semanas.

Voos:

Trip.com (i.e. encontra-se voos na TAP mais baratos dos que vendidos pela propria TAP);

Skyscanner (apenas para pesquisa e depois marcar direto no operador);

Edreams (apenas para pesquisa e depois marcar direto no operador);

Hoteis:

Hotels.com com programa de recompensa (igualam o preço de outros sites, mas são muito aldrabões e ja me enganaram duas vezes) - sou membro gold o que dá alguns benefícios (é facil ser membro gold);

Booking.com com alternativa ao Hotels.com, embora não tenha programa de recompensas às vezes tem preço mais barato em quartos não disponíveis no hotel (categoria superior) ou hoteis que o hotels não tem.

Agoda.com tem cash back imediato, muitas vezes (a maioria) é melhor que o hotels.com.

Rent-a-cars:

Sixt - melhor serviço e produto, mas mais cara. Preferencial se for para escolher um carro superior.

Centauro - minha preferência para low cost, excelente serviço, produto e upgrades para quem contratar o fast service

Goldcar - péssimo serviço e os carros as vezes ainda vem com a cola de autocolantes que eles colocam nas portas antes de lavar. O preço às vezes não compensa. Parte boa check in online e serviço key and go, sem aturar ninguém.

Temos aqui poucas girls, por isso acho que este tópico vai mais para boys.

A chave se uma boa pele, cabelo e condição física em geral é a alimentação e atividade física, o que já temos vindo a discutir no outro tópico. Mas há produtos, nomeadamente mas não exclusivamente cremes, que podem ajudar nestes aspectos que mencionei.

Vou partilhar os que eu atualmente uso:

Pele:

1. Oenobiol (autobronzeador em cápsulas);
2. Martin Derm Sun Care factor 50 activ (d) fluid (protetor solar)
3. postQuatum profissional caviar 24h (hidratante facial)
4. Expert Hydra Energetic da L'Oréal (roll on refrescante para as olheiras - raramente uso, só depois de uma noitada)
5. MyLabel Creme Gordo (para corpo por forma a evitar estrias)
6. Estée Lauder advanced night repair eye supercharged complex (reparador de olheiras para a noite - um frasco vermelho muito pequeno mas que raramente uso)
7. Estée Lauder advanced night repair (para a pele a noite, umas gotas, que raramente uso)

Nota em viagem uso apenas um creme da Clarins com doseador.

Cabelo:

1. Finasterina 1mg pastilhas (corta a testosterona e impede queda cabelo - tomo ha 10 anos diariamente)
2. Tenho diversos shampoos diferentes, que uso alternadamente, inclusive um para evitar cabelos brancos (que já começo a ter) fiquem amarelados. Depois posso por aqui as marcas se vos interessar, mas que acredito ser pouco relevante.
3. Em viagem uso ainda um spray reparador pois a água de diferentes países e os secadores dos hotéis não são os ideias.

Perfumes:

Uso, maioritariamente, o Issey Miyake L'Eau D'Issey e por vezes o CK one ou um nojento da BOSS (tenho vários frascos oferecidos).

Este fim de semana, em principio, vou construir um perfume personalizado ao meu gosto e de acordo com a reação da minha pele.

NOTA: Se acharem melhor podemos transferir o post do Secret Chamber para o Off Topic que e menos restrito e pode por isso ter mais participação e de mulheres, geralmente com mais conhecimento nestes assuntos.

Está decisão pode ter um impacto de 4 mil milhões de euros na conta da Vodafone Portugal e concomitante na Vodafone UK.

A Vodafone UK já tinha sido avisada dos riscos desta acção, assim como a auditora e resolveram não divulgar ao mercado. Isso vai levar a várias acções judiciais no UK contra a auditora e Vodafone por parte dos investidores.

----

Os clientes da Vodafone cobrados pela ativação dos serviços de Internet extra (ativado automaticamente quando excedem o plafond de MB disponíveis com o pacote de serviços subscrito) ou o serviço automático de conversão de mensagem de voz para texto, podem exigir, de forma direta e com efeito imediato, todos os valores cobrados nos últimos 4 anos a esse título.

Este direito resulta da sentença proferida em acórdão do Supremo Tribunal de Justiça numa acção popular (todos os clientes da Vodafone são autores e estão representados nessa acção) que condenou a Vodafone a devolver todos os valores cobrados pela activação de serviços adicionas.

A acção foi promovida e liderada pela CITIZENS' VOICE - Consumer Advocacy Association, uma associação satélite da ATM - Associação de Investidores, e por dois outros autores.

Este acórdão é histórico e com um impacto de aproximadamente 4 mil milhões de euros nas contas da Vodafone a serem devolvidos aos consumidores e a proibição da Vodafone continuar com esta prática ilegal (coercive tie selling).

A DG-Competition, direção geral para a concorrência da Comissão Europeia, tem estado acompanhar este caso, aguardando por esta decisão proferida em 03.02.2022 para retirar efeitos para os restantes Estados Membros.

A Vodafone já tinha sido condenada em Itália, pela autoridade da concorrência italiana, num processo que chegou ao Tribunal de Justiça da União Europeia, num caso semelhante a este relacionado com activação automática da Internet em cartões SIM usados para chamadas de voz.

Em Portugal a autoridade da concorrência, mesmo tendo recebido queixas dos consumidores relativamente a estes comportamentos abusivos nada fez. O presidente da autoridade da concorrência em Portugal testemunhou nada saber sobre o tema e nem tão pouco sobre o trabalho e acções de sucesso da sua congénere italiana.

A Veneranda Senhora Juíza Conselheira Maria Clara Sottomayor (relatora) e os Venerandos Senhores Juízes Conselheiros Pedro de Lima Gonçalves e Fernando Samões (adjuntos) são os subscritores deste acórdão histórico para os consumidores portugueses e que tem impacto também nos restantes operadores, face ao elaborado raciocínio e latitude  de fundamentação,  num  texto  ao  qual  emprestaram  a  sua  erudição  sobre  os vários  temas  tratados e cuja sageza qualquer pessoa e outros operadores conseguem acompanhar e dai tirar ilações.

O advogado responsável por esta acção histórica foi o Senhor Dr. Rui Madureira Ferras, Secretário da Mesa da Assembleia Geral da CITIZENS' VOICE.

COMO EXIGIR À VODAFONE OS VALORES COBRADOS ILEGALMENTE?

VODAFONE PORTUGAL - Comunicações Pessoais, S.A.
Av. D. João II - Lote 1.04.1 - 8.º, Parque das Nações, 1998-017 Lisboa

Exmos Senhores,

Em resultado da sentença proferida no acórdão do Supremo Tribunal de Justiça de 03.02.2022, processo  22640/18.1T8LSB.L1.S1, acção popular promovida pela CITIZENS' VOICE associação de defesa do consumidor, venho exigir que me sejam restituídos imediatamente (por transferência para a conta de que sou titular com o IBAN [indicar IBAN]) todos os valores cobrados por serviços adicionais nos últimos 4 anos, nomeadamente, mas não exclusivamente, pelos serviços de Internet extra (activados todas as vezes que o "plafond" do pacote de serviços foi totalmente consumido) e conversão de mensagens voz para texto.

Como certamente é do conhecimento de Vossas Excelências, eu não me excluí da aludida acção popular, tendo por isso passivamente aceite estar representado/a na mesma [cf. Artigo 15 (1) in fine da Lei 83/96], com os efeitos previstos no artigo 19 (1) da aludida Lei, designadamente o de aproveitar a sentença transitada em julgado proferida no âmbito do processo supra identificado que tem por objeto a defesa de interesses individuais homogéneos.

Caso os valores agora reclamados não me seja devolvidos nos 5 dias após o trânsito em julgado da sentença supra referida, darei início à execução judicial da sentença, com todos os inconvenientes que dai resultem para Vossas Excelências.

Sem mais de momento, subscrevo-me.

Com os cordiais clientes,

Nome
Cliente Vodafone nr

#citizensvoice #consumerprotection #ConsumerRights #defesadoconsumidor #associaçãodedefesadocosumidor #AdvocacyInAction #classaction #classactionlawsuit #acçãopopular #accaopopular #açãopopular #vodafone #Vodafoneportugal

Conhecem alguma uma fundição de ferro fundido que possa fazer peças de cerca de 0,5 kg (uns aneis vedantes para peças de 1,5 toneladas de máquinas gigantes)?

Perto de 800 mil euros mês para contrato anual.

Impressionante

https://instagram.com/vfxchrisume?utm_medium=copy_link

Porque é que as pessoas mentem?

As pessoas mentem para evitar uma punição. Isso acontece quando alguém cometeu um erro e mente para evitar as consequências, principalmente se desmedidas face à acção ou um erro honesto. Admito perfeitamente uma mentira para evitar a punição por um erro honesto.

Mas as pessoas também mentem, com mais ou menos intensidade, para obter uma recompensa. Este motivo é mais comum do que se pensa, desde numa entrevista de emprego ao alegar conhecimento ou experiência profissional que não tem ou numa relação mentir  para seduzir ou tirar uma vantagem da outra parte. Aqui a substância da mentira é o que a leva do aceitável ao inaceitável. Admito, nestes contexto, aquilo que são as mentiras caridosas ou para fazer o bem.

Depois há uma variação do primeiro caso (mentiras para evitar uma punição) e que é proteger outra pessoa de ser punida. Por exemplo: mentir sobre algo para proteger um filho. Admito esta mentira dentro do espírito em que admito a primeira.

Ainda há outra mentira que é uma variação desta última e do primeiro caso e que é mentir para proteger de um dano físico. Por exemplo: dizer que se tem uma pistola, quando não se tem, para tentar afugentar um ladrão que está a tentar uma entrada forçada em casa. Está é uma mentira muito aceitável e mesmo necessária na defesa de um bem maior

Depois há as mentiras fúteis e estúpidas, que são todas aquelas em que a pessoa mente para ganhar a admiração de outras pessoas e aumentar a popularidade ou para tentar exercer algum género de poder ou influência sobre os outros. Ao contrário das mentiras anteriores, estas para além de ser fúteis e por isso inaceitáveis são as que o mentiroso mais se desleixa a tentar incobrir o rasto da mentira pois não espera que alguém se preocupe em descobrir a verdade perante a futilidade. É uma mentira gratuita, sem grande vantagem, fútil e com grande risco de funcionar no sentido inverso do que o mentiroso pretende. Eu acho que estás pessoas, ao contrário das primeiras, tem grandes distúrbios de personalidade.

Isto vem a propósito de uma mentira que eu descobrir de um tipo e que não sei se entra nem no segundo ou último caso, embora esteja inclinado para que seja o último.

No entanto, à parte desse caso particular que acabei de referir, ultimamente, principalmente com estes problemas da pandemia, tenho visto muitos casos como o último descrito. Essa ocorrência anormal desse tipo de casos faz-me pensar se haverá alguma vantagem maior nessas mentiras que eu não esteja a ver ou as pessoas estão simplesmente a querem saltar da realidade onde estão para algo imaginário sem se preocuparem de se perceber e comprovar à légua que é mentira. Fazem lembrar os miúdos pequenos na escola primária a contar estórias aos outros sobre o pai ser o super homem ou outro qualquer feito que um adulto percebe à distância que é mentira.

Alguém tem opinião sobre este tema?