Implementando mais uma vez...
Pensando melhor, sim, talvez a função anteriormente implementada tivesse alguns erros. Ou então a época a que se aplica não é a actual. Sendo assim, foi reajustada a tempos mais recentes com o seguinte resultado:
inícioDeUmaRelação[ele_,ela_]:=
If[atracção[ele,ela]<5,
Print["Esquece lá isso!"],
If[cobardia[ele]>3 && cobardia[ela]>3,
Print["Assim a coisa não anda..."],
Print["Há boas probabilidades de as coisas chegarem a bom porto."];
];
];
(*Os níveis de atracção e de cobardia estão no intervalo [1,10].
Claro que a atracção e a cobardia não são os únicos factores importantes, mas pelo menos a cobardia tem uma contribuição incrivelmente grande.*)
Agora... é ver quem dá o primeiro passo mais depressa: Ele ou Ela? Apesar de tudo, Ele partiu após um "Eu volto!".
Claro que a atracção e a cobardia não são os únicos factores importantes, mas pelo menos a cobardia tem uma contribuição incrivelmente grande.*)
Agora... é ver quem dá o primeiro passo mais depressa: Ele ou Ela? Apesar de tudo, Ele partiu após um "Eu volto!".
1 comentário:
Precisas de um acrescento... e o blogger não me deixa postar isto! Se calhar também tem cobardia>Infinity. Parece que agora é que é! =) Isto tinha um erro!
tempoDeEspera=Function[{tempodeespera,cobardia},
t=0;
If[cobardia>7,
Print["Esquece lá isso antes que dê mer**"],
While[cobardia>3,
cobardia=cobardia-0,01;
t=t+1]];
If[t< tempodeespera,
Print["Certifica-te que é mesmo verdade"],
Print["É um caso perdido, passa à frente"]]]
Enviar um comentário