Иголка в стоге сена как найти

Самый простой ответ — при помощи магнита. Стог сена нужно будет потихоньку перебирать руками, водя при этом магнитом. Кстати на картинке не стог, а рулон — его еще нужно распотрошить до состояния стога. А в целом можно придумать разные способы:

— Вместо обычного магнита можно использовать очень сильный неодимовый магнит. Такой магнит может вытянуть иголку из сена на расстоянии в метр-полтора. Но и стоить такой магнит будет ~$400.

— Можно использовать металлоискатель.

— Можно отвезти стог в рентгенологическое отделение какой-нибудь больницы и сделать рентгеновский снимок — он покажет расположение иголки в стогу.

— Можно сжечь стог и просеять пепел.

— Можно натравить на него (стог) стадо коз и подождать пока одна из них заблеет, но это будет жестоким обращением с животными.

— Можно в конце концов перебрать стог вручную. В ноябре 2014 года итальянский художник Свен Сашалбер (Sven Sachsalber) устроил перформанс по поиску иголки в стоге сена. На поиск у него ушло около 15 часов (techtimes.com).

Upd:

— Можно высыпать стог в бассейн и поискать иглу на дне. (предложение из комментариев)

3,0 K

Был у меня такой случай в детстве, на сеновале я что то мастерил и потерял там иголку. В итоге около полутора метра сена которое было подо мной дедушка отправил на уничтожение имеющейся в хозяйстве лошади. Она щепетильно губами перебирая сено съела его, после чего магнитом мы провели по оставшейся мелкой шелухе и благополучно извлекли иголку.

698

Студент, гений в области физики,биологии и рассуждений о смерти  · 18 авг 2016

Металлоискателем это сделать легко, просто разложить стог равномерно на землю по пол метра  в высоту, найти металлоискателем участок с иголкой, отложить его в сторону. Далее деля кучки с сеном надвое и отсеивая половинки в которых иглы нет, прийти к маленькой кучке и достать иголку. Если под стогом будут пробки от водки из под трактористов, поиск может немного осложниться.

656

Самым простом способом “найти” как “взять в руки то, что было упущено”, будет поджечь стог. Разумеется, перед поджёгом стоит отгородить стог от других легко-воспламеняющихся объектов. В случае стога показанного на фотографии, его стоило так же бы отгородить от ветра, способного перенести уже горящую солому на поле. Если игла недалеко от поверхности стога, можно воспользо… Читать далее

570

Это выражение было создано, когда иголки были ещё костяными, и означало: “Проделывать тяжелую нудную работу”. На деле хитрецы предки использовали более хитрый метод. В каждом доме был резак для сена, а иголки делались довольно длинными и они были значительно тверже сена. Поэтому брали резак и резали сено до тех пор, пока игла не будет найдена.

578

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

РЕКЛАМА – ПРОДОЛЖЕНИЕ НИЖЕ

#define Iter 10000
#define cell 100

uint8_t potenArr[cell]; // СТОГ
uint8_t needle = 0; // Иголка, будем присваивать ей случайное значение для номера массива
uint32_t startTime = 0; // время начала поиска
uint32_t endTime = 0; // время завершения поиска
uint32_t calculationStartTime = 0;
uint32_t calculationEndTime = 0;

uint32_t Time_poslMetod = 0;
uint32_t Time_randMetod = 0;

void poslMetod();
void randMetod();
void cleanArr();
void DataOutPrint();

void setup() {
  randomSeed(analogRead(A0));
  Serial.begin(115200);
}
void loop() {
  Time_poslMetod = 0;
  Time_randMetod = 0;
  Serial.println(" ");
  Serial.println("Start");
  calculationStartTime = millis();
  // Проводим испытания Iter раз
  for(uint32_t j = 0; j <= Iter; j++){
    // Очищаем массив с предыдущим значением
    cleanArr();
    // Рандомим иглу и кидаем ее в стог
    needle = random(cell + 1);
    potenArr[needle] = 1;
    // Ищем эту иглу двумя способами и сохраняем время для каждого
    poslMetod();
    randMetod();
  }
  // Выводим среднее время для каждого метода
  DataOutPrint();
  delay(2000);
}
void poslMetod(){
  startTime = millis();
  for(uint16_t i = 0; i < cell; i++){
    if(potenArr[i] == 1){
      endTime = millis() - startTime;
      break;
    }
  }
  Time_poslMetod += endTime;
}
void randMetod(){
  startTime = millis();
  for(;;){
    uint16_t r = random(cell + 1);
    if(potenArr[r] == 1){
      endTime = millis() - startTime;
      break;
    }
  }
  Time_randMetod += endTime; 
}
void cleanArr(){
  for(uint16_t i = 0; i < cell; i++){
    potenArr[i] = 0;
  }
}
void DataOutPrint(){
  calculationEndTime = (millis() - calculationStartTime)/1000;
  float OUTposl = (float)Time_poslMetod/Iter;
  float OUTrand = (float)Time_randMetod/Iter;
  Serial.println(" ");
  Serial.print("Number of iterations = ");
  Serial.println(Iter);
  Serial.print("Time for calculate (sec) = ");
  Serial.println(calculationEndTime);
  Serial.print("Posledovatelniy metod - AverageTime (ms) = ");
  Serial.println(OUTposl,3);  
  Serial.print("Randomniy metod - AverageTime (ms) = ");
  Serial.println(OUTrand,3);
}